# Test execution order of segments in a NEdit Macro file

# ------------------------------------------------------------------------------

n = 1

if ($TEST == "test-init")
  {
  $code_segment_order_ary = $empty_array
  $TEST = ""
  }
$TEST = $TEST "I"
$code_segment_order_ary[""] = ""
if ("s" in $code_segment_order_ary)
  $code_segment_order_ary["s"] = $code_segment_order_ary["s"] "\n  segment "n
else
  $code_segment_order_ary["s"] = "\n  segment " n
if ($TEST == "IIII")
  dialog("Order of code segments (" n " of 4) is:" $code_segment_order_ary["s"])

define code_segment_test_func1
  {
  }

# ------------------------------------------------------------------------------
n = 2

if ($TEST == "test-init")
  {
  $code_segment_order_ary = $empty_array
  $TEST = ""
  }
$TEST = $TEST "I"
$code_segment_order_ary[""] = ""
if ("s" in $code_segment_order_ary)
  $code_segment_order_ary["s"] = $code_segment_order_ary["s"] "\n  segment "n
else
  $code_segment_order_ary["s"] = "\n  segment " n
if ($TEST == "IIII")
  dialog("Order of code segments (" n " of 4) is:" $code_segment_order_ary["s"])

define code_segment_test_func2
  {
  }

# ------------------------------------------------------------------------------
n = 3

if ($TEST == "test-init")
  {
  $code_segment_order_ary = $empty_array
  $TEST = ""
  }
$TEST = $TEST "I"
$code_segment_order_ary[""] = ""
if ("s" in $code_segment_order_ary)
  $code_segment_order_ary["s"] = $code_segment_order_ary["s"] "\n  segment "n
else
  $code_segment_order_ary["s"] = "\n  segment " n
if ($TEST == "IIII")
  dialog("Order of code segments (" n " of 4) is:" $code_segment_order_ary["s"])

define code_segment_test_func3
  {
  }

# ------------------------------------------------------------------------------
n = 4

if ($TEST == "test-init")
  {
  $code_segment_order_ary = $empty_array
  $TEST = ""
  }
$TEST = $TEST "I"
$code_segment_order_ary[""] = ""
if ("s" in $code_segment_order_ary)
  $code_segment_order_ary["s"] = $code_segment_order_ary["s"] "\n  segment "n
else
  $code_segment_order_ary["s"] = "\n  segment " n
if ($TEST == "IIII")
  dialog("Order of code segments (" n " of 4) is:" $code_segment_order_ary["s"])

if ($TEST == "IIII")
  $TEST = ""