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