Merge pull request #1023 from Altai-man/#130712-test

Test to cover RT #130712
rakudo · Feb 23, 2017 · a481648 · a481648
2 parents 1811b80 + 664f767
commit a481648
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/t/05-messages/01-errors.t b/t/05-messages/01-errors.t
@@ -16,4 +16,10 @@ subtest 'curly quotes are not called smart quotes' => {
     }
 }
 
+# RT #130712 https://rt.perl.org/Public/Bug/Display.html?id=130712
+throws-like 'sub infix:<$>() return Nil {}',
+    X::AdHoc,
+    :message{ .contains("'returns'") },
+    'typing "return" instead of "returns" gives a fixing hint';
+
 done-testing;