diff options
author | Steve Bennett <steveb@workware.net.au> | 2022-04-12 07:32:32 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2022-04-12 07:34:09 +1000 |
commit | 15a1851fbe5ebfde44a0c4a13ef95fdda5edd6c8 (patch) | |
tree | 473b69ad96f680afdb569df918a09347af3adfdc /tests | |
parent | 5c6703fc637f10f1bbba8fb079f5fdd188ff4efb (diff) | |
download | jimtcl-15a1851fbe5ebfde44a0c4a13ef95fdda5edd6c8.zip jimtcl-15a1851fbe5ebfde44a0c4a13ef95fdda5edd6c8.tar.gz jimtcl-15a1851fbe5ebfde44a0c4a13ef95fdda5edd6c8.tar.bz2 |
getref, setref: No need to allow for leading, trailing space
There is no reason to allow a reference to contain leading and/or
trailing white space, so remove this check and simply treat
it as an invalid reference.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/coverage.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/coverage.test b/tests/coverage.test index 1157ee2..05d03cf 100644 --- a/tests/coverage.test +++ b/tests/coverage.test @@ -81,8 +81,7 @@ test script-1 {convert empty object to script} { test ref-1 {treat something as a reference} getref { set ref [ref abc tag] - append ref " " - getref " $ref " + getref $ref } {abc} test ref-2 {getref invalid reference} -constraints getref -body { |