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