diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-06-21 22:19:09 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-06-21 22:37:30 +1000 |
| commit | 26b7dc6cfe26e29f19301da17ac8677263c14c3b (patch) | |
| tree | 6b3ef228dadbd747107e244322de5a4445f54512 /regtest.tcl | |
| parent | fbc998db178da5c462e164b63da128a7d7412e37 (diff) | |
| download | jimtcl-26b7dc6cfe26e29f19301da17ac8677263c14c3b.zip jimtcl-26b7dc6cfe26e29f19301da17ac8677263c14c3b.tar.gz jimtcl-26b7dc6cfe26e29f19301da17ac8677263c14c3b.tar.bz2 | |
Fix crash on dup of object with script rep
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 49a3d53..7561a60 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -135,6 +135,13 @@ puts "TEST 20 PASSED" subst "abc\0def" puts "TEST 21 PASSED" +# REGTEST 22 +# 21 June 2011 - crashes on lappend to to value with script rep +set x rand +eval $x +lappend x b +puts "TEST 22 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |