trunk/t/1_load.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 2;
use File::Spec;

BEGIN { use_ok( 'Biblio::Isis' ); }

my $path = File::Spec->catfile('data', 'winisis', 'BIBL');

my $object = Biblio::Isis->new (
        isisdb => $path,
);

isa_ok ($object, 'Biblio::Isis');


1	dpavlin	1	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6			use Test::More tests => 2;
7	dpavlin	38	use File::Spec;
8	dpavlin	1
9	dpavlin	36	BEGIN { use_ok( 'Biblio::Isis' ); }
10	dpavlin	1
11	dpavlin	38	my $path = File::Spec->catfile('data', 'winisis', 'BIBL');
12
13	dpavlin	36	my $object = Biblio::Isis->new (
14	dpavlin	38	isisdb => $path,
15	dpavlin	2	);
16	dpavlin	1
17	dpavlin	36	isa_ok ($object, 'Biblio::Isis');
18	dpavlin	1
19