diff options
Diffstat (limited to 'tests/eval/or-and.testscript')
-rw-r--r-- | tests/eval/or-and.testscript | 28 |
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' |