diff options
author | dgp <dgp@noemail.net> | 2002-05-31 23:16:16 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-05-31 23:16:16 (GMT) |
commit | e96af829a329e7803cebebfea974961171f4998c (patch) | |
tree | 451215e8e923bf9c8618102292ebff13e9b3f74c /tests/main.test | |
parent | bc7ec9f920ea84ea10de31437674a425574ad7db (diff) | |
download | tcl-e96af829a329e7803cebebfea974961171f4998c.zip tcl-e96af829a329e7803cebebfea974961171f4998c.tar.gz tcl-e96af829a329e7803cebebfea974961171f4998c.tar.bz2 |
* Use the "stdio" constraint to control whether
an [open "|[interpreter]"] is attempted.
FossilOrigin-Name: 0d22f3e09c868323c68b116eba557497a968cb6b
Diffstat (limited to 'tests/main.test')
-rw-r--r-- | tests/main.test | 14 |
1 files changed, 7 insertions, 7 deletions
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]} |