added tests for RT #117841

Raku · Aug 30, 2013 · 3610848 · 3610848
1 parent 7c89478
commit 3610848
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/S32-io/other.t b/S32-io/other.t
@@ -0,0 +1,13 @@
+use v6;
+use Test;
+BEGIN { @*INC.push('t/spec/packages/') };
+use Test::Util;
+plan 60;
+
+# RT #117841
+for 1..12 -> $x {
+    for map { 2**$x - 1 }, ^5 {
+        #?rakudo.parrot todo 'parrot <5.8.0 might fail here'
+        ok( get_out("say 1 x $_,q|—|", '')<out> ~~ /^1+\—\s*$/, "Test for $_ bytes + utf8 char");
+    }
+}