aboutsummaryrefslogtreecommitdiff
path: root/tests/eval/or-and.testscript
diff options
context:
space:
mode:
Diffstat (limited to 'tests/eval/or-and.testscript')
-rw-r--r--tests/eval/or-and.testscript28
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/eval/or-and.testscript b/tests/eval/or-and.testscript
new file mode 100644
index 0000000..7796f74
--- /dev/null
+++ b/tests/eval/or-and.testscript
@@ -0,0 +1,28 @@
+# file : tests/eval/or-and.testscript
+# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd
+# license : MIT; see accompanying LICENSE file
+
+# Test logical operators (eval-or, eval-and).
+
+.include ../common.testscript
+
+$* <'print (false || false)' >'false' : or-false
+$* <'print (false || true)' >'true' : or-true-1
+$* <'print (true || false)' >'true' : or-true-2
+
+$* <'print (false && true)' >'false' : and-false-1
+$* <'print (true && false)' >'false' : and-false-2
+$* <'print (true && true)' >'true' : and-true
+
+: associativity
+:
+: Also tests short-circuit.
+:
+{
+ $* <'print (true || $bogus($foo) || false)' >'true' : or
+ $* <'print (false && $bogus($foo) && false)' >'false' : and
+}
+
+: priority
+:
+$* <'print (false && true || true)' >'true'