diff options
Diffstat (limited to 'tests/eval/ternary.testscript')
-rw-r--r-- | tests/eval/ternary.testscript | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/eval/ternary.testscript b/tests/eval/ternary.testscript new file mode 100644 index 0000000..fc405e5 --- /dev/null +++ b/tests/eval/ternary.testscript @@ -0,0 +1,30 @@ +# file : tests/eval/ternary.testscript +# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd +# license : MIT; see accompanying LICENSE file + +# Test the ternary operator (eval-ternary). + +.include ../common.testscript + +$* <'print (true ? foo : bar)' >'foo' : true +$* <'print (false ? foo : bar)' >'bar' : false + +: associativity +: +{ + $* <'print (true ? false ? foo : bar : baz)' >'bar' : middle + $* <'print (true ? foo : true ? bar : baz)' >'foo' : right + $* <'print (true ? false ? foo : bar : true ? baz : fox)' >'bar' : both + $* <'print (false ? foo ? false ? bar : false : baz : fox)' >'fox' : chain +} + +: short-circuit +: +{ + $* <'print (false ? $bogus() : foo)' >'foo' : middle + $* <'print (true ? foo : $bogus())' >'foo' : right + + # @@ TODO: complate pre-parse support in parse_name(). + # + #$* <'print (true ? foo : $out_base/{foo bar})' >'foo' : pre-parse +} |