diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-22 22:54:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-22 22:54:32 (GMT) |
| commit | a9c238476a0aa2d6f10765f010b99944d3a7a9c3 (patch) | |
| tree | c0028f42647dae829b55e1c72bf8f2796afb016f /tests | |
| parent | cfafc391f28d31c858fd0ec5c67681349d65e339 (diff) | |
| download | tcl-a9c238476a0aa2d6f10765f010b99944d3a7a9c3.zip tcl-a9c238476a0aa2d6f10765f010b99944d3a7a9c3.tar.gz tcl-a9c238476a0aa2d6f10765f010b99944d3a7a9c3.tar.bz2 | |
Add [regsub -command] case that wasn't actively tested for.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regexp.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 2686526..7367af7 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -1184,6 +1184,10 @@ test regexp-27.10 {regsub -command error cases} -returnCodes error -body { test regexp-27.11 {regsub -command error cases} -returnCodes error -body { regsub -command . abc {} } -result {command prefix must be a list of at least one element} +test regexp-27.12 {regsub -command representation smash} { + set s {list (.+)} + regsub -command $s {list list} $s +} {(.+) {list list} list} # cleanup ::tcltest::cleanupTests |