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

Fix a few bugs in the tcl module related to clientdata propagation.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6357 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-10-07 02:31:14 +00:00
commit 143bfb2a62
16 changed files with 257 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Examples/test-suite/tcl/imports_runme.tcl
View file

@ -1,15 +1,19 @@
# This is the imports runtime testcase.
if [ catch { load ./imports_a[info sharedlibextension] imports_a} err_msg ] {
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_b[info sharedlibextension] imports_b} err_msg ] {
if [ catch { load ./imports_a[info sharedlibextension] imports_a} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
exit 1
}
set x [new_B]
A_hello $x
if [ catch { $x nonexistant } ] {
} else {
puts stderr "nonexistant method did not throw exception\n"
exit 1
}