summaryrefslogtreecommitdiff
blob: 65a228f80aacbcdb20448042c503ad502489900e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
(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!)