use_ok stinks; just load the library

[gitmo/Moose-Autobox.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index 9bb67e3..a0994d3 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -3,14 +3,11 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 69;
 
-BEGIN {
-    use_ok('Moose::Autobox');
-    use_ok('Moose::Autobox::Undef');
-}
+use Moose::Autobox;
 
-use autobox UNDEF => 'Moose::Autobox::Undef';
+my $VAR1; # for eval of dumps
 
 # SCALAR & UNDEF
 
@@ -20,6 +17,15 @@ ok(!$s->defined, '... got a undefined value');
 $s = 5;
 ok($s->defined, '... got a defined value');
 
+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');
+
 # CODE
 
 my $f1 = sub { @_ };
@@ -42,16 +48,18 @@ is_deeply(
 '... got the right return value from the r-curried function');  
 
 ok((sub { 1 })->disjoin(sub { 0 })->(), '... disjoins properly');
-ok(!(sub { 1 })->conjoin(sub { 0 })->(), '... conjoins properly');
+ok((sub { 0 })->disjoin(sub { 1 })->(), '... disjoins properly');
 
-#my $compose = (sub { 1, @_ })->compose(sub { 2, @_ });
+ok(!(sub { 1 })->conjoin(sub { 0 })->(), '... conjoins properly');
+ok(!(sub { 0 })->conjoin(sub { 1 })->(), '... conjoins properly');
 
-#is_deeply(
-#[ $compose->() ],
-#[ 1, 2 ],
-#'... got the right return value for compose');
+my $compose = (sub { @_, 1 })->compose(sub { @_, 2 });
 
-    
+is_deeply(
+[ $compose->() ],
+[ 1, 2 ],
+'... got the right return value for compose');
+  
 # ARRAY    
     
 my $a = [ 4, 2, 6, 78, 101, 2, 3 ];
@@ -66,6 +74,10 @@ $a->map(sub { $_ + 2 }),
 
 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 ],
@@ -81,6 +93,7 @@ $a->grep(sub { $_ < 50 }),
 is_deeply($a, [ 4, 2, 6, 78, 101, 2, 3 ], '... original value is unchanged');
 
 is($a->join(', '), '4, 2, 6, 78, 101, 2, 3', '... got the right joined string');
+is($a->join, '4267810123', '... got the right joined string');
 ok($a->exists(0), '... exists works');
 ok(!$a->exists(10), '... exists works');
 
@@ -90,6 +103,12 @@ is_deeply($a, [ 4, 2, 6, 78, 101, 2 ], '... original value is now changed');
 is($a->shift(), 4, '... got the right unshift-ed value');
 is_deeply($a, [ 2, 6, 78, 101, 2 ], '... original value is now changed');
 
+
+is_deeply(
+$a->slice([ 1, 2, 4 ]), 
+[ 6, 78, 2 ], 
+'... got the right sliced value');
+
 is_deeply(
 $a->unshift(10), 
 [ 10, 2, 6, 78, 101, 2 ], 
@@ -125,12 +144,117 @@ is_deeply(
 [ 35, 30, 25, 20, 15, 10 ], 
 '... got the correct chained value');
 
+is_deeply(
+$a->keys, 
+[ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ],
+'... the keys');
+
+is_deeply(
+$a->values, 
+[ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ], 
+'... the values');
+
+is_deeply(
+$a->kv, 
+[ [0, 15], [1, 20], [2, 30], [3, 10], [4, 2], [5, 6], [6, 78], 
+  [7, 101], [8, 2], [9, 10], [10, 15], [11, 20], [12, 30] ], 
+'... [ k, v ]');
+
+is([1, 2, 3, 4, 5]->reduce(sub { $_[0] + $_[1] }), 15, '... got the right reduction');
+
+is_deeply(
+[1, 2, 3, 4, 5]->zip([ 5, 4, 3, 2, 1 ]), 
+[ [1, 5], [2, 4], [3, 3], [4, 2], [5, 1] ],
+'... got the right zip');
+
+is_deeply(
+[1, 2, 3, 4, 5]->zip([ 6, 5, 4, 3, 2, 1 ]), 
+[ [1, 6], [2, 5], [3, 4], [4, 3], [5, 2], [undef, 1] ],
+'... got the right zip');
+
+is($a->delete(2), 30, '... got the value deleted');
+is_deeply(
+$a, 
+[ 15, 20, undef, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ], 
+'... the value is correctly deleted');
+
+$a->put(2, 30);
+
+is_deeply(
+$a, 
+[ 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()' );
+
+is([1, 2, 3, 4, 5]->any, 3, '... any correctly found a value');
+is([1, 1, 2, 3, 4, 5, 5]->one, 2, '... one correctly found one value');
+is([1, 1, 2, 3, 4, 5, 5]->none , 6, '... none correctly did not find any of a value');
+is([3, 3, 3]->all, 3, '... all correctly found all of a value');
+
 # Hash
 
 my $h = { one => 1, two => 2, three => 3 };
 
 ok($h->defined, '... got the right defined value');
 
+is_deeply(
+$h->keys->sort, 
+[ qw/one three two/ ],
+'... the keys');
+
+is_deeply(
+$h->values->sort, 
+[ 1, 2, 3 ],
+'... the values');
 
+is_deeply(
+$h->kv->sort(sub { $_[0]->[1] <=> $_[1]->[1] }), 
+[ ['one', 1], ['two', 2], ['three', 3] ],
+'... the kvs');
 
+ok($h->exists('two'), '... exists works');
+ok(!$h->exists('five'), '... !exists works');
 
+$h->put('four' => 4);
+is_deeply(
+$h,
+{ one => 1, two => 2, three => 3, four => 4 },
+'... got the value added correctly');
+
+is($h->at('four'), 4, '... got the value at "four"');
+
+$h->delete('four');
+is_deeply(
+$h,
+{ 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' );