Fix '-all' option for the default group
[p5sagit/Sub-Exporter-Progressive.git] / t / all.t
1
2 use strict;
3 use warnings;
4
5 use Test::More;
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 done_testing;