Increment the Test::Builder::Level in tests

diff --git a/t/10-set.t b/t/10-set.t
index 69008aed5d948e3ed2cb011a2e6202bdf7a22c98..f21f587578d972afa6e00e4a27f2ada043b80d16 100644 (file)
--- a/t/10-set.t
+++ b/t/10-set.t
@@ -15,6 +15,8 @@ my $tikz = LaTeX::TikZ::Formatter->new(
 sub check {
  my ($set, $desc, $exp) = @_;
 
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
  my ($head, $decl, $body) = eval {
   $tikz->render(ref $set eq 'ARRAY' ? @$set : $set);
  };

diff --git a/t/20-mod.t b/t/20-mod.t
index 477fdd1fa2a87f3b7384d283b953862d5a5bb02f..d8407108742225af6388c1554af1609f33badc9d 100644 (file)
--- a/t/20-mod.t
+++ b/t/20-mod.t
@@ -15,6 +15,8 @@ my $tikz = LaTeX::TikZ::Formatter->new(
 sub check {
  my ($set, $desc, $exp) = @_;
 
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
  my ($head, $decl, $body) = eval {
   $tikz->render(ref $set eq 'ARRAY' ? @$set : $set);
  };