diff options
Diffstat (limited to 't/hide_middleman3.t')
-rw-r--r-- | t/hide_middleman3.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/t/hide_middleman3.t b/t/hide_middleman3.t new file mode 100644 index 0000000..bbd920f --- /dev/null +++ b/t/hide_middleman3.t @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/hide_middleman'; +use Test::More; + +no circular::require -hide => [ + qw(base Foo Bar main circular::require), + (map { my $m = $_; $m =~ s+/+::+g; $m =~ s/\.pm$//; $m } keys %INC), +]; + +my @warnings; + +{ + $SIG{__WARN__} = sub { push @warnings => @_ }; + + use_ok( 'Foo' ); +} + +is_deeply( + \@warnings, + ["Circular require detected: Foo.pm (from <unknown package>)\n"], + "don't loop infinitely if all packages are hidden" +); + +done_testing; |