summaryrefslogtreecommitdiffstats
path: root/tests/main.test
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-11-18 15:50:54 (GMT)
committernijtmans <nijtmans>2010-11-18 15:50:54 (GMT)
commitf28ef85d5042bec36c50cd1cffae54933cc04cfc (patch)
tree6e4592099c7c0f31773ba99eb868f631eb7cd84e /tests/main.test
parent525ab21f8c78e625ec3cf9067cfdfe83849e270c (diff)
downloadtcl-f28ef85d5042bec36c50cd1cffae54933cc04cfc.zip
tcl-f28ef85d5042bec36c50cd1cffae54933cc04cfc.tar.gz
tcl-f28ef85d5042bec36c50cd1cffae54933cc04cfc.tar.bz2
[FRQ 491789]: "setargv() doesn't support a unicode cmdline"
now implemented for cygwin and mingw32 too. No longer disable tests Tcl_Main-1.4 and 1.6 on Windows, because those now work on all supported platforms.
Diffstat (limited to 'tests/main.test')
-rw-r--r--tests/main.test14
1 files changed, 3 insertions, 11 deletions
diff --git a/tests/main.test b/tests/main.test
index 24d1fb5..98de6a9 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.22 2007/12/13 15:26:06 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.23 2010/11/18 15:50:54 nijtmans Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -68,8 +68,6 @@ namespace eval ::tcl::test::main {
} -result [list [interpreter] -script 0]\n
test Tcl_Main-1.3 {
- Tcl_Main: encoding of arguments: done by system encoding
- Note the shortcoming explained in Tcl Feature Request 491789
} -constraints {
stdio
} -setup {
@@ -84,10 +82,8 @@ namespace eval ::tcl::test::main {
[encoding convertto [encoding system] \u00c0]]] 0]\n
test Tcl_Main-1.4 {
- Tcl_Main: encoding of arguments: done by system encoding
- Note the shortcoming explained in Tcl Feature Request 491789
} -constraints {
- stdio tempNotWin
+ stdio
} -setup {
makeFile {puts [list $argv0 $argv $tcl_interactive]} script
catch {set f [open "|[list [interpreter] script \u20ac]" r]}
@@ -100,8 +96,6 @@ namespace eval ::tcl::test::main {
[encoding convertto [encoding system] \u20ac]]] 0]\n
test Tcl_Main-1.5 {
- Tcl_Main: encoding of script name: system encoding loss
- Note the shortcoming explained in Tcl Feature Request 491789
} -constraints {
stdio
} -setup {
@@ -116,10 +110,8 @@ namespace eval ::tcl::test::main {
[encoding convertto [encoding system] \u00c0]]] {} 0]\n
test Tcl_Main-1.6 {
- Tcl_Main: encoding of script name: system encoding loss
- Note the shortcoming explained in Tcl Feature Request 491789
} -constraints {
- stdio tempNotWin
+ stdio
} -setup {
makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac
catch {set f [open "|[list [interpreter] \u20ac]" r]}