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

use strict;
use warnings;

use Test::More 0.89;
use List::Util 'first';
use lib 't/lib';
use A::Junk ':other';

ok(!main->can('junk1'), 'junk1 not exported');
ok(!main->can('junk2'), 'junk2 not exported');
ok(main->can('junk3'), 'junk3 exported');
ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');

done_testing;
Commit	Line	Data
47825557	1	use strict;
	2	use warnings;
	3
	4	use Test::More 0.89;
	5	use List::Util 'first';
	6	use lib 't/lib';
	7	use A::Junk ':other';
	8
	9	ok(!main->can('junk1'), 'junk1 not exported');
	10	ok(!main->can('junk2'), 'junk2 not exported');
	11	ok(main->can('junk3'), 'junk3 exported');
	12	ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
	13
	14	done_testing;
	15