diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-04 09:40:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-04 09:40:05 (GMT) |
| commit | 66197cab8b6c43b474a6dceae32fc95f4eed37b9 (patch) | |
| tree | 1d10ef31cbdb4a204fa0c6966663b32cd6da4685 /tests/subst.test | |
| parent | 8c3587a6e899c6fd12fd0563312c4a20c289d8fd (diff) | |
| parent | 35051648affc3b6e48d6abe8f629810f28a80112 (diff) | |
| download | tcl-66197cab8b6c43b474a6dceae32fc95f4eed37b9.zip tcl-66197cab8b6c43b474a6dceae32fc95f4eed37b9.tar.gz tcl-66197cab8b6c43b474a6dceae32fc95f4eed37b9.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'tests/subst.test')
| -rw-r--r-- | tests/subst.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/subst.test b/tests/subst.test index 2115772..189dfe8 100644 --- a/tests/subst.test +++ b/tests/subst.test @@ -91,29 +91,29 @@ test subst-5.4 {command substitutions} { } {1 {invalid command name "bogus_command"}} test subst-5.5 {command substitutions} { set a 0 - list [catch {subst {[set a 1}} msg] $a $msg + list [catch {subst {[set a 1}} msg] $a $msg } {1 0 {missing close-bracket}} test subst-5.6 {command substitutions} { set a 0 - list [catch {subst {0[set a 1}} msg] $a $msg + list [catch {subst {0[set a 1}} msg] $a $msg } {1 0 {missing close-bracket}} test subst-5.7 {command substitutions} { set a 0 - list [catch {subst {0[set a 1; set a 2}} msg] $a $msg + list [catch {subst {0[set a 1; set a 2}} msg] $a $msg } {1 1 {missing close-bracket}} # repeat the tests above simulating cmd line input test subst-5.8 {command substitutions} { set script {[subst {[set a 1}]} - list [catch {exec [info nameofexecutable] << $script} msg] $msg + list [catch {exec [info nameofexecutable] << $script} msg] $msg } {1 {missing close-bracket}} test subst-5.9 {command substitutions} { set script {[subst {0[set a 1}]} - list [catch {exec [info nameofexecutable] << $script} msg] $msg + list [catch {exec [info nameofexecutable] << $script} msg] $msg } {1 {missing close-bracket}} test subst-5.10 {command substitutions} { set script {[subst {0[set a 1; set a 2}]} - list [catch {exec [info nameofexecutable] << $script} msg] $msg + list [catch {exec [info nameofexecutable] << $script} msg] $msg } {1 {missing close-bracket}} test subst-6.1 {clear the result after command substitution} -body { |