diff options
author | dgp <dgp@users.sourceforge.net> | 2018-01-25 21:15:36 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-01-25 21:15:36 (GMT) |
commit | 189d0a83d2df3b9f47e30232bdf377d4daeaba2b (patch) | |
tree | e1a00ebb1885d147e7f44a428fe004488b685ed6 /tests/chanio.test | |
parent | f08ea445641489126720965930b2f1e96d44696c (diff) | |
download | tcl-189d0a83d2df3b9f47e30232bdf377d4daeaba2b.zip tcl-189d0a83d2df3b9f47e30232bdf377d4daeaba2b.tar.gz tcl-189d0a83d2df3b9f47e30232bdf377d4daeaba2b.tar.bz2 |
lifetime management of files generated by tests
Diffstat (limited to 'tests/chanio.test')
-rw-r--r-- | tests/chanio.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 2f2540e..541c20d 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -5732,6 +5732,8 @@ test chan-io-47.6 {file events on shared files, deleting file events} {testfeven chan close $f set x } {{script 1} {}} +unset path(foo) +removeFile foo set path(bar) [makeFile {} bar] @@ -5834,6 +5836,9 @@ test chan-io-48.3 {testing readability conditions} {stdio unix nonBlockFiles ope chan close $f list $x $l } {done {0 1 0 1 0 1 0 1 0 1 0 1 0 0}} +unset path(bar) +removeFile bar + test chan-io-48.4 {lf write, testing readability, ^Z termination, auto read mode} {fileevent} { file delete $path(test1) set f [open $path(test1) w] |