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 | 0544d16162c76f35e680083e6553e31b31cdd7cd (patch) | |
| tree | 47bae46b5dad252eb56aae41a755f5171fb47235 /tests/basic.test | |
| parent | e7482865ebacc5a0e655c0660022011ac353c7a7 (diff) | |
| download | tcl-0544d16162c76f35e680083e6553e31b31cdd7cd.zip tcl-0544d16162c76f35e680083e6553e31b31cdd7cd.tar.gz tcl-0544d16162c76f35e680083e6553e31b31cdd7cd.tar.bz2 | |
Make sure we test [2c154a40be] explicitly. Part of [cc191552c]
Diffstat (limited to 'tests/basic.test')
| -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 { |