diff options
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/main.test b/tests/main.test index 351fd4f..324b594 100644 --- a/tests/main.test +++ b/tests/main.test @@ -66,6 +66,8 @@ 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 { @@ -80,8 +82,10 @@ 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 + stdio tempNotWin } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} script catch {set f [open "|[list [interpreter] script \u20ac]" r]} @@ -94,6 +98,8 @@ 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 { @@ -108,8 +114,10 @@ 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 + stdio tempNotWin } -setup { makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac catch {set f [open "|[list [interpreter] \u20ac]" r]} |