6 use Test::More tests => 7;
10 use_ok('Moose::Autobox');
19 sub kilobytes { $_[0] * 1024 }
20 sub megabytes { $_[0] * 1024->kilobytes }
21 sub gigabytes { $_[0] * 1024->megabytes }
22 sub terabytes { $_[0] * 1024->gigabytes }
25 no warnings; # << squelch the stupid "used only once, maybe typo" warnings
27 *kilobyte = \&kilobytes;
28 *megabyte = \&megabytes;
29 *gigabyte = \&gigabytes;
30 *terabyte = \&terabytes;
43 is(5->bytes, 5, '... got 5 bytes');
44 is(5->kilobytes, 5120, '... got 5 kilobytes');
45 is(2->megabytes, 2097152, '... got 2 megabytes');
46 is(1->gigabyte, 1073741824, '... got 1 gigabyte');
47 is(2->terabytes, 2199023255552, '... got 2 terabyte');
50 dies_ok { 5->bytes } '... no longer got 5 bytes';