Handle ':all' correctly

[p5sagit/Sub-Exporter-Progressive.git] / t / all.t

diff --git a/t/all.t b/t/all.t
index 2421633..fda725b 100644 (file)
--- a/t/all.t
+++ b/t/all.t
@@ -11,4 +11,12 @@ ok(main->can('junk1'), 'sub exported');
 ok(main->can('junk2'), 'sub exported');
 ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
 
+package Other;
+use Test::More;
+use A::JunkAll ':all';
+
+ok(main->can('junk1'), 'sub exported');
+ok(main->can('junk2'), 'sub exported');
+ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
+
 done_testing;