git.rot13.org Git - Biblio-Isis/blob - t/1_load.t

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