diff options
-rw-r--r-- | t/01-basic.t | 32 |
1 files changed, 31 insertions, 1 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 5ddde3f..a921d1e 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -4,7 +4,9 @@ use warnings; use lib 't/01'; use Test::More; -no circular::require; +use circular::require (); + +circular::require->unimport; { my $warnings; @@ -30,9 +32,37 @@ no circular::require; clear(); } +circular::require->import; + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Foo'); + is($warnings, undef, "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Bar'); + is($warnings, undef, "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Baz'); + is($warnings, undef, "correct warnings"); + clear(); +} + sub clear { for (qw(Foo Bar Baz)) { + no strict 'refs'; delete $::{$_}; + delete ${$_ . '::'}{quux}; delete $INC{"$_.pm"}; } } |