diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-10 15:02:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-10 15:02:39 (GMT) |
commit | 9eb49d93930b8d8aad440b84d7de52bade90a00f (patch) | |
tree | 5a5c93a98c5f946ef4933585c481de11440a7110 /tests/event.test | |
parent | 5c17e4a3f3ba4fd9835303849015ea9d0954b0b6 (diff) | |
parent | fd3f2b486c4c480c2fc90ae0a6845bfe0fb310a7 (diff) | |
download | tcl-9eb49d93930b8d8aad440b84d7de52bade90a00f.zip tcl-9eb49d93930b8d8aad440b84d7de52bade90a00f.tar.gz tcl-9eb49d93930b8d8aad440b84d7de52bade90a00f.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/event.test b/tests/event.test index 5984527..b42909c 100644 --- a/tests/event.test +++ b/tests/event.test @@ -27,12 +27,13 @@ testConstraint exec [llength [info commands exec]] test event-1.1 {Tcl_CreateFileHandler, reading} -setup { testfilehandler close set result "" -} -constraints {testfilehandler nonPortable} -body { +} -constraints testfilehandler -body { testfilehandler create 0 readable off testfilehandler clear 0 testfilehandler oneevent lappend result [testfilehandler counts 0] testfilehandler fillpartial 0 + update idletasks testfilehandler oneevent lappend result [testfilehandler counts 0] testfilehandler oneevent |