Updated Array.pm to reflect Perl6::Junction changes, added tests for any,all,none,one

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

diff --git a/t/001_basic.t b/t/001_basic.t
index ebf9016..7ee4b93 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 64;
+use Test::More tests => 68;
 
 BEGIN {
     use_ok('Moose::Autobox');
@@ -191,6 +191,10 @@ 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