Parent Directory | Revision Log | Patch
revision 36 by dpavlin, Thu Jan 6 20:48:07 2005 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( 'Biblio::Isis' ); } | BEGIN { use_ok( 'Biblio::Isis' ); } |
10 | ||
11 | my $path = File::Spec->catfile('data', 'winisis', 'BIBL'); | |
12 | ||
13 | my $object = Biblio::Isis->new ( | my $object = Biblio::Isis->new ( |
14 | isisdb => './data/winisis/BIBL', | isisdb => $path, |
15 | ); | ); |
16 | ||
17 | isa_ok ($object, 'Biblio::Isis'); | isa_ok ($object, 'Biblio::Isis'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |