diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-05-04 07:10:34 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-05-04 07:10:34 (GMT) |
| commit | cd6fdc6976b48b0fc7342a7aa28974a2794d802a (patch) | |
| tree | 47bae46b5dad252eb56aae41a755f5171fb47235 | |
| parent | 48891ff56a16c20d88b9643b9949a9915208188f (diff) | |
| download | tcl-cd6fdc6976b48b0fc7342a7aa28974a2794d802a.zip tcl-cd6fdc6976b48b0fc7342a7aa28974a2794d802a.tar.gz tcl-cd6fdc6976b48b0fc7342a7aa28974a2794d802a.tar.bz2 | |
Make sure we test [2c154a40be] explicitly. Part of [cc191552c]
| -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 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 { |