r321@athlon: dpavlin | 2005-12-19 22:11:49 +0100

 fix

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@300 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/6-unit.t b/t/6-unit.t
index 1e26994..a503ada 100755 (executable)
--- a/t/6-unit.t
+++ b/t/6-unit.t
@@ -11,7 +11,7 @@ use blib;
 
 BEGIN {
 use_ok( 'WebPAC::Lookup' );
-use_ok( 'WebPAC::Input::ISIS' );
+use_ok( 'WebPAC::Input' );
 use_ok( 'WebPAC::Store' );
 use_ok( 'WebPAC::Normalize::XML' );
 use_ok( 'WebPAC::Output::TT' );
@@ -30,13 +30,14 @@ ok(my $lookup = new WebPAC::Lookup(
        lookup_file => "$abs_path../conf/lookup/isis.pm",
 ), "new Lookup");
 
-ok(my $isis = new WebPAC::Input::ISIS(
+ok(my $isis = new WebPAC::Input(
+       module => 'WebPAC::Input::ISIS',
        code_page => 'ISO-8859-2',      # application encoding
-       limit_mfn => 10,
+       limit => 10,
 ), "new Input::ISIS");
 
 ok(my $maxmfn = $isis->open(
-       filename => $isis_file,
+       path => $isis_file,
        code_page => '852',             # database encoding
        lookup => $lookup,
 ), "Input::ISIS->open");