[gitmo/Moose-Autobox.git] / t / 009_number.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

use Moose::Autobox;

is_deeply(
1->to(5),
[ 1, 2, 3, 4, 5 ],
'... got 1 to 5');

is_deeply(
5->to(1),
[ 5, 4, 3, 2, 1 ],
'... got 5 to 1');

is_deeply(
1->to(1),
[ 1 ],
'... got 1 to 1');
Commit	Line	Data
f0f5341b	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
171cd606	6	use Test::More tests => 3;
f0f5341b	7
	8	use Moose::Autobox;
	9
	10	is_deeply(
	11	1->to(5),
	12	[ 1, 2, 3, 4, 5 ],
	13	'... got 1 to 5');
	14
	15	is_deeply(
	16	5->to(1),
	17	[ 5, 4, 3, 2, 1 ],
	18	'... got 5 to 1');
	19
	20	is_deeply(
	21	1->to(1),
	22	[ 1 ],
	23	'... got 1 to 1');
	24