From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 31 Mar 2007 06:16:09 +0000 (+0000)
Subject: Don't use utf8.pm in the test (avoiding embedding utf8 in the test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40986f42b4dca4ed841e1a7f7d848e9b5f199680;p=p5sagit%2Fp5-mst-13.2.git

Don't use utf8.pm in the test (avoiding embedding utf8 in the test
file), and use greek to test for something out of 8-bit latin, as
Jarkko suggested. Everything flows.

p4raw-id: //depot/perl@30805
---

diff --git a/t/io/dup.t b/t/io/dup.t
index 0287023..d101688 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -133,10 +133,10 @@ SKIP: {
     }
     close G;
 
-    use utf8;
     open UTFOUT, '>:utf8', "dup$$" or die $!;
     open UTFDUP, '>&UTFOUT' or die $!;
-    my $message = "ça marche pas\n";
+    # some old greek saying.
+    my $message = "\x{03A0}\x{0391}\x{039D}\x{03A4}\x{0391} \x{03A1}\x{0395}\x{0399}\n";
     print UTFOUT $message;
     print UTFDUP $message;
     binmode UTFDUP, ':utf8';
@@ -151,7 +151,6 @@ SKIP: {
 	$line = <UTFIN>; is($line, $message);
     }
     close UTFIN;
-    no utf8;
 
     END { 1 while unlink "dup$$" }
 }