projects
/
Biblio-Isis
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
re-organize directories, add CDS/ISIS manual -- part about file structure
[Biblio-Isis]
/
t
/
002_isis.t
diff --git
a/t/002_isis.t
b/t/002_isis.t
index
ec2d510
..
e1163e5
100755
(executable)
--- a/
t/002_isis.t
+++ b/
t/002_isis.t
@@
-7,7
+7,7
@@
use Data::Dumper;
use Test::More tests => 110;
use Test::More tests => 110;
-BEGIN { use_ok( '
IsisDB
' ); }
+BEGIN { use_ok( '
Biblio::Isis
' ); }
my $debug = shift @ARGV;
my $isis;
my $debug = shift @ARGV;
my $isis;
@@
-16,7
+16,7
@@
sub test_data {
my $args = {@_};
my $args = {@_};
- isa_ok ($isis, '
IsisDB
');
+ isa_ok ($isis, '
Biblio::Isis
');
cmp_ok($isis->count, '==', 5, "count is 5");
cmp_ok($isis->count, '==', 5, "count is 5");
@@
-122,7
+122,7
@@
sub test_data {
}
}
-$isis =
IsisDB
->new (
+$isis =
Biblio::Isis
->new (
isisdb => './data/winisis/BIBL',
include_deleted => 1,
debug => $debug,
isisdb => './data/winisis/BIBL',
include_deleted => 1,
debug => $debug,
@@
-141,7
+141,7
@@
test_data(
) ],
);
) ],
);
-$isis =
IsisDB
->new (
+$isis =
Biblio::Isis
->new (
isisdb => './data/isismarc/BIBL',
include_deleted => 1,
);
isisdb => './data/isismarc/BIBL',
include_deleted => 1,
);
@@
-158,7
+158,7
@@
test_data(
# check logically deleted
# check logically deleted
-$isis =
IsisDB
->new (
+$isis =
Biblio::Isis
->new (
isisdb => './data/winisis/BIBL',
include_deleted => 1,
);
isisdb => './data/winisis/BIBL',
include_deleted => 1,
);
@@
-166,7
+166,7
@@
$isis = IsisDB->new (
ok($isis->fetch(3), "deleted found");
cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
ok($isis->fetch(3), "deleted found");
cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted");
-$isis =
IsisDB
->new (
+$isis =
Biblio::Isis
->new (
isisdb => './data/winisis/BIBL',
debug => $debug,
);
isisdb => './data/winisis/BIBL',
debug => $debug,
);