--- trunk/t/6-unit.t 2005/07/24 14:20:59 30 +++ trunk/t/6-unit.t 2005/07/24 15:03:11 31 @@ -21,6 +21,7 @@ diag "abs_path: $abs_path"; my $isis_file = "$abs_path../t/winisis/BIBL"; +$isis_file = '/data/hidra/THS/THS'; diag "isis_file: $isis_file"; @@ -30,6 +31,7 @@ ok(my $isis = new WebPAC::Input::ISIS( code_page => 'ISO-8859-2', # application encoding + limit_mfn => 10, ), "new Input::ISIS"); ok(my $maxmfn = $isis->open( @@ -47,6 +49,7 @@ # filter => { 'foo' => sub { shift } }, db => $db, lookup_regex => $lookup->regex, + lookup => $lookup, ), "new Normalize::XML"); ok($n->open(