Add test for RT #125495

Raku · Jun 28, 2015 · 766987b · 766987b
1 parent 1f37c47
commit 766987b
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/integration/error-reporting.t b/integration/error-reporting.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 16;
+plan 17;
 
 use lib 't/spec/packages';
 
@@ -138,4 +138,16 @@ is_run 'die "foo"; END { say "end run" }',
 
 }
 
+# RT #125495
+{
+    is_run 'class RT125495 {
+            sub foo( $class, \@args, $object_name ) is export { 42 }
+        }',
+        {
+            status  => { $_ != 0 },
+            out     => '',
+            err     => all(rx:i/obsolete/, rx/'at' \N+ ':2'/),
+        }, 'Error for obsolete syntax contains line number';
+}
+
 # vim: ft=perl6