1 files changed, 30 insertions, 0 deletions
diff --git a/tests/eval/ternary.test b/tests/eval/ternary.test
new file mode 100644
index 0000000..30a7e05
--- /dev/null
+++ b/tests/eval/ternary.test
@@ -0,0 +1,30 @@
+# file      : tests/eval/ternary.test
+# copyright : Copyright (c) 2014-2016 Code Synthesis Ltd
+# license   : MIT; see accompanying LICENSE file
+
+# Test the ternary operator (eval-ternary).
+
+.include ../common.test
+
+$* <'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
+}