23 lines
556 B
Tcl
23 lines
556 B
Tcl
|
|
||
|
|
# This is the imports runtime testcase.
|
||
|
|
proc import {} {
|
||
|
|
if [ catch { load ./imports_b[info sharedlibextension] Imports_b} err_msg ] {
|
||
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
if [ catch { load ./imports_a[info sharedlibextension] Imports_a} err_msg ] {
|
||
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
import
|
||
|
|
|
||
|
|
set x [new_B]
|
||
|
|
A_hello $x
|
||
|
|
if [ catch { $x nonexistent } ] {
|
||
|
|
} else {
|
||
|
|
puts stderr "nonexistent method did not throw exception\n"
|
||
|
|
exit 1
|
||
|
|
}
|