Add a test for Match to correctly coerce into Str

There used to be a problem in Rakudo where Capture::Str was returning a native `str` instead of Str.
Raku · Nov 11, 2020 · 89fa3e8 · 89fa3e8
1 parent 5d709ef
commit 89fa3e8
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/S05-match/basics.t b/S05-match/basics.t
@@ -0,0 +1,13 @@
+use v6;
+use Test;
+
+plan 2;
+
+{
+    my $m = "abc" ~~ /b/;
+    my Str(Match) $sm = $m;
+    isa-ok $sm, Str, "Match correctly coerces into Str";
+    is $sm, "b", "coerced string is as expected";
+}
+
+done-testing;
diff --git a/spectest.data b/spectest.data
@@ -427,6 +427,7 @@ S05-mass/recursive.t
 S05-mass/rx.t
 S05-mass/stdrules.t
 S05-match/arrayhash.t
+S05-match/basics.t
 S05-match/blocks.t
 S05-match/capturing-contexts.t
 S05-match/make.t