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
+}