diff options
Diffstat (limited to 'regtest.tcl')
-rw-r--r-- | regtest.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index d144152..2f09700 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -204,6 +204,12 @@ catch { } puts "TEST 28 PASSED" +# REGTEST 29 +# Reference counting problem at exit +set x [lindex {} 0] +info source $x +eval $x + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |