From: Vincent Pit <vince@profvince.com>
Date: Fri, 8 Apr 2011 18:04:38 +0000 (+0200)
Subject: Report the correct line in import argument tests
X-Git-Tag: v0.03~10
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a615878a77fd5a9ae493272815373f1641cb951b;p=perl%2Fmodules%2FTest-Leaner.git

Report the correct line in import argument tests
---

diff --git a/t/02-import-arg.t b/t/02-import-arg.t
index 71dc90c..d2181d2 100644
--- a/t/02-import-arg.t
+++ b/t/02-import-arg.t
@@ -38,6 +38,7 @@ my @default_exports = qw<
 >;
 
 sub check_imports {
+ local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
  my %imported     = map { $_ => 1 } @{ $_[0] || [] };
  my @not_imported = @{ $_[1] || [] };
  for (@not_imported, grep !$imported{$_}, @default_exports) {
diff --git a/t/04-fallback-import-arg.t b/t/04-fallback-import-arg.t
index 2d74d13..6e0c4bf 100644
--- a/t/04-fallback-import-arg.t
+++ b/t/04-fallback-import-arg.t
@@ -38,6 +38,7 @@ my @default_exports = qw<
 >;
 
 sub check_imports {
+ local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
  my %imported     = map { $_ => 1 } @{ $_[0] || [] };
  my @not_imported = @{ $_[1] || [] };
  for (@not_imported, grep !$imported{$_}, @default_exports) {