From cd6fdc6976b48b0fc7342a7aa28974a2794d802a Mon Sep 17 00:00:00 2001 From: dkf Date: Sat, 4 May 2019 07:10:34 +0000 Subject: Make sure we test [2c154a40be] explicitly. Part of [cc191552c] --- tests/basic.test | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/basic.test b/tests/basic.test index 089a62b..0202679 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -968,6 +968,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 { -- cgit v0.12