diff options
author | dgp <dgp@users.sourceforge.net> | 2018-01-29 13:18:39 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-01-29 13:18:39 (GMT) |
commit | 4f918b61b0cdd470824ce7a6198b89e8b6b90ca0 (patch) | |
tree | 0ccec66e782c119a5d30ba536683f91cfabeaaa9 /tests | |
parent | 68214211b7b63be8a757a494bacc588c4880deb3 (diff) | |
parent | 876f2d5b633933c4d5a652a0bc4e1742893cc458 (diff) | |
download | tcl-4f918b61b0cdd470824ce7a6198b89e8b6b90ca0.zip tcl-4f918b61b0cdd470824ce7a6198b89e8b6b90ca0.tar.gz tcl-4f918b61b0cdd470824ce7a6198b89e8b6b90ca0.tar.bz2 |
merge 8.7
Diffstat (limited to 'tests')
-rw-r--r-- | tests/chanio.test | 7 | ||||
-rw-r--r-- | tests/exec.test | 1 | ||||
-rw-r--r-- | tests/info.test | 2 | ||||
-rw-r--r-- | tests/io.test | 5 | ||||
-rw-r--r-- | tests/ioCmd.test | 5 | ||||
-rw-r--r-- | tests/join.test | 5 | ||||
-rw-r--r-- | tests/oo.test | 4 |
7 files changed, 19 insertions, 10 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 2d900d0..97e7e70 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 @@ -6790,8 +6795,6 @@ test chan-io-52.11 {TclCopyChannel & encodings} -setup { chan close $in chan close $out file size $path(kyrillic.txt) -} -cleanup { - file delete $path(utf8-fcopy.txt) } -result 3 test chan-io-53.1 {CopyData} -setup { diff --git a/tests/exec.test b/tests/exec.test index dffd960..3d1cd56 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/info.test b/tests/info.test index fd89b47..8176ad3 100644 --- a/tests/info.test +++ b/tests/info.test @@ -2398,7 +2398,7 @@ test info-33.35 {{*}, literal, simple, bytecompiled} -body { # ------------------------------------------------------------------------- unset -nocomplain res -test info-39.0 {Bug 4b61afd660} -setup { +test info-39.2 {Bug 4b61afd660} -setup { proc probe {} { return [dict get [info frame -1] line] } diff --git a/tests/io.test b/tests/io.test index 5c81d52..20bb565 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 diff --git a/tests/join.test b/tests/join.test index 4abe233..4aeb093 100644 --- a/tests/join.test +++ b/tests/join.test @@ -45,6 +45,11 @@ test join-3.1 {joinString is binary ok} { test join-3.2 {join is binary ok} { string length [join "a\0b a\0b a\0b"] } 11 + +test join-4.1 {shimmer segfault prevention} { + set l {0 0} + join $l $l +} {00 00} # cleanup ::tcltest::cleanupTests diff --git a/tests/oo.test b/tests/oo.test index 3be5f79..4f9490b 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -1707,13 +1707,13 @@ test oo-13.2 {OO: changing an object's class} -body { oo::objdefine foo class oo::class } -cleanup { foo destroy -} -returnCodes 1 -result {may not change a non-class object into a class object} +} -result {} test oo-13.3 {OO: changing an object's class} -body { oo::class create foo oo::objdefine foo class oo::object } -cleanup { foo destroy -} -returnCodes 1 -result {may not change a class object into a non-class object} +} -result {} test oo-13.4 {OO: changing an object's class} -body { oo::class create foo { method m {} { |