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/main.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/main.test')
-rw-r--r-- | tests/main.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/main.test b/tests/main.test index b0edb84..c4bb48d 100644 --- a/tests/main.test +++ b/tests/main.test @@ -613,7 +613,7 @@ namespace eval ::tcl::test::main { variable wait chan event $f readable \ [list set [namespace which -variable wait] "child exit"] - set id [after 2000 [list set [namespace which -variable wait] timeout]] + set id [after 5000 [list set [namespace which -variable wait] timeout]] vwait [namespace which -variable wait] after cancel $id set wait @@ -636,7 +636,7 @@ namespace eval ::tcl::test::main { variable wait chan event $f readable \ [list set [namespace which -variable wait] "child exit"] - set id [after 2000 [list set [namespace which -variable wait] timeout]] + set id [after 5000 [list set [namespace which -variable wait] timeout]] vwait [namespace which -variable wait] after cancel $id set wait @@ -719,7 +719,7 @@ namespace eval ::tcl::test::main { } -result "Exit MainLoop\nIn exit\neven 0\n" test Tcl_Main-5.9 { - Tcl_Main: interactive mode: delete interp + Tcl_Main: interactive mode: delete interp -> main loop & exit handlers, but no [exit] } -constraints { exec Tcltest |