X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-integrate.t;h=ab5df98c0b8a34f0bb220b1e44637f36f02e7291;hb=05e35b66f2a12a2416a5964be485a4f741682a47;hp=3b32ff17a8382e47a701d4fdd4cd1327e4ecd45f;hpb=06cb3f3506161a118dc440264dcabcd612b9432c;p=perl%2Fmodules%2FLexical-Types.git

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