Handle ':all' correctly
[p5sagit/Sub-Exporter-Progressive.git] / t / all.t
1
2 use strict;
3 use warnings;
4
5 use Test::More 0.89;
6 use List::Util 'first';
7 use lib 't/lib';
8 use A::JunkAll;
9
10 ok(main->can('junk1'), 'sub exported');
11 ok(main->can('junk2'), 'sub exported');
12 ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
13
14 package Other;
15 use Test::More;
16 use A::JunkAll ':all';
17
18 ok(main->can('junk1'), 'sub exported');
19 ok(main->can('junk2'), 'sub exported');
20 ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
21
22 done_testing;