Parent Directory | Revision Log | Patch
revision 2 by dpavlin, Tue Dec 28 01:41:45 2004 UTC | revision 38 by dpavlin, Wed Jan 12 19:28:41 2005 UTC | |
---|---|---|
# | Line 4 use strict; | Line 4 use strict; |
4 | use blib; | use blib; |
5 | ||
6 | use Test::More tests => 2; | use Test::More tests => 2; |
7 | use File::Spec; | |
8 | ||
9 | BEGIN { use_ok( 'IsisDB' ); } | BEGIN { use_ok( 'Biblio::Isis' ); } |
10 | ||
11 | my $object = IsisDB->new ( | my $path = File::Spec->catfile('data', 'winisis', 'BIBL'); |
12 | isisdb => '/data/isis_data/ps/LIBRI/LIBRI', | |
13 | my $object = Biblio::Isis->new ( | |
14 | isisdb => $path, | |
15 | ); | ); |
16 | ||
17 | isa_ok ($object, 'IsisDB'); | isa_ok ($object, 'Biblio::Isis'); |
18 | ||
19 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |