diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /tests/main.test | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/main.test b/tests/main.test index 6b9f598..e481542 100644 --- a/tests/main.test +++ b/tests/main.test @@ -56,16 +56,16 @@ test main-2.2 {Tk_MainEx: -encoding option} -constraints stdio -setup { # Procedure to simulate interactive typing of commands, line by line, # for test 2.3 proc type {chan script} { - foreach line [split $script \n] { - if {[catch { - puts $chan $line - flush $chan - }]} { - return - } - # Grrr... Behavior depends on this value. - after 1000 - } + foreach line [split $script \n] { + if {[catch { + puts $chan $line + flush $chan + }]} { + return + } + # Grrr... Behavior depends on this value. + after 1000 + } } test main-2.3 {Tk_MainEx: -encoding option} -constraints stdio -setup { |