From: Vincent Pit <vince@profvince.com>
Date: Sun, 18 Jul 2010 10:29:57 +0000 (+0200)
Subject: Increment the Test::Builder::Level in tests
X-Git-Tag: v0.01~54
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=commitdiff_plain;h=ab2e6e400073c35ae59b532ac8a9fb8f40fd1a3c

Increment the Test::Builder::Level in tests
---

diff --git a/t/10-set.t b/t/10-set.t
index 69008ae..f21f587 100644
--- 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 477fdd1..d840710 100644
--- 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);
  };