diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/io.test | 10 | ||||
| -rw-r--r-- | tests/main.test | 14 |
3 files changed, 16 insertions, 12 deletions
@@ -1,5 +1,9 @@ 2002-05-31 Don Porter <dgp@users.sourceforge.net> + * tests/io.test: + * tests/main.test: Use the "stdio" constraint to control whether + an [open "|[interpreter]"] is attempted. + * generic/tclExecute.c (TclMathInProgress,TclExecuteByteCode ExprCallMathFunc): * generic/tclInt.h (TclMathInProgress): diff --git a/tests/io.test b/tests/io.test index 5d99021..c2eae3d 100644 --- a/tests/io.test +++ b/tests/io.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.29 2002/04/16 22:35:19 dgp Exp $ +# RCS: @(#) $Id: io.test,v 1.30 2002/05/31 23:16:17 dgp Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -5693,7 +5693,7 @@ test io-48.2 {testing readability conditions} {nonBlockFiles} { vwait [namespace which -variable x] list $x $l } {done {called called called called called called called}} -test io-48.3 {testing readability conditions} {unixOnly nonBlockFiles} { +test io-48.3 {testing readability conditions} {stdio unixOnly nonBlockFiles} { set f [open bar w] puts $f abcdefg puts $f abcdefg @@ -6617,7 +6617,7 @@ test io-53.2 {CopyData} { } set result } {0 0 ok} -test io-53.3 {CopyData: background read underflow} {unixOnly} { +test io-53.3 {CopyData: background read underflow} {stdio unixOnly} { removeFile test1 removeFile pipe set f1 [open pipe w] @@ -6647,7 +6647,7 @@ test io-53.3 {CopyData: background read underflow} {unixOnly} { close $f set result } "ready line1 line2 {done\n}" -test io-53.4 {CopyData: background write overflow} {unixOnly} { +test io-53.4 {CopyData: background write overflow} {stdio unixOnly} { set big bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\n for {set x 0} {$x < 12} {incr x} { append big $big @@ -6975,7 +6975,7 @@ test io-57.2 {buffered data and file events, read} { set result } {1 readable 234567890 timer} -test io-58.1 {Tcl_NotifyChannel and error when closing} {unixOrPc} { +test io-58.1 {Tcl_NotifyChannel and error when closing} {stdio unixOrPc} { set out [open script w] puts $out { puts "normal message from pipe" diff --git a/tests/main.test b/tests/main.test index 4f91072..997a645 100644 --- a/tests/main.test +++ b/tests/main.test @@ -1,6 +1,6 @@ # This file contains a collection of tests for generic/tclMain.c. # -# RCS: @(#) $Id: main.test,v 1.8 2002/05/08 05:58:57 dgp Exp $ +# RCS: @(#) $Id: main.test,v 1.9 2002/05/31 23:16:17 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -45,7 +45,7 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.1 { Tcl_Main: startup script - normal } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} script catch {set f [open "|[list [interpreter] script]" r]} @@ -59,7 +59,7 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.2 { Tcl_Main: startup script - can't begin with '-' } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} -script catch {set f [open "|[list [interpreter] -script]" w+]} @@ -76,7 +76,7 @@ namespace eval ::tcl::test::main { Tcl_Main: encoding of arguments: done by system encoding Note the shortcoming explained in Tcl Patch 491789 } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} script catch {set f [open "|[list [interpreter] script \u00c0]" r]} @@ -92,7 +92,7 @@ namespace eval ::tcl::test::main { Tcl_Main: encoding of arguments: done by system encoding Note the shortcoming explained in Tcl Patch 491789 } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} script catch {set f [open "|[list [interpreter] script \u20ac]" r]} @@ -108,7 +108,7 @@ namespace eval ::tcl::test::main { Tcl_Main: encoding of script name: system encoding loss Note the shortcoming explained in Tcl Patch 491789 } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} \u00c0 catch {set f [open "|[list [interpreter] \u00c0]" r]} @@ -124,7 +124,7 @@ namespace eval ::tcl::test::main { Tcl_Main: encoding of script name: system encoding loss Note the shortcoming explained in Tcl Patch 491789 } -constraints { - exec + stdio } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac catch {set f [open "|[list [interpreter] \u20ac]" r]} |