/trunk/Examples/test-suite/tcl/disown_runme.tcl

 1
 2# This is the union runtime testcase. It ensures that values within a 
 3# union embedded within a struct can be set and read correctly.
 4
 5if [ catch { load ./disown[info sharedlibextension] disown} err_msg ] {
 6	puts stderr "Could not load shared object:\n$err_msg"
 7}
 8
 9set x 0
10while {$x<100} {
11  set a [new_A]
12  B b
13  b acquire $a
14  incr x
15}
16