Commit | Line | Data |
d446192d |
1 | |
2 | use strict; |
3 | use warnings; |
4 | |
35a1e2d4 |
5 | use Test::More; |
d446192d |
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 | |
707baf12 |
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 | |
d446192d |
22 | done_testing; |