From 96faf963aa8703449037aa46af1394a0e7831dc2 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 4 Jan 2012 18:10:04 -0600 Subject: more tests --- t/basic.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/basic.t b/t/basic.t index ea59925..14eda8d 100644 --- a/t/basic.t +++ b/t/basic.t @@ -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(); } -- cgit v1.2.3