Test custom named pod paras with - in identifiers work

RT#132339: https://rt.perl.org/Ticket/Display.html?id=132339 Rakudo fix: rakudo/rakudo@ba718f4581
Raku · Oct 21, 2017 · 2ede0d1 · 2ede0d1
1 parent ff18340
commit 2ede0d1
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S02-literals/pod.t b/S02-literals/pod.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 5;
+plan 6;
 
 # See "=begin DATA" at the end of file.
 
@@ -56,4 +56,10 @@ plan 5;
 hello, world!
 =end DATA
 
+# RT #132339
+is-deeply $=pod.grep(*.name eq 'SEE-ALSO').head.contents.head.contents.head,
+    'foo132339',
+    'custom named paras with `-` in identifiers works';
+=SEE-ALSO foo132339
+
 # vim: ft=perl6