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:
02fac26
)
and test it
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 22 Oct 2010 23:23:20 +0000
(
01:23
+0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 22 Oct 2010 23:23:20 +0000
(
01:23
+0200)
t/2-Aleph.t
patch
|
blob
|
history
diff --git
a/t/2-Aleph.t
b/t/2-Aleph.t
index
42e29bf
..
e14d48e
100755
(executable)
--- a/
t/2-Aleph.t
+++ b/
t/2-Aleph.t
@@
-3,10
+3,14
@@
use warnings;
use strict;
-use Test::More tests =>
3
;
+use Test::More tests =>
4
;
use_ok 'Aleph';
-ok( my $
search = Aleph->search( 'WTI=linux' ), 'search
' );
+ok( my $
o = Aleph->new, 'new
' );
-ok( my $marc = Aleph->next_marc, 'next_marc' );
+ok( my $hits = $o->search( 'WTI=linux' ), 'search' );
+diag "$hits results";
+
+ok( my $marc = $o->next_marc, 'next_marc' );
+diag $marc;