Added test for RT#78844
authorDavid Golden <dagolden@cpan.org>
Sat, 6 Nov 2010 11:54:03 +0000 (07:54 -0400)
committerDavid Golden <dagolden@cpan.org>
Sat, 6 Nov 2010 11:54:03 +0000 (07:54 -0400)
t/io/layers.t

index ac6163a..a743c8a 100644 (file)
@@ -43,7 +43,7 @@ if (${^UNICODE} & 1) {
 } else {
     $UTF8_STDIN = 0;
 }
-my $NTEST = 44 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
+my $NTEST = 45 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
     + $UTF8_STDIN;
 
 sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
@@ -195,6 +195,14 @@ SKIP: {
          [ "stdio" ],
          "binmode");
 
+    # RT78844
+    {
+        local $TODO = "RT#78844";
+        local $@ = "foo";
+        binmode(F, ":encoding(utf8)");
+        is( $@, "foo", '$@ not clobbered by binmode and :encoding');
+    }
+
     close F;
 
     {