This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip a warnings test under miniperl that relies on the effects of -C
authorNicholas Clark <nick@ccl4.org>
Tue, 22 Feb 2011 20:04:17 +0000 (20:04 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 22 Feb 2011 20:04:17 +0000 (20:04 +0000)
miniperl ignores -C and $ENV{PERL_UNICODE}, as of e27b5b51275a893e.

t/op/warn.t

index 30dccdf..bcb12a6 100644 (file)
@@ -119,6 +119,8 @@ fresh_perl_like(
  'warn emits logical characters, not internal bytes [perl #45549]'  
 );
 
+SKIP: {
+    skip_if_miniperl('miniperl ignores -C', 1);
 fresh_perl_like(
  '
    $a = "\xee\n";
@@ -130,6 +132,7 @@ fresh_perl_like(
   { switches => ['-CE'] },
  'warn respects :utf8 layer'
 );
+}
 
 fresh_perl_like(
  'warn chr 300',