-
Notifications
You must be signed in to change notification settings - Fork 2
/
tests.txt
47 lines (37 loc) · 1.99 KB
/
tests.txt
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
cf-ifelse-takes-first-true
extensions [ cf ]
O> (cf:ifelse false [ crt 1 ] true [ crt 2 ] true [ crt 4 ] [ crt 8 ])
count turtles => 2
cf-ifelse-falls-through-to-else-block
extensions [ cf ]
O> (cf:ifelse false [ crt 1 ] false [ crt 2 ] [ crt 4 ])
count turtles => 4
cf-ifelse-optional-else
extensions [ cf ]
O> (cf:ifelse false [ crt 1 ] false [ crt 2 ])
count turtles => 0
cf-ifelse-gives-type-errors-in-variadic-position
extensions [ cf ]
O> (cf:ifelse false [ ] false [ ] [] [] []) => ERROR Extension exception: Expected this input to be a TRUE/FALSE but got the anonymous command (anonymous command: [ ]) instead.
cf-ifelse-value-takes-first-true
extensions [ cf ]
(cf:ifelse-value false [ 1 ] true [ 2 ] true [ 4 ] [ 8 ]) => 2
cf-ifelse-value-falls-through-to-else-block
extensions [ cf ]
(cf:ifelse-value false [ 1 ] false [ 2 ] [ 4 ]) => 4
cf-ifelse-errors-with-no-true-conditions
extensions [ cf ]
O> __ignore (cf:ifelse-value false [ 1 ] false [ 2 ]) => ERROR Extension exception: CF:IFELSE-VALUE found no true conditions and no else branch. If you don't wish to error when no conditions are true, add a final else branch.
cf-ifelse-value-associates-smartly
extensions [ cf ]
(cf:ifelse-value 0 > 1 [ false ] 0 < 1 [ true ] [ nobody ]) => true
cf-ifelse-value-gives-type-errors-in-variadic-position
extensions [ cf ]
O> __ignore (cf:ifelse-value false [ 0 ] false [ 1 ] [ 3 ] [ 4 ] [ 5 ]) => ERROR Extension exception: Expected this input to be a TRUE/FALSE but got the anonymous reporter (anonymous reporter: [ 3 ]) instead.
cf-ifelse-value-handles-prefix-predicates
extensions [ cf ]
(cf:ifelse-value any? links [ 0 ] any? turtles [ 1 ] any? patches [ 2 ] [ 3 ]) => 2
cf-ifelse-value-handles-complex-conditions
extensions [ cf ]
(cf:ifelse-value count turtles > 0 [ 0 ] any? turtles [ 10 ] any? patches [ 100 ] [ -1 ]) => 100
(cf:ifelse-value count patches < 0 [ 0 ] count patches < 10 [ 10 ] count patches < 100 [ 100 ] count patches < 1000 [ 1000 ] [ -1 ]) => 1000