diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 13:08:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 13:08:26 (GMT) |
| commit | ac4769c769196e5d84ab0a23286bec5e216f67cd (patch) | |
| tree | 38a9c5c1656ef82ff4cc5fcdc385415f132806f7 /tests/switch.test | |
| parent | c92ec0f79de7d0e4f8723f34025bc125d1a6309f (diff) | |
| parent | 0f53e9d9697ee1bf84f6fdba09ec752711484f85 (diff) | |
| download | tcl-ac4769c769196e5d84ab0a23286bec5e216f67cd.zip tcl-ac4769c769196e5d84ab0a23286bec5e216f67cd.tar.gz tcl-ac4769c769196e5d84ab0a23286bec5e216f67cd.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/switch.test')
| -rw-r--r-- | tests/switch.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/switch.test b/tests/switch.test index 2fce108..3d106c0 100644 --- a/tests/switch.test +++ b/tests/switch.test @@ -745,6 +745,13 @@ test switch-14.16 {switch -regexp compilation} { } }} } no +test switch-14.17 {switch -regexp bug [c0bc269178]} { + set result {} + switch -regexp -matchvar m -indexvar i ac { + {(a)(b)?(c)} {set result $m} + } + set result +} {ac a {} c} test switch-15.1 {coroutine safety of non-bytecoded switch} {*}{ -body { |