Correct failing tests locations

[perl/modules/Lexical-Types.git] / t / 12-integrate.t

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');
   ();
  }