From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Mar 2003 21:44:12 +0000 (+0000)
Subject: VMS has an extra \n at the end, and I assume Windows has \r\n.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4c0dc87024a3e2a076df79e21b4fe3438f88e49;p=p5sagit%2Fp5-mst-13.2.git

VMS has an extra \n at the end, and I assume Windows has \r\n.

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

diff --git a/t/run/switchC.t b/t/run/switchC.t
index c3cc403..0f8f16a 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -23,7 +23,7 @@ END { unlink @tmpfiles }
 $r = runperl( switches => [ '-CO', '-w' ],
 	      prog     => 'print chr(256)',
               stderr   => 1 );
-is( $r, "\xC4\x80", '-CO: no warning on UTF-8 output' );
+like( $r, qr/^\xC4\x80(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' );
 
 SKIP: {
     if (exists $ENV{PERL_UNICODE} &&
@@ -34,30 +34,29 @@ SKIP: {
 		  prog     => 'print ord(<STDIN>)',
 		  stderr   => 1,
 		  stdin    => "\xC4\x80" );
-    is( $r, 256, '-CI: read in UTF-8 input' );
+    like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' );
 }
 
 $r = runperl( switches => [ '-CE', '-w' ],
 	      prog     => 'warn chr(256), qq(\n)',
               stderr   => 1 );
-chomp $r;
-is( $r, "\xC4\x80", '-CE: UTF-8 stderr' );
+like( $r, qr/^\xC4\x80(?:\r?\n)?$/s, '-CE: UTF-8 stderr' );
 
 $r = runperl( switches => [ '-Co', '-w' ],
 	      prog     => 'open(F, q(>out)); print F chr(256); close F',
               stderr   => 1 );
-is( $r, '', '-Co: auto-UTF-8 open for output' );
+like( $r, qr/^$/s, '-Co: auto-UTF-8 open for output' );
 
 push @tmpfiles, "out";
 
 $r = runperl( switches => [ '-Ci', '-w' ],
 	      prog     => 'open(F, q(<out)); print ord(<F>); close F',
               stderr   => 1 );
-is( $r, 256, '-Ci: auto-UTF-8 open for input' );
+like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input' );
 
 $r = runperl( switches => [ '-CA', '-w' ],
 	      prog     => 'print ord shift',
               stderr   => 1,
               args     => [ chr(256) ] );
-is( $r, 256, '-CA: @ARGV' );
+like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );