t/sex.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18


use strict;
use warnings;

use Test::More;
BEGIN {
    plan skip_all => 'Sub::Exporter not installed'
        unless eval { require Sub::Exporter };
}

use List::Util 'first';
use lib 't/lib';
use A::Junk 'junk1' => { -as => 'junk' };

ok(main->can('junk'), 'sub renamed with Sub::Exporter');
ok($INC{'Sub/Exporter.pm'}, 'Sub::Exporter loaded');

done_testing;