aboutsummaryrefslogtreecommitdiff
path: root/Examples/test-suite/tcl/integers_runme.tcl
diff options
context:
space:
mode:
authorAlistair Delva <adelva@google.com>2024-04-10 14:15:29 -0700
committerAlistair Delva <adelva@google.com>2024-04-11 12:58:28 -0700
commitd0f0f90be16c2ac553b5fa08512045273135147a (patch)
tree5d9ebb7a04807ea8a609ddd18b0162bc87530e4b /Examples/test-suite/tcl/integers_runme.tcl
parent6ffc1dbf29ba98c4d8aa71ebc9b484e973fe1030 (diff)
downloadswig-d0f0f90be16c2ac553b5fa08512045273135147a.tar.gz
Change-Id: I47cef2be94299220d80265d949a95b58eee2c23b
Diffstat (limited to 'Examples/test-suite/tcl/integers_runme.tcl')
-rw-r--r--Examples/test-suite/tcl/integers_runme.tcl26
1 files changed, 26 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/integers_runme.tcl b/Examples/test-suite/tcl/integers_runme.tcl
new file mode 100644
index 000000000..b06adce9b
--- /dev/null
+++ b/Examples/test-suite/tcl/integers_runme.tcl
@@ -0,0 +1,26 @@
+if [ catch { load ./integers[info sharedlibextension] Integers} err_msg ] {
+ puts stderr "Could not load shared object:\n$err_msg"
+}
+
+# 32-bit long max
+set val 2147483647
+if {[signed_long_identity $val] != $val} {
+ puts stderr "Runtime test 1 failed"
+ exit 1
+}
+
+set val 3902408827
+if {[unsigned_long_identity $val] != $val} {
+ puts stderr "Runtime test 2 failed"
+ exit 1
+}
+
+if {[signed_long_long_identity $val] != $val} {
+ puts stderr "Runtime test 3 failed"
+ exit 1
+}
+
+if {[unsigned_long_long_identity $val] != $val} {
+ puts stderr "Runtime test 4 failed"
+ exit 1
+}