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


use strict;
use warnings;

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

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

package Other;
use Test::More;
use A::JunkAll ':all';

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

done_testing;
Commit	Line	Data
d446192d	1
	2	use strict;
	3	use warnings;
	4
dd634cf0	5	use Test::More 0.89;
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;