Correct failing tests locations

[perl/modules/Lexical-Types.git] / t / 22-magic.t

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];