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

# · TCL · 16 lines · 10 code · 4 blank · 2 comment · 2 complexity · abddc928f952b3c555633679caeb2869 MD5 · raw file

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