Index: /lang/perl/List-Rubyish/trunk/t/02_method.t
===================================================================
--- /lang/perl/List-Rubyish/trunk/t/02_method.t (revision 21407)
+++ /lang/perl/List-Rubyish/trunk/t/02_method.t (revision 21421)
@@ -121,10 +121,17 @@
 }
 
-sub test_select_and_find_all: Tests(4) {
+sub test_select_and_find_all : Tests(4) {
     for my $method (qw/select find_all/) {
-        my $list = list([30,100,50,80,79,40,95]);
+        my $list = list(qw/30 100 50 80 79 40 95/);
         is_deeply( $list->$method( sub { $_ >= 80 } )->to_a, [100, 80, 95]);
         is_deeply( $list->to_a, [100, 80, 95] );
     }
+}
+
+sub test_select_size_error : Test(4) {
+    no warnings 'redefine';
+    local *List::Rubyish::size = sub {};
+    my $list = list(qw/30 100 50 80 79 40 95/);
+    is_deeply( $list->select( sub { $_ >= 80 } )->to_a, [qw/30 100 50 80 79 40 95/]);
 }
 
@@ -417,8 +424,8 @@
 }
 
-sub test_some_method_argument_in_not_a_code : Test(5) {
+sub test_some_method_argument_in_not_a_code : Test(6) {
     my $obj = List::Rubyish->new;
 
-    for my $method (qw/ delete_if inject each collect reduce /) {
+    for my $method (qw/ delete_if inject each collect reduce select /) {
         local $@;
         eval { $obj->$method( +{} ) };