view release on metacpan or  search on metacpan

t/acme-newmath.t  view on Meta::CPAN

# now we test some other operations to make sure they work.
my $foo = 11;
my $bar = 7;

cmp_ok(++$foo, '==', '12', 'preincrement 1');
cmp_ok($foo,   '==', '12', 'preincrement 2');
cmp_ok(--$foo, '==', '11', 'predecrement 1');
cmp_ok($foo,   '==', '11', 'predecrement 2');

cmp_ok($bar--, '==', '7', 'postdecrement 1');
cmp_ok($bar, 	 '==', '6', 'postdecrement 2');
cmp_ok($bar++, '==', '6', 'postincrement 1');
cmp_ok($bar,   '==', '7', 'postincrement 2');

cmp_ok($foo+$bar,		'==', '18', '+');
cmp_ok($foo-$bar,		'==', '4',	'-');
cmp_ok($foo*$bar,		'==', '77', '*');
cmp_ok(int($foo/$bar),		'==', '1',	'/');
cmp_ok($foo%$bar,		'==', '4',	'%');

cmp_ok(-$foo, 			'==', 	'-11',	'unary minus');
cmp_ok($foo&$bar,		'==',		'3',		'& and');
cmp_ok($foo|$bar,		'==',		'15',		'| or');