diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-01-08 14:39:59 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-01-08 14:39:59 (GMT) |
| commit | 9ad3d4b7b182e5ef54ebddd3c84b8eefd803b86c (patch) | |
| tree | e84a578cb9183595223190de70e3a28b05de0560 | |
| parent | 97ef187e5b07fc14f06183a402e5d0f286854913 (diff) | |
| download | tcl-9ad3d4b7b182e5ef54ebddd3c84b8eefd803b86c.zip tcl-9ad3d4b7b182e5ef54ebddd3c84b8eefd803b86c.tar.gz tcl-9ad3d4b7b182e5ef54ebddd3c84b8eefd803b86c.tar.bz2 | |
amend to [a87460dbd4], added clean-up to avoid error {can't set "a(x)": variable isn't array} on next iteration of noComp loop.
| -rw-r--r-- | tests/basic.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/basic.test b/tests/basic.test index 137ad53..089a62b 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -962,9 +962,11 @@ test basic-48.23.$noComp {expansion: handle return codes} -constraints $constrai unset res t } -result {0 10 1 Hejsan} -test basic-48.24.$noComp {expansion: empty not canonical list, regression test, bug [cc1e91552c]} $constraints { +test basic-48.24.$noComp {expansion: empty not canonical list, regression test, bug [cc1e91552c]} -constraints $constraints -setup { + unset -nocomplain a +} -body { run {list [list {*}{ }] [list {*}[format %c 32]] [list {*}[set a { }]]} -} [lrepeat 3 {}] +} -result [lrepeat 3 {}] -cleanup {unset -nocomplain a} } ;# End of noComp loop |