projects
/
gitmo/Moose-Autobox.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
16b9b1fe6b02270d93e18c340e66fadb7a5a38cc
[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 => 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