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


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;
Commit	Line	Data
6d823d74	1
	2	use strict;
	3	use warnings;
	4
35a1e2d4	5	use Test::More;
26aea93e	6	BEGIN {
	7	plan skip_all => 'Sub::Exporter not installed'
	8	unless eval { require Sub::Exporter };
	9	}
0a1657e9	10
6d823d74	11	use List::Util 'first';
	12	use lib 't/lib';
	13	use A::Junk 'junk1' => { -as => 'junk' };
	14
	15	ok(main->can('junk'), 'sub renamed with Sub::Exporter');
	16	ok($INC{'Sub/Exporter.pm'}, 'Sub::Exporter loaded');
	17
	18	done_testing;