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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 4;

BEGIN {
    use_ok('Moose::Autobox');
}

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
	6	use Test::More tests => 4;
	7
	8	BEGIN {
	9	use_ok('Moose::Autobox');
	10	}
	11
	12	use Moose::Autobox;
	13
	14	is_deeply(
	15	1->to(5),
	16	[ 1, 2, 3, 4, 5 ],
	17	'... got 1 to 5');
	18
	19	is_deeply(
	20	5->to(1),
	21	[ 5, 4, 3, 2, 1 ],
	22	'... got 5 to 1');
	23
	24	is_deeply(
	25	1->to(1),
	26	[ 1 ],
	27	'... got 1 to 1');
	28