X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-integrate.t;h=ab5df98c0b8a34f0bb220b1e44637f36f02e7291;hb=1a89808e0eb3e27e0d2b61d0bfa84fa8ab94b9cb;hp=3b32ff17a8382e47a701d4fdd4cd1327e4ecd45f;hpb=c00bbcee86add7a0549dd9bfb9a6ddbcaa62b256;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/12-integrate.t b/t/12-integrate.t
index 3b32ff1..ab5df98 100644
--- 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');
   ();
  }