1 files changed, 73 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/bools_runme.tcl b/Examples/test-suite/tcl/bools_runme.tcl
new file mode 100644
index 0000000..582b812
--- /dev/null
+++ b/Examples/test-suite/tcl/bools_runme.tcl
@@ -0,0 +1,73 @@
+
+if [ catch { load ./bools[info sharedlibextension] bools} err_msg ] {
+	puts stderr "Could not load shared object:\n$err_msg"
+}
+
+# bool constant check
+if {$constbool != 0} {
+    puts stderr "Runtime test 1 failed"
+    exit 1
+}
+
+# bool variables check
+if {$bool1 != 1} {
+    puts stderr "Runtime test 2 failed"
+    exit 1
+}
+
+if {$bool2 != 0} {
+    puts stderr "Runtime test 3 failed"
+    exit 1
+}
+
+if { [ value $pbool ] != $bool1} {
+    puts stderr "Runtime test 4 failed"
+    exit 1
+}
+
+if { [ value $rbool ] != $bool2} {
+    puts stderr "Runtime test 5 failed"
+    exit 1
+}
+
+if { [ value $const_pbool ] != $bool1} {
+    puts stderr "Runtime test 6 failed"
+    exit 1
+}
+
+if { $const_rbool != $bool2} {
+    puts stderr "Runtime test 7 failed"
+    exit 1
+}
+
+# bool functions check
+if { [ bo 0 ] != 0} {
+    puts stderr "Runtime test 8 failed"
+    exit 1
+}
+
+if { [ bo 1 ] != 1} {
+    puts stderr "Runtime test 9 failed"
+    exit 1
+}
+
+if { [ value  [ rbo $rbool ] ] !=  [ value $rbool ]} {
+    puts stderr "Runtime test 10 failed"
+    exit 1
+}
+
+if { [ value  [ pbo $pbool ] ] !=  [ value $pbool ]} {
+    puts stderr "Runtime test 11 failed"
+    exit 1
+}
+
+if { [ const_rbo $const_rbool ] !=   $const_rbool } {
+    puts stderr "Runtime test 12 failed"
+    exit 1
+}
+
+if { [ value  [ const_pbo $const_pbool ] ] !=  [ value $const_pbool ]} {
+    puts stderr "Runtime test 13 failed"
+    exit 1
+}
+