[perl #75446] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/integration/error-reporting.t

commit cc81e350331b3b471eb2b9a6c79f1959406b8619
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Jun 5 21:22:15 2010 +0000

    [t/spec] test for RT #75446, offby1 line number report for non-existing sub 
calls
    
    git-svn-id: http://svn.pugscode.org/p...@31134 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/integration/error-reporting.t 
b/t/spec/integration/error-reporting.t
index b3fc71f..1167dfc 100644
--- a/t/spec/integration/error-reporting.t
+++ b/t/spec/integration/error-reporting.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 3;
+plan 4;
 
 BEGIN { @*INC.push('t/spec/packages') };
 
@@ -23,5 +23,18 @@ is_run "use v6;\n\nsay 'Hello';\nsay 
'a'.my_non_existent_method_6R5();",
     {
         status  => { $_ != 0 },
         out     => /Hello\r?\n/,
-        err     => all(rx/my_non_existent_method_6R5/ & rx/:i 'line 4'/),
+        err     => all(rx/my_non_existent_method_6R5/, rx/:i 'line 4'/),
     }, 'Method not found error mentions method name and line number';
+
+# RT #75446
+is_run 'use v6;
+sub bar {
+    pfff();
+}
+
+bar()',
+    {
+        status => { $_ != 0 },
+        out     => '',
+        err     => all(rx/pfff/, rx/'line 3'>>/),
+    }, 'got the right line number for nonexisting sub inside another sub';