516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
26 lines
714 B
Tcl
26 lines
714 B
Tcl
|
|
# This is the imports runtime testcase.
|
|
|
|
if { [ string match $tcl_platform(os) Windows* ] == 1 } {
|
|
if [ catch { load ./imports_a.dll imports_a} err_msg ] { ;# Windows
|
|
puts stderr "Could not load dll:\n$err_msg"
|
|
exit 1
|
|
}
|
|
if [ catch { load ./imports_b.dll imports_b} err_msg ] { ;# Windows
|
|
puts stderr "Could not load dll:\n$err_msg"
|
|
exit 1
|
|
}
|
|
} else {
|
|
if [ catch { load ./imports_a.so imports_a} err_msg ] {
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
|
exit 1
|
|
}
|
|
if [ catch { load ./imports_b.so imports_b} err_msg ] {
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
|
exit 1
|
|
}
|
|
}
|
|
|
|
set x [new_B]
|
|
A_hello $x
|
|
|