diff options
| author | Marcelo Matus <mmatus@acms.arizona.edu> | 2005-10-26 07:08:18 +0000 |
|---|---|---|
| committer | Marcelo Matus <mmatus@acms.arizona.edu> | 2005-10-26 07:08:18 +0000 |
| commit | 1fa14f74a77df4d49bfd06b41a2ac17b0331d1d9 (patch) | |
| tree | 28756aa00dcb66f8d3cde26a196cb9ebbb0843fa /Examples/test-suite/tcl/disown_runme.tcl | |
| parent | 46c43c51cd203255aa3401c41ecc5d310b7ec9ca (diff) | |
| download | swig-1fa14f74a77df4d49bfd06b41a2ac17b0331d1d9.tar.gz | |
add disown.i and li_attribute.i
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7726 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/test-suite/tcl/disown_runme.tcl')
| -rw-r--r-- | Examples/test-suite/tcl/disown_runme.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/disown_runme.tcl b/Examples/test-suite/tcl/disown_runme.tcl new file mode 100644 index 000000000..d6647c037 --- /dev/null +++ b/Examples/test-suite/tcl/disown_runme.tcl @@ -0,0 +1,16 @@ + +# This is the union runtime testcase. It ensures that values within a +# union embedded within a struct can be set and read correctly. + +if [ catch { load ./disown[info sharedlibextension] disown} err_msg ] { + puts stderr "Could not load shared object:\n$err_msg" +} + +set x 0 +while {$x<100} { + set a [new_A] + B b + b acquire $a + incr x +} + |