diff --git a/lib/IUtils.rakumod b/lib/IUtils.rakumod index 3832d49..007c255 100644 --- a/lib/IUtils.rakumod +++ b/lib/IUtils.rakumod @@ -95,7 +95,7 @@ class PackageInfo { when * eq 'Either' {succeed Either}; }; my $test = - Test.new(name => $match.Str, + Test.new(name => $match.Str.trim, expr => $match.Str, output-type => $output-type); @tests.push($test); diff --git a/lib/IUtils/Regexes.rakumod b/lib/IUtils/Regexes.rakumod index d9e2ee7..5ea28e1 100644 --- a/lib/IUtils/Regexes.rakumod +++ b/lib/IUtils/Regexes.rakumod @@ -10,11 +10,12 @@ my token output-type { my token comment-start { \- \- } my token flag { \@ \@ } my token name { <[\w \-]>+ } +my token test-name { \V+ } my token comment-line { <&comment-start> \V* \v } my regex flagged-expression is export { - <&comment-start> \h* \h* \V* \v + \h* <&comment-start> \h* \h* \V* \v * \h+ \: \h+ 'IO' \h+ \V* \v }