aboutsummaryrefslogtreecommitdiff
path: root/tests/eval/value.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/eval/value.test')
-rw-r--r--tests/eval/value.test23
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/eval/value.test b/tests/eval/value.test
new file mode 100644
index 0000000..cf91ec1
--- /dev/null
+++ b/tests/eval/value.test
@@ -0,0 +1,23 @@
+# file : tests/eval/value.test
+# copyright : Copyright (c) 2014-2016 Code Synthesis Ltd
+# license : MIT; see accompanying LICENSE file
+
+# Test value part of the grammar (eval-value).
+
+.include ../common.test
+
+$* <'print (foo)' >'foo' : value
+$* <'print ()' >'' : value-empty
+$* <'print ((foo bar))' >'foo bar' : eval
+$* <'print (!false)' >'true' : not
+$* <'print (!!true)' >'true' : not-double
+
+: attribute
+:
+{
+ $* <'print $type([string] foo)' >'string' : type
+ $* <'print ([uint64] 001)' >'1' : value
+ $* <'print $null([null])' >'true' : null
+ $* <'print $type([string] (foo == bar))' >'string' : eval
+ $* <'print $type([string] !true)' >'string' : not
+}