--- trunk/t/6-unit.t 2005/07/24 15:35:46 33 +++ trunk/t/6-unit.t 2005/12/05 17:46:57 209 @@ -12,7 +12,7 @@ BEGIN { use_ok( 'WebPAC::Lookup' ); use_ok( 'WebPAC::Input::ISIS' ); -use_ok( 'WebPAC::DB' ); +use_ok( 'WebPAC::Store' ); use_ok( 'WebPAC::Normalize::XML' ); use_ok( 'WebPAC::Output::TT' ); } @@ -42,9 +42,9 @@ ok(my $path = tempdir( CLEANUP => 1 ), "path"); -ok(my $db = new WebPAC::DB( +ok(my $db = new WebPAC::Store( path => $path, -), "new DB"); +), "new Store"); ok(my $n = new WebPAC::Normalize::XML( # filter => { 'foo' => sub { shift } }, @@ -65,13 +65,13 @@ while (my $row = $isis->fetch) { - ok(my @ds = $n->data_structure($row), "data_structure"); + ok(my $ds = $n->data_structure($row), "data_structure"); -# diag Dumper(\@ds); +# diag Dumper($ds); ok(my $html = $out->apply( template => 'html.tt', - data => \@ds, + data => $ds, ), "apply"); $html =~ s#\s*[\n\r]+\s*##gs;