blob: c20cbad84616a93b8c37373fb9536a344946a64a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# 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
|