From c7e7c28028408ce7f1bbbf647d5b95bb6b23904a Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sat, 5 Mar 2011 22:49:56 +0100
Subject: [PATCH] Added some tests for the Val objects.
---
lib/modules/testsuite.in | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/lib/modules/testsuite.in b/lib/modules/testsuite.in
index f1dfa2c72d..a7ac8eb8e5 100644
--- a/lib/modules/testsuite.in
+++ b/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
--
GitLab