use strict;
use warnings;
-use Test::More tests => 68;
-
-BEGIN {
- use_ok('Moose::Autobox');
-}
+use Test::More tests => 69;
use Moose::Autobox;
eval $s->dump;
is($VAR1, 5 , '... eval of SCALAR->dump works');
+eval $s->flatten;
+is($VAR1, 5 , '... eval of SCALAR->flatten works');
+
eval $s->perl;
is($s->perl, $s->dump, '... SCALAR->dump equals SCALAR->perl');
is_deeply($a, [ 4, 2, 6, 78, 101, 2, 3 ], '... original value is unchanged');
+my $b = [1, 2, 3];
+$b->map(sub { $_++ } );
+is_deeply($b, [ 2, 3, 4 ], '... original value is changed');
+
is_deeply(
$a->reverse(),
[ 3, 2, 101, 78, 6, 2, 4 ],