(fate_version 1)

(global string test_name)

(set test_name ( IF ELSE ))


(if (false)
   (assert (false) [FAILED] (var test_name) Executing dead code 0.)
)

(global bool test)

(set test (false))

(ifelse (false)
   (assert (false) [FAILED] (var test_name) Executing dead code 1.)
   (set test (true))
)

(assert test [FAILED] (var test_name) ignored valid branch 0.)

(if (false)
   (assert (false) [FAILED] (var test_name) Executing dead code 2.)
   (set test (false))
)

(assert test [FAILED] (var test_name) Executing dead code 3.)

(set test
   (ifelse (false)
      (false)
      (true)
   )
)

(assert test [FAILED] (var test_name) Executing dead code 4.)

(set test
   (ifelse (true)
      (true)
      (false)
   )
)

(assert test [FAILED] (var test_name) Executing dead code 5.)

(assert
   (=
      (ifelse (= 8 (+ 4 4))
         ( valid string )
         ( incorrect string )
      )
      ( valid string )
   )
   [FAILED] (var test_name) Failed to select correct branch.
)

[COMPLETED] (var test_name)

(end)