diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2019-05-04 15:04:23 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2019-05-04 15:04:23 (GMT) |
| commit | 845ae3654831ec237a2f37cf6a8b411ddcd635f7 (patch) | |
| tree | 29b9e492800d3821aef737517212805da2e8b2fa | |
| parent | 951df2e52aa490d31e63ab402c038a8f3370a904 (diff) | |
| parent | 55b6550aaaa24d97ad6841977887a26b1ee8ea27 (diff) | |
| download | tcl-845ae3654831ec237a2f37cf6a8b411ddcd635f7.zip tcl-845ae3654831ec237a2f37cf6a8b411ddcd635f7.tar.gz tcl-845ae3654831ec237a2f37cf6a8b411ddcd635f7.tar.bz2 | |
merge 8.6 - missed basic.test on prior merge
| -rw-r--r-- | tests/basic.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/basic.test b/tests/basic.test index 1890042..4561667 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -964,6 +964,18 @@ test basic-48.24.$noComp {expansion: empty not canonical list, regression test, run {list [list {*}{ }] [list {*}[format %c 32]] [list {*}[set a { }]]} } -result [lrepeat 3 {}] -cleanup {unset -nocomplain a} +test basic-48.25.$noComp {Bug cc191552c: expansion: empty non-canonical list} -setup { + unset -nocomplain ::CRLF + set ::CRLF "\r\n" +} -body { + # Force variant that turned up in Bug 2c154a40be as that's externally + # noticeable in an important downstream project. + run {scan [list {*}$::CRLF]x %c%c%c} +} -cleanup { + unset -nocomplain ::CRLF +} -result {120 {} {}} + + } ;# End of noComp loop test basic-49.1 {Tcl_EvalEx: verify TCL_EVAL_GLOBAL operation} testevalex { |