aboutsummaryrefslogtreecommitdiff
path: root/tests/eval/ternary.testscript
diff options
context:
space:
mode:
Diffstat (limited to 'tests/eval/ternary.testscript')
-rw-r--r--tests/eval/ternary.testscript30
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
+}