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/io.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/io.test')
| -rw-r--r-- | tests/io.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/io.test b/tests/io.test index 7275b42..5529881 100644 --- a/tests/io.test +++ b/tests/io.test @@ -6130,6 +6130,8 @@ test io-47.6 {file events on shared files, deleting file events} {testfevent fil close $f set x } {{script 1} {}} +unset path(foo) +removeFile foo set path(bar) [makeFile {} bar] @@ -6232,6 +6234,9 @@ test io-48.3 {testing readability conditions} {stdio unix nonBlockFiles openpipe 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 io-48.4 {lf write, testing readability, ^Z termination, auto read mode} {fileevent} { file delete $path(test1) set f [open $path(test1) w] |