diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-01-06 01:14:29 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-01-06 01:15:25 -0600 |
commit | d0719e8ad715588446409155d68fd1783486aa69 (patch) | |
tree | 71121b793602fba6ffad170dba646cc882bf4e3b /t/basic.t | |
parent | de76247745ea63176649888b4ef40be01ce3cd16 (diff) | |
download | circular-require-d0719e8ad715588446409155d68fd1783486aa69.tar.gz circular-require-d0719e8ad715588446409155d68fd1783486aa69.zip |
show the entire cycle in the warning0.06
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -12,7 +12,7 @@ circular::require->unimport; my $warnings; 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"); + is($warnings, "Circular require detected:\n Foo.pm\n Baz.pm\n Foo.pm\nCircular require detected:\n Baz.pm\n Bar.pm\n Baz.pm\n", "correct warnings"); undef $warnings; use_ok('Foo'); @@ -25,7 +25,7 @@ circular::require->unimport; my $warnings; local $SIG{__WARN__} = sub { $warnings .= $_[0] }; use_ok('Bar'); - is($warnings, "Circular require detected: Baz.pm (from Foo.pm)\nCircular require detected: Bar.pm (from Baz.pm)\n", "correct warnings"); + is($warnings, "Circular require detected:\n Baz.pm\n Foo.pm\n Baz.pm\nCircular require detected:\n Bar.pm\n Baz.pm\n Bar.pm\n", "correct warnings"); clear(); } @@ -33,7 +33,7 @@ circular::require->unimport; my $warnings; local $SIG{__WARN__} = sub { $warnings .= $_[0] }; use_ok('Baz'); - is($warnings, "Circular require detected: Baz.pm (from Foo.pm)\nCircular require detected: Baz.pm (from Bar.pm)\n", "correct warnings"); + is($warnings, "Circular require detected:\n Baz.pm\n Foo.pm\n Baz.pm\nCircular require detected:\n Baz.pm\n Bar.pm\n Baz.pm\n", "correct warnings"); clear(); } |