[p5sagit/Class-C3-Componentised.git] / t / 03-unstable_dollar_underscore.t

use strict;
use warnings;

use Class::C3::Componentised;
use Test::More;
use FindBin;

use lib "$FindBin::Bin/lib";

my @mods = 'DestroyDollarUnderscore';

for (@mods) {
  Class::C3::Componentised->ensure_class_loaded($_);
}

is_deeply(\@mods, [ 'DestroyDollarUnderscore' ], '$_ untouched');

done_testing;
Commit	Line	Data
15b7d164	1	use strict;
	2	use warnings;
	3
	4	use Class::C3::Componentised;
	5	use Test::More;
	6	use FindBin;
	7
	8	use lib "$FindBin::Bin/lib";
	9
	10	my @mods = 'DestroyDollarUnderscore';
	11
	12	for (@mods) {
	13	Class::C3::Componentised->ensure_class_loaded($_);
	14	}
	15
	16	is_deeply(\@mods, [ 'DestroyDollarUnderscore' ], '$_ untouched');
	17
	18	done_testing;