From 2ede0d1fc3f2e05369f2ce2502dc7583b3c08cb5 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Sat, 21 Oct 2017 13:43:33 -0400 Subject: [PATCH] Test custom named pod paras with `-` in identifiers work RT#132339: https://rt.perl.org/Ticket/Display.html?id=132339 Rakudo fix: https://github.com/rakudo/rakudo/commit/ba718f4581 --- S02-literals/pod.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/S02-literals/pod.t b/S02-literals/pod.t index 025ce556ee..ac4794a5a7 100644 --- 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