projects
/
gitmo/Moose-Autobox.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
574a909eacc0665bd443aaf45c5ae1a98d923146
[gitmo/Moose-Autobox.git]
/
t
/
009_number.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More tests => 3;
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