[io grant] Test IO::Special .WHICH/.Str do not crash

Rakudo fix: rakudo/rakudo@dd4dfb14d3
Raku · Feb 26, 2017 · 63370fe · 63370fe
1 parent 6cb0946
commit 63370fe
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/S02-types/WHICH.t b/S02-types/WHICH.t
@@ -60,6 +60,7 @@ my @normal = <
   IO::Spec::QNX
   IO::Spec::Unix
   IO::Spec::Win32
+  IO::Special
   Instant
   Int
   IntAttrRef

diff --git a/S32-io/other.t b/S32-io/other.t
@@ -4,11 +4,14 @@ use lib 't/spec/packages';
 
 use Test;
 use Test::Util;
-plan 60;
+plan 61;
 
 # RT #117841
 for 1..12 -> $x {
     for map { 2**$x - 1 }, ^5 {
         ok( get_out("say 1 x $_,q|—|", '')<out> ~~ /^1+\—\s*$/, "Test for $_ bytes + utf8 char");
     }
 }
+
+# https://github.com/rakudo/rakudo/commit/dd4dfb14d3
+lives-ok { quietly IO::Special.Str }, 'IO::Special:U.Str does not crash';