Changeset 12 in mp3-find for trunk/t

Timestamp:

02/14/06 20:19:23 (19 years ago)

Author:

peter

Message:

• added "exclude_path" option to Filesystem backend
• added an excluded directory to the test suite ("t/dont_look_here")
• fixed dying DB test (still a workaround for a DBD::SQLite problem)

Location:

trunk/t

Files:

• 02-filesystem.t (modified) (2 diffs)
• 03-db.t (modified) (1 diff)
• mp3s/dont_look_here (added)
• mp3s/dont_look_here/testv2.4.0.mp3 (added)

trunk/t/02-filesystem.t

@@ -2 +2 @@
 use strict;
 
-use Test::More 'no_plan'; #tests => 4;
+use Test::More tests => 6;
 BEGIN { use_ok('MP3::Find::Filesystem') };
 
 my $SEARCH_DIR = 't/mp3s';
-my $MP3_COUNT = 0;
+my $EXCLUDE_DIR = 't/mp3s/dont_look_here';
+my $MP3_COUNT = 1;
+my $EXCLUDED_MP3_COUNT = 1;
 
 # exercise the object
@@ -20 +22 @@
 is(scalar(@res), $MP3_COUNT, 'dir as ARRAY ref');
 
+# exclude
+@res = $finder->find_mp3s(dir => $SEARCH_DIR, exclude_path => $EXCLUDE_DIR);
+is(scalar(@res), $MP3_COUNT - $EXCLUDED_MP3_COUNT, 'excluded directory');
+
+@res = $finder->find_mp3s(dir => $SEARCH_DIR, exclude_path => [$EXCLUDE_DIR]);
+is(scalar(@res), $MP3_COUNT - $EXCLUDED_MP3_COUNT, 'excluded directory as array');
+
 #TODO: get some test mp3s

trunk/t/03-db.t

@@ -19 +19 @@
 my $SEARCH_DIR = 't/mp3s';
 my $DB_FILE = 't/mp3.db';
-my $MP3_COUNT = 0;
+my $MP3_COUNT = 1;
 
 # exercise the object