backout test part of 4ba71d51f7 for now
authorDavid Mitchell <davem@iabyn.com>
Mon, 27 Jul 2009 22:11:02 +0000 (23:11 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 27 Jul 2009 22:11:02 +0000 (23:11 +0100)
(its broken on Windows; its been subsequently fixed,
but for 5.10.1 lets just skip it completely and add at back later)

t/run/switchC.t

index 9e52ad3..41dba49 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 7);
+plan(tests => 6);
 
 my $r;
 
@@ -59,7 +59,3 @@ $r = runperl( switches => [ '-CA', '-w' ],
               args     => [ chr(256) ] );
 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
 
-$r = runperl( switches => [ '-CS', '-w' ],
-             prog     => "#!perl -CS\nprint chr(256)",
-              stderr   => 1, );
-like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );