use strict;
use warnings;
-use Test::More tests => 56;
+use Test::More tests => 64;
BEGIN {
use_ok('Moose::Autobox');
- use_ok('Moose::Autobox::Undef');
}
use Moose::Autobox;
+my $VAR1; # for eval of dumps
+
# SCALAR & UNDEF
my $s;
$s = 5;
ok($s->defined, '... got a defined value');
+eval $s->dump;
+is($VAR1, 5 , '... eval of SCALAR->dump works');
+
+eval $s->perl;
+is($s->perl, $s->dump, '... SCALAR->dump equals SCALAR->perl');
+
# CODE
my $f1 = sub { @_ };
[ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
'... the value is correctly put');
+eval($a->dump);
+is_deeply( $VAR1,
+ [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ],
+ '... the value is correctly dumped');
+
+is( $a->dump,
+ $a->perl,
+ '... the value is correctly dumped with perl()' );
+
+
# Hash
my $h = { one => 1, two => 2, three => 3 };
{ one => 1, two => 2, three => 3 },
'... got the value deleted correctly');
+is_deeply(
+$h->merge({ three => 33, four => 44 }),
+{ one => 1, two => 2, three => 33, four => 44 },
+'... got the hashes merged correctly');
+
+eval($h->dump);
+is_deeply( $VAR1,
+ { one => 1, two => 2, three => 3 },
+ '... the value is correctly dumped');
+
+is( $h->dump,
+ $h->perl,
+ '... the value is correctly dumped with perl()' );
+
+is_deeply( { one => 1, two => 2, three => 3 }->slice([qw/three one/]),
+ [ qw/3 1/ ],
+ '... hash slices ok' );
+is_deeply( { one => 1, two => 2, three => 3 }->hslice([qw/two three/]),
+ { two => 2, three => 3 },
+ '... hash hslices ok' );