/trunk/Examples/test-suite/tcl/disown_runme.tcl
TCL | 16 lines | 10 code | 4 blank | 2 comment | 2 complexity | abddc928f952b3c555633679caeb2869 MD5 | raw file
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