From dbbd3ddbdbf2849591a911e6f3c0919d1e42072a Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Thu, 16 Sep 2010 09:43:17 +1000 Subject: It was possible to create a bad ref Need to fix invalid chars in the tag name Signed-off-by: Steve Bennett --- regtest.tcl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'regtest.tcl') 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 ---" -- cgit v1.1