6 use Test::More tests => 8;
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;
41 ::dies_ok { 10->bytes } '... cannot do the autoboxing lexically';
47 is(5->bytes, 5, '... got 5 bytes');
48 is(5->kilobytes, 5120, '... got 5 kilobytes');
49 is(2->megabytes, 2097152, '... got 2 megabytes');
50 is(1->gigabyte, 1073741824, '... got 1 gigabyte');
51 is(2->terabytes, 2199023255552, '... got 2 terabyte');
55 dies_ok { 5->bytes } '... no longer got 5 bytes';