diff options
author | Alistair Delva <adelva@google.com> | 2024-04-10 14:15:29 -0700 |
---|---|---|
committer | Alistair Delva <adelva@google.com> | 2024-04-11 12:58:28 -0700 |
commit | d0f0f90be16c2ac553b5fa08512045273135147a (patch) | |
tree | 5d9ebb7a04807ea8a609ddd18b0162bc87530e4b /Examples/test-suite/tcl/integers_runme.tcl | |
parent | 6ffc1dbf29ba98c4d8aa71ebc9b484e973fe1030 (diff) | |
download | swig-d0f0f90be16c2ac553b5fa08512045273135147a.tar.gz |
Update to v4.2.1HEADmastermainllvm-r522817
Change-Id: I47cef2be94299220d80265d949a95b58eee2c23b
Diffstat (limited to 'Examples/test-suite/tcl/integers_runme.tcl')
-rw-r--r-- | Examples/test-suite/tcl/integers_runme.tcl | 26 |
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 +} |