jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct TCL integers testcase for 32-bit platforms

Browse source
This commit is contained in:
William S Fulton 2022-09-09 22:53:07 +01:00
commit ad1688055d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Examples/test-suite/tcl/integers_runme.tcl
View file

@ -2,12 +2,14 @@ if [ catch { load ./integers[info sharedlibextension] integers} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg" puts stderr "Could not load shared object:\n$err_msg"
} }
set val 3902408827 # 32-bit long max
set val 2147483647
if {[signed_long_identity $val] != $val} { if {[signed_long_identity $val] != $val} {
puts stderr "Runtime test 1 failed" puts stderr "Runtime test 1 failed"
exit 1 exit 1
} }
set val 3902408827
if {[unsigned_long_identity $val] != $val} { if {[unsigned_long_identity $val] != $val} {
puts stderr "Runtime test 2 failed" puts stderr "Runtime test 2 failed"
exit 1 exit 1