Added some tests for the Val objects.

lib/modules/testsuite.in

@@ -1128,4 +1128,27 @@ test_false([[ TestQueue->size() ]])
 test_true([[ zero_type(TestQueue->try_read()) ]])
 test_do([[ add_constant("TestQueue"); ]])
 
+test_false(!Val.true)
+test_true(!Val.false)
+test_eq((int) Val.true, 1)
+test_eq((int) Val.false, 0)
+test_eq((string) Val.true, "1")
+test_eq((string) Val.false, "0")
+test_false(Val.true == 0)
+test_false(Val.true == 1)
+test_false(Val.false == 0)
+test_false(Val.false == 1)
+test_false(Val.true == Val.false)
+test_true(Val.true == Val.true)
+test_true(Val.false == Val.false)
+
+test_true(!Val.null)
+test_eval_error((int) Val.null)
+test_eval_error((string) Val.null)
+test_false(Val.null == 0)
+test_false(Val.null == 1)
+test_false(Val.null == Val.true)
+test_false(Val.null == Val.false)
+test_true(Val.null == Val.null)
+
 END_MARKER