X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=t%2F04-fallback-import-arg.t;h=6e0c4bf837ae974020455efc49d370a54eea3497;hp=2d74d136737ff9bd2faaeead9e92b553895512d9;hb=a615878a77fd5a9ae493272815373f1641cb951b;hpb=d8f274f085e5af023435df3abc2d0671f539e627 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) {