diff options
author | dgp <dgp@users.sourceforge.net> | 2018-01-25 21:28:41 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-01-25 21:28:41 (GMT) |
commit | 19c01427417c7773a8809a3c9f0f681e751d583e (patch) | |
tree | ee4ed558a6facc969f0c2d538fa9d9b2518c6e06 /tests | |
parent | aa4c4019527bd1869512b185f593eae22f342527 (diff) | |
parent | 189d0a83d2df3b9f47e30232bdf377d4daeaba2b (diff) | |
download | tcl-19c01427417c7773a8809a3c9f0f681e751d583e.zip tcl-19c01427417c7773a8809a3c9f0f681e751d583e.tar.gz tcl-19c01427417c7773a8809a3c9f0f681e751d583e.tar.bz2 |
lifetime management of files generated by tests
Diffstat (limited to 'tests')
-rw-r--r-- | tests/chanio.test | 5 | ||||
-rw-r--r-- | tests/exec.test | 1 | ||||
-rw-r--r-- | tests/io.test | 5 | ||||
-rw-r--r-- | tests/ioCmd.test | 5 |
4 files changed, 11 insertions, 5 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index db2475c..86c1485 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -5866,6 +5866,8 @@ test chan-io-47.6 {file events on shared files, deleting file events} -setup { testfevent delete chan close $f } -result {{script 1} {}} +unset path(foo) +removeFile foo set path(bar) [makeFile {} bar] @@ -5961,6 +5963,9 @@ test chan-io-48.3 {testing readability conditions} -setup { } -cleanup { chan close $f } -result {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} -setup { file delete $path(test1) set c 0 diff --git a/tests/exec.test b/tests/exec.test index 5f3a0cb..5542f3d 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -300,7 +300,6 @@ test exec-6.3 {redirecting stderr through a pipeline} {exec stdio} { # I/O redirection: combinations. set path(gorp.file2) [makeFile {} gorp.file2] -file delete $path(gorp.file2) test exec-7.1 {multiple I/O redirections} {exec} { exec << "command input" > $path(gorp.file2) [interpreter] $path(cat) < $path(gorp.file) diff --git a/tests/io.test b/tests/io.test index 197fc36..cdecb7b 100644 --- a/tests/io.test +++ b/tests/io.test @@ -6163,6 +6163,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] @@ -6265,6 +6267,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] diff --git a/tests/ioCmd.test b/tests/ioCmd.test index cd89a02..b4ba04a 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -384,7 +384,6 @@ test iocmd-10.5 {fblocked command} { set path(test4) [makeFile {} test4] set path(test5) [makeFile {} test5] -file delete $path(test5) test iocmd-11.1 {I/O to command pipelines} {unixOrPc unixExecs} { set f [open $path(test4) w] close $f @@ -3836,8 +3835,6 @@ foreach file [list test1 test2 test3 test4] { } # delay long enough for background processes to finish after 500 -foreach file [list test5] { - removeFile $file -} +removeFile test5 cleanupTests return |