diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-01-04 18:10:04 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-01-04 18:10:04 -0600 |
commit | 96faf963aa8703449037aa46af1394a0e7831dc2 (patch) | |
tree | cbe3c4123d4795328130e7d94def782dc301fbdc | |
parent | 0f4580a0651071fadcd61fdbe100ea235ac09b68 (diff) | |
download | circular-require-96faf963aa8703449037aa46af1394a0e7831dc2.tar.gz circular-require-96faf963aa8703449037aa46af1394a0e7831dc2.zip |
more tests
-rw-r--r-- | t/basic.t | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -13,6 +13,11 @@ circular::require->unimport; local $SIG{__WARN__} = sub { $warnings .= $_[0] }; use_ok('Foo'); is($warnings, "Circular require detected: Foo.pm (from Baz.pm)\nCircular require detected: Baz.pm (from Bar.pm)\n", "correct warnings"); + + undef $warnings; + use_ok('Foo'); + is($warnings, undef, "using the same file twice doesn't repeat warnings"); + clear(); } |