projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
be636a4
)
test with new API
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 11:58:46 +0000
(13:58 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 11:58:46 +0000
(13:58 +0200)
t/1-COBISS.t
patch
|
blob
|
history
diff --git
a/t/1-COBISS.t
b/t/1-COBISS.t
index
9a8f1f7
..
1448f61
100755
(executable)
--- a/
t/1-COBISS.t
+++ b/
t/1-COBISS.t
@@
-7,6
+7,14
@@
use Test::More tests => 3;
use_ok 'COBISS';
-ok( my $
search = COBISS->search( 'TI=book' ), 'search
' );
+ok( my $
o = COBISS->new, 'new
' );
-ok( my $marc = COBISS->fetch_marc, 'fetch_marc' );
+ok( my $hits = $o->search( 'TI=book' ), 'search' );
+diag "$hits results";
+
+foreach ( 1 .. 3 ) {
+
+ok( my $marc = $o->next_marc, "next_marc $_" );
+diag $marc;
+
+}