diff options
author | Steve Bennett <steveb@workware.net.au> | 2024-02-15 08:47:44 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2024-02-15 08:47:44 +1000 |
commit | d1612743af1e84d5eafd4f3ee5ac5ebeaab12d4e (patch) | |
tree | c270669e0d9d1bc3dcc8a55b03eeb3b6348cbf5e /tests/subst.test | |
parent | 67e32c82fa2248a70a02d0828b8785b9a25692b0 (diff) | |
download | jimtcl-d1612743af1e84d5eafd4f3ee5ac5ebeaab12d4e.zip jimtcl-d1612743af1e84d5eafd4f3ee5ac5ebeaab12d4e.tar.gz jimtcl-d1612743af1e84d5eafd4f3ee5ac5ebeaab12d4e.tar.bz2 |
subst: don't ignore vars after first failed var
If $ is followed by something that isn't a variable name,
previously all subsequent variables were being ignored.
Fixes #296
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/subst.test')
-rw-r--r-- | tests/subst.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/subst.test b/tests/subst.test index 5128a99..5450130 100644 --- a/tests/subst.test +++ b/tests/subst.test @@ -176,6 +176,11 @@ test subst-12.3 {variable inside [] with -noc} { subst -noc {x[join $a]y} } {x[join 1]y} +test subst-12.4 {variable after not variable} { + set a 1 + subst -noc {$\[ $a} +} {$[ 1} + # cleanup testreport |