diff options
| author | dgp <dgp@noemail.net> | 2003-01-28 17:59:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2003-01-28 17:59:00 (GMT) |
| commit | 6ac8e6594411a9d5a3ee4dc8d2585eb3b5a922f3 (patch) | |
| tree | 24811b720d0ad2d39ed8b4119e8e1e551335d6f4 /tests/main.test | |
| parent | 082c36ecaa2ee63d47378c23a9daf5e69e166050 (diff) | |
| download | tcl-6ac8e6594411a9d5a3ee4dc8d2585eb3b5a922f3.zip tcl-6ac8e6594411a9d5a3ee4dc8d2585eb3b5a922f3.tar.gz tcl-6ac8e6594411a9d5a3ee4dc8d2585eb3b5a922f3.tar.bz2 | |
* tests/main.test: Constrain tests that do not work on Windows.
FossilOrigin-Name: 4526b1dfd4af31551fad9e5ecea0a9286ad32a56
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 bb1b8d0..f0ad3c0 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.10 2002/07/03 19:40:31 dgp Exp $ +# RCS: @(#) $Id: main.test,v 1.11 2003/01/28 17:59:12 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -77,7 +77,7 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.3 { Tcl_Main: encoding of arguments: done by system encoding - Note the shortcoming explained in Tcl Patch 491789 + Note the shortcoming explained in Tcl Feature Request 491789 } -constraints { stdio } -setup { @@ -93,9 +93,9 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.4 { Tcl_Main: encoding of arguments: done by system encoding - Note the shortcoming explained in Tcl Patch 491789 + Note the shortcoming explained in Tcl Feature Request 491789 } -constraints { - stdio + stdio tempNotWin } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} script catch {set f [open "|[list [interpreter] script \u20ac]" r]} @@ -109,7 +109,7 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.5 { Tcl_Main: encoding of script name: system encoding loss - Note the shortcoming explained in Tcl Patch 491789 + Note the shortcoming explained in Tcl Feature Request 491789 } -constraints { stdio } -setup { @@ -125,9 +125,9 @@ namespace eval ::tcl::test::main { test Tcl_Main-1.6 { Tcl_Main: encoding of script name: system encoding loss - Note the shortcoming explained in Tcl Patch 491789 + Note the shortcoming explained in Tcl Feature Request 491789 } -constraints { - stdio + stdio tempNotWin } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac catch {set f [open "|[list [interpreter] \u20ac]" r]} |