diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-08-08 20:19:42 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-08-08 20:19:42 (GMT) |
| commit | 9cf3a2d0ddd97f3b7da0745a5e24799142518966 (patch) | |
| tree | 39b9cee670b71ee268525cf87d7147619a10f785 /tests | |
| parent | c6231b1c533e51b43573ca0835a9e53c45934a74 (diff) | |
| parent | ff8b406a229996267575c5eb94f2149af2e52901 (diff) | |
| download | tcl-dkf_command_type.zip tcl-dkf_command_type.tar.gz tcl-dkf_command_type.tar.bz2 | |
merge trunkdkf_command_type
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.test | 6 | ||||
| -rw-r--r-- | tests/unixForkEvent.test | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/tests/parse.test b/tests/parse.test index 9f2d50b..01443c9 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -1118,6 +1118,12 @@ test parse-21.0 {Bug 1884496} testevent { testevent queue a head $::script vwait done } {} +test parse-21.1 {TCL_EVAL_DIRECT coverage} testevent { + testevent queue a head {testevent delete a; \ + set ::done [dict get [info frame 0] line]} + vwait done + set ::done +} 2 cleanupTests } diff --git a/tests/unixForkEvent.test b/tests/unixForkEvent.test index cbe582e..120f362 100644 --- a/tests/unixForkEvent.test +++ b/tests/unixForkEvent.test @@ -16,7 +16,7 @@ testConstraint testfork [llength [info commands testfork]] # Test if the notifier thread is well initialized in a forked interpreter # by Tcl_InitNotifier test unixforkevent-1.1 {fork and test writeable event} \ - -constraints testfork \ + -constraints {testfork nonPortable} \ -body { set myFolder [makeDirectory unixtestfork] set pid [testfork] |