Index: /trunk/psLib/test/test.pl
===================================================================
--- /trunk/psLib/test/test.pl	(revision 8795)
+++ /trunk/psLib/test/test.pl	(revision 8796)
@@ -3,5 +3,5 @@
 # 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,8 +14,18 @@
 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");