(fate_version 1)

(global string test_name)

(set! test_name ( IF ELSE ))

(global bool test)

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


(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!)