summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-05-31 23:16:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-05-31 23:16:17 (GMT)
commitbb2b38d502250c7eb2f75ce2bb44f73728647921 (patch)
tree451215e8e923bf9c8618102292ebff13e9b3f74c
parente9decfcf415943937b04c64435f13b80941a78fb (diff)
downloadtcl-bb2b38d502250c7eb2f75ce2bb44f73728647921.zip
tcl-bb2b38d502250c7eb2f75ce2bb44f73728647921.tar.gz
tcl-bb2b38d502250c7eb2f75ce2bb44f73728647921.tar.bz2
* Use the "stdio" constraint to control whether
an [open "|[interpreter]"] is attempted.
-rw-r--r--ChangeLog4
-rw-r--r--tests/io.test10
-rw-r--r--tests/main.test14
3 files changed, 16 insertions, 12 deletions
diff --git a/ChangeLog b/ChangeLog
index 3942691..851b9c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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]}