Z3950-HTML-Scraper/t/2-Aleph.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 3;

use_ok 'Aleph';

ok( my $search = Aleph->search( 'WTI=linux' ), 'search' );

ok( my $marc = Aleph->next_marc, 'next_marc' );
1	dpavlin	11	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use Test::More tests => 3;
7
8			use_ok 'Aleph';
9
10			ok( my $search = Aleph->search( 'WTI=linux' ), 'search' );
11
12			ok( my $marc = Aleph->next_marc, 'next_marc' );