Commits

Shlomi Fish  committed e3e49bf

->start() Now returns itself.

  • Participants
  • Parent commits ac124d4

Comments (0)

Files changed (3)

File File-Find-Object-Rule/lib/File/Find/Object/Rule.pm

     $self->_match_cb($callback);
     $self->_call_find(\@paths);
 
-    return 1;
+    return $self;
 }
 
 

File File-Find-Object-Rule/t/File-Find-Rule.t

 use strict;
 use warnings;
 
-use Test::More tests => 41;
+use Test::More tests => 42;
 
 use lib './t/lib';
 
            [ @tests ],
            "name( qr/\\.t\$/ )" );
 
+{
+    # This test that starts returns the rule object.
+    # See: http://www.nntp.perl.org/group/perl.beginners/2012/04/msg120670.html
+    my $rule = $class->name( qr/\.t$/ )->start($copy_fn);
+
+    my @results;
+    while (my $item = $rule->match()) {
+        push @results, $item;
+    }
+    # TEST
+    is_deeply(
+        [ @results ],
+        [ @tests ],
+        "->start() Test."
+    );
+}
+
 $f = $class->name( 'foobar' );
 # TEST
 is_deeply( _run_find($f),

File libfilefind/c_glib_based/filefind.c

         
         g_dir_close(handle);
         
+#if 0
         g_ptr_array_sort(files, indirect_lexic_compare);
+#endif
 
         self->files = files;