diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-16 09:43:17 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:52 +1000 |
commit | dbbd3ddbdbf2849591a911e6f3c0919d1e42072a (patch) | |
tree | 4315536cd2f28a8d590bf5b49a729af90283bcf4 /regtest.tcl | |
parent | f599695f837c19be5d903e5c42097b3514ea3573 (diff) | |
download | jimtcl-dbbd3ddbdbf2849591a911e6f3c0919d1e42072a.zip jimtcl-dbbd3ddbdbf2849591a911e6f3c0919d1e42072a.tar.gz jimtcl-dbbd3ddbdbf2849591a911e6f3c0919d1e42072a.tar.bz2 |
It was possible to create a bad ref
Need to fix invalid chars in the tag name
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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 4bfcba6..09b193e 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -74,6 +74,12 @@ proc a {} {{x 1}} { rename a ""; incr x } a puts "TEST 11 PASSED" +# REGTEST 12 +# 13 Sep 2010 - reference with invalid tag +set a b[ref value "tag name"] +getref [string range $a 1 end] +puts "TEST 12 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |