Test for RT #131961.

Raku · Sep 4, 2017 · 5f7605d · 5f7605d
1 parent 43a0d86
commit 5f7605d
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S32-io/io-handle.t b/S32-io/io-handle.t
@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 27;
+plan 28;
 
 my $path = "io-handle-testfile";
 
@@ -270,3 +270,12 @@ subtest '.print-nl method' => {
         $fh.close;
     }
 }
+
+# RT #131961
+{
+    my $file = make-temp-file;
+    given $file.IO {
+        .spurt: "a" x (2**20 - 1) ~ "«";
+        lives-ok { for .lines { } }, 'No spurious malformed UTF-8 error';
+    }
+}