View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/Search_PazPar2.t (-2 / +9 lines)
Lines 6-14 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::More tests => 8;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::Search::PazPar2');
12
        use_ok('C4::Search::PazPar2');
13
}
13
}
14
14
15
- 
15
my $obj = C4::Search::PazPar2->new();
16
ok ($obj, "testing new works");
17
is ($obj->init(), "1", "testing init returns '1' when given no arguments");
18
is ($obj->search(), "1", "testing search returns '1' when given no arguments");
19
is ($obj->stat(), undef, "testing stat returns undef when given no arguments");
20
is ($obj->show(), undef, "testing show returns undef when given no arguments");
21
is ($obj->record(), undef, "testing record returns undef when given no arguments");
22
is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");

Return to bug 5327