| 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 |
| } |