Report the correct line in import argument tests

diff --git a/t/02-import-arg.t b/t/02-import-arg.t
index 71dc90c950372b5753ae996c9a236706a75450a0..d2181d23aa093fb0532f600560b43d02718d5f9a 100644 (file)
--- 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 2d74d136737ff9bd2faaeead9e92b553895512d9..6e0c4bf837ae974020455efc49d370a54eea3497 100644 (file)
--- 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) {