From 27e77c8d032740af1b16caa3a236d4328c55aa4e Mon Sep 17 00:00:00 2001
From: Ronald Schmidt <ronaldxs@software-path.com>
Date: Sat, 7 Apr 2018 21:09:36 -0400
Subject: [PATCH] Update 05-messages/03-errors.t test for RT #132238 clearer
 error message for unclosed <> hash quote index operator

---
 t/05-messages/03-errors.t | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/t/05-messages/03-errors.t b/t/05-messages/03-errors.t
index 525b8925151..5ca5a22ddfe 100644
--- a/t/05-messages/03-errors.t
+++ b/t/05-messages/03-errors.t
@@ -2,7 +2,7 @@ use lib <t/packages/>;
 use Test;
 use Test::Helpers;
 
-plan 9;
+plan 10;
 
 subtest '.map does not explode in optimizer' => {
     plan 3;
@@ -74,4 +74,20 @@ throws-like {
 }, Exception, :message{.contains: 'handle not open'},
   'trying to bind Proc::Async to unopened handle gives useful error';
 
+# RT #132238
+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]
+        /;
+    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:]>]* $ /;
+}
+
 # vim: ft=perl6 expandtab sw=4