Changeset 8796

Timestamp:

Sep 12, 2006, 10:27:07 AM (20 years ago)

Author:

jhoblitt

Message:

ignore .lib directories

File:

• trunk/psLib/test/test.pl (modified) (2 diffs)

trunk/psLib/test/test.pl

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: test.pl,v 1.1 2006-08-31 04:04:20 jhoblitt Exp $
+# $Id: test.pl,v 1.2 2006-09-12 20:27:07 jhoblitt Exp $
 
 use strict;
@@ -14 +14 @@
 use Cwd;
 
-my @test_files = File::Find::Rule->file->name(qr/^tap_[^.]*$/)
-    ->maxdepth(2)
-    ->relative
-    ->in(getcwd());
+my $rule = File::Find::Rule->new;
+# ignore .lib directories
+$rule->or($rule->new
+        ->directory
+        ->name('.libs')
+        ->prune
+        ->discard,
+        $rule->new
+    );
+$rule->name(qr/^tap_[^.]*$/)
+        ->maxdepth(2)
+        ->relative;
+
+my @test_files = $rule->in(getcwd());
 
 system("prove @test_files");