r1200@llin: dpavlin | 2007-04-11 13:38:57 +0200

[webpac2] / t / 2-input.t

diff --git a/t/2-input.t b/t/2-input.t
index 5ce5e73..2cf9069 100755 (executable)
--- a/t/2-input.t
+++ b/t/2-input.t
@@ -134,7 +134,7 @@ $WebPAC::Input::Test::rec = {
 
 $WebPAC::Input::Test::size = 42;
 
-ok($input->open( path => "$abs_path/modify_isis/LIBRI", ), "open modify_isis (plain)");
+ok($input->open( path => "/fake/path", ), "open modify_isis (plain)");
 
 cmp_ok($input->size, '==', 42, 'size');
 
@@ -143,7 +143,7 @@ ok(my $rec_p = $input->fetch, 'fetch');
 # modify_records
 
 ok($input->open(
-       path => "$abs_path/modify_isis/LIBRI",
+       path => "/another/fake/path",
        modify_records => {
                200 => {
                        '*' => { '^c' => '. ' },
@@ -170,7 +170,7 @@ cmp_ok(
 my $modify_file = "$abs_path/conf/modify/test.pl";
 
 ok($input->open(
-       path => "$abs_path/modify_isis/LIBRI",
+       path => "/and/another/fake/path",
        modify_file => $modify_file,
 ), "open (with modify_file $modify_file)");
 
@@ -189,3 +189,8 @@ test_filter(200,
        '^a foo^kbar^dbaz : zzz',
 );
 
+# empty subfield removal
+test_filter(901,
+       '^a^efoo',
+       '^efoo',
+);