Update 05-messages/03-errors.t simpler and clearer tests for RT#13223…

…8 unclosed $< .
rakudo · Apr 8, 2018 · a2a6aad · a2a6aad
1 parent 27e77c8
commit a2a6aad
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/t/05-messages/03-errors.t b/t/05-messages/03-errors.t
@@ -79,15 +79,13 @@ subtest 'unclosed hash quote index operator <> message' => {
     plan 2;
     throws-like "\n\nsay \$<\n\n", X::Comp::AdHoc,
         'good error message for unclosed <> hash operator',
-        message => /:i[:s unable to parse<|w>]
-            .* <|w>find\s+\'\>\'
-            .* [:s at line 3]
-        /;
+        gist => all(
+            /:i:s<<unable to parse /, /<<find\h+\'\>\'/, /:s<<at line 3 /
+        );
     todo 'RT #132238 - remove "expecting any of:"';
     throws-like "say \$<", X::Comp::AdHoc,
         'better and shorter error message for unclosed <> hash operator',
-        # somewhat tricky does not contain "expecting any of"
-        gist => /^ [. <!before [:s expecting any of:]>]* $ /;
+        :gist{ not .match: /:i:s<<expecting any of: / };
 }
 
 # vim: ft=perl6 expandtab sw=4