Correct failing tests locations

diff --git a/t/11-args.t b/t/11-args.t
index eefa32eb06afa6b5beb80d9db91fe8a460af6561..26aa4b6335d89f1f2bdba3752e508432adc3fa01 100644 (file)
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -10,6 +10,7 @@ use Test::More tests => 14 + 6;
 
  sub TYPEDSCALAR {
   $_[1] = (caller(0))[2];
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[2], 'LTT', 'original type is ok');
   ();
  }
@@ -126,7 +127,7 @@ use Test::More tests => 14 + 6;
 }
 
 {
- my $expect = qr/^coconut at \Q$0\E line 30/;
+ my $expect = qr/^coconut at \Q$0\E line 31/;
  local $@;
  eval q[
   use Lexical::Types;

diff --git a/t/12-integrate.t b/t/12-integrate.t
index 3b32ff17a8382e47a701d4fdd4cd1327e4ecd45f..ab5df98c0b8a34f0bb220b1e44637f36f02e7291 100644 (file)
--- a/t/12-integrate.t
+++ b/t/12-integrate.t
@@ -23,12 +23,14 @@ use Test::More tests => 5 + 4;
 
  sub new_str {
   $_[1] = 'str:' . (caller(0))[2];
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[2], 'Str', 'original type is correct');
   ();
  }
 
  sub new_int {
   $_[1] = (caller(0))[2];
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[2], 'Int', 'original type is correct');
   ();
  }

diff --git a/t/22-magic.t b/t/22-magic.t
index c6a517c8b2fa6d24c95ccf4de60c82d719677561..350cbe17d4fb5dbb8607c81c051b74633ebc617c 100644 (file)
--- a/t/22-magic.t
+++ b/t/22-magic.t
@@ -48,6 +48,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 1e24d25d2ab48660a0325e4c80473855b36de0d0..28422b0799a269bee91fab697e783f0af8ecb133 100644 (file)
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -53,6 +53,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];

diff --git a/t/30-threads.t b/t/30-threads.t
index 3f46124d0792b71fca8f3d3512ffe63fe125ba53..aa42d69f98c19ef1daa793b6fdfb3048a148956b 100644 (file)
--- a/t/30-threads.t
+++ b/t/30-threads.t
@@ -34,6 +34,7 @@ BEGIN {
   my $tid = threads->tid();
   my ($file, $line) = (caller(0))[1, 2];
   my $where = "at $file line $line in thread $tid";
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[0], __PACKAGE__, "base type is correct $where");
   Test::More::is($_[2], 'Tag', "original type is correct $where");
   $_[1] = $tid;