Added test for RT#78844

Perl · Nov 6, 2010 · 54f3160 · 54f3160
1 parent b031d0e
commit 54f3160
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/t/io/layers.t b/t/io/layers.t
@@ -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;
 
     {