[gitmo/Moo.git] / t / global_underscore.t

use strict;
use warnings;
use Test::More;
use lib qw(t/lib);

use_ok('UnderscoreClass');

is(
  UnderscoreClass->c1,
  'c1',
);

is(
  UnderscoreClass->r1,
  'r1',
);

is(
  ClobberUnderscore::h1(),
  'h1',
);

done_testing;
Commit	Line	Data
141b507a	1	use strict;
	2	use warnings;
	3	use Test::More;
	4	use lib qw(t/lib);
	5
	6	use_ok('UnderscoreClass');
	7
	8	is(
88862a82	9	UnderscoreClass->c1,
88862a82	10	'c1',
141b507a	11	);
	12
	13	is(
88862a82	14	UnderscoreClass->r1,
88862a82	15	'r1',
141b507a	16	);
	17
	18	is(
88862a82	19	ClobberUnderscore::h1(),
88862a82	20	'h1',
141b507a	21	);
	22
	23	done_testing;