/[webpac2]/trunk/t/6-unit.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/6-unit.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 30 by dpavlin, Sun Jul 24 11:17:44 2005 UTC revision 31 by dpavlin, Sun Jul 24 15:03:11 2005 UTC
# Line 21  $abs_path =~ s#/[^/]*$#/#; Line 21  $abs_path =~ s#/[^/]*$#/#;
21  diag "abs_path: $abs_path";  diag "abs_path: $abs_path";
22    
23  my $isis_file = "$abs_path../t/winisis/BIBL";  my $isis_file = "$abs_path../t/winisis/BIBL";
24    $isis_file = '/data/hidra/THS/THS';
25    
26  diag "isis_file: $isis_file";  diag "isis_file: $isis_file";
27    
# Line 30  ok(my $lookup = new WebPAC::Lookup( Line 31  ok(my $lookup = new WebPAC::Lookup(
31    
32  ok(my $isis = new WebPAC::Input::ISIS(  ok(my $isis = new WebPAC::Input::ISIS(
33          code_page => 'ISO-8859-2',      # application encoding          code_page => 'ISO-8859-2',      # application encoding
34            limit_mfn => 10,
35  ), "new Input::ISIS");  ), "new Input::ISIS");
36    
37  ok(my $maxmfn = $isis->open(  ok(my $maxmfn = $isis->open(
# Line 47  ok(my $n = new WebPAC::Normalize::XML( Line 49  ok(my $n = new WebPAC::Normalize::XML(
49  #       filter => { 'foo' => sub { shift } },  #       filter => { 'foo' => sub { shift } },
50          db => $db,          db => $db,
51          lookup_regex => $lookup->regex,          lookup_regex => $lookup->regex,
52            lookup => $lookup,
53  ), "new Normalize::XML");  ), "new Normalize::XML");
54    
55  ok($n->open(  ok($n->open(

Legend:
Removed from v.30  
changed lines
  Added in v.31

  ViewVC Help
Powered by ViewVC 1.1.26