File Coverage

File:	t/Search_PazPar2.t
Coverage:	100.0%

line	stmt	sub	time	code
1				#!/usr/bin/perl
2				#
3				# This Koha test module is a stub!
4				# Add more tests here!!!
5
6	1 1 1	1	1.33283541077573e+15 2 25	use strict;
7	1 1 1	1	5 1 56	use warnings;
8
9	1 1 1	1	231 20113 30	use Test::More tests => 8;
10
11				BEGIN {
12	1	1	1667	use_ok('C4::Search::PazPar2');
13				}
14
15	1		241334	my $obj = C4::Search::PazPar2->new();
16	1		64	ok ($obj, "testing new works");
17	1		970	is ($obj->init(), "1", "testing init returns '1' when given no arguments");
18	1		1030	is ($obj->search(), "1", "testing search returns '1' when given no arguments");
19	1		1176	is ($obj->stat(), undef, "testing stat returns undef when given no arguments");
20	1		557	is ($obj->show(), undef, "testing show returns undef when given no arguments");
21	1		611	is ($obj->record(), undef, "testing record returns undef when given no arguments");
22	1		697	is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");