From c71e44408e9b40395f6a6be8e73df1cf530da7f9 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 9 Jan 2002 19:03:34 +0000
Subject: 	More changes for test portability.  Using euro symbol.

---
 tests/main.test | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tests/main.test b/tests/main.test
index 3916e53..18d3ea3 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.2 2002/01/09 17:50:56 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.3 2002/01/09 19:03:34 dgp Exp $
 
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script]. tcltest v2 needed."
@@ -87,14 +87,14 @@ namespace eval ::tcl::main::test {
 	Note the shortcoming explained in Tcl Patch 491789
     } -constraints [list exec] -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
-	set f [open "|[interpreter] script \u1234" r]
+	set f [open "|[interpreter] script \u20ac" r]
     } -body {
 	read $f
     } -cleanup {
 	close $f
 	removeFile script
     } -result [list script [list [encoding convertfrom [encoding system] \
-	[encoding convertto [encoding system] \u1234]]] 0]\n
+	[encoding convertto [encoding system] \u20ac]]] 0]\n
 
     test Tcl_Main-1.5 {
 	Tcl_Main: encoding of script name: system encoding loss
@@ -114,15 +114,15 @@ namespace eval ::tcl::main::test {
 	Tcl_Main: encoding of script name: system encoding loss
 	Note the shortcoming explained in Tcl Patch 491789
     } -constraints [list exec] -setup {
-	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u1234
-	set f [open "|[interpreter] \u1234" r]
+	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac
+	set f [open "|[interpreter] \u20ac" r]
     } -body {
 	read $f
     } -cleanup {
 	close $f
-	removeFile \u1234
+	removeFile \u20ac
     } -result [list [list [encoding convertfrom [encoding system] \
-	[encoding convertto [encoding system] \u1234]]] {} 0]\n
+	[encoding convertto [encoding system] \u20ac]]] {} 0]\n
 
     # Tests Tcl_Main-2.*: application-initialization procedure
 
-- 
cgit v0.12