X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2f8e48da71dd5ea1aea7cd8774500f3b82cd406c..ebf27bc85d964536463e823bbdbdb42456bdbf70:/cpan/autodie/t/utf8_open.t

diff --git a/cpan/autodie/t/utf8_open.t b/cpan/autodie/t/utf8_open.t
index d328853..5ccd5e3 100644
--- a/cpan/autodie/t/utf8_open.t
+++ b/cpan/autodie/t/utf8_open.t
@@ -9,7 +9,6 @@ use autodie;
 
 use Fcntl;
 use File::Temp;
-
 use Test::More;
 
 if( $] < '5.01000' ) {
@@ -73,6 +72,15 @@ else {
         my @layers = PerlIO::get_layers($fh);
         ok( (grep { $_ eq 'utf8' } @layers), "open implicit read honors open pragma" ) or diag join ", ", @layers;
     }
+
+    # raw
+    {
+        open my $fh, ">:raw", $file;
+
+        my @layers = PerlIO::get_layers($fh);
+
+        ok( !(grep { $_ eq 'utf8' } @layers), 'open pragma is not used if raw is specified' ) or diag join ", ", @layers;
+    }
 }