diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-16 06:15:36 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-16 06:15:36 (GMT) |
| commit | ccf857a3db566e41ba8167be6442441cdf92a9e3 (patch) | |
| tree | d1dcd39b0279438bcb4ad4e999d9cd0e14669b81 /tests/lreplace.test | |
| parent | 3fb975f30d7177b4fc0dc5ca5a8273b295cae043 (diff) | |
| download | tcl-ccf857a3db566e41ba8167be6442441cdf92a9e3.zip tcl-ccf857a3db566e41ba8167be6442441cdf92a9e3.tar.gz tcl-ccf857a3db566e41ba8167be6442441cdf92a9e3.tar.bz2 | |
Bug [a366c6efee]
Diffstat (limited to 'tests/lreplace.test')
| -rw-r--r-- | tests/lreplace.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test index 009170e..55b3ee3 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -505,6 +505,15 @@ test ledit-5.2 {compiled lreplace: Bug 47ac84309b} { }} {a b c} } {a b A c} +test ledit-bug-a366c6efee {Bug [a366c6efee]} -body { + apply {{} { + set l { } + string length [ledit l 1 1]; # Force string generation + set result foo + append result " " bar + }} +} -result "foo bar" + # Testing for compiled behaviour. Far too many variations to check with # spelt-out tests. Note that this *just* checks whether the compiled version # and the interpreted version are the same, not whether the interpreted |