projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a7f3c37
)
Stricter checking of retrieved record.
author
mike
<mike>
Mon, 31 Oct 2005 15:02:41 +0000
(15:02 +0000)
committer
mike
<mike>
Mon, 31 Oct 2005 15:02:41 +0000
(15:02 +0000)
t/1-Net-Z3950-ZOOM.t
patch
|
blob
|
history
t/2-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/1-Net-Z3950-ZOOM.t
b/t/1-Net-Z3950-ZOOM.t
index
3a8ebf3
..
43445a9
100644
(file)
--- a/
t/1-Net-Z3950-ZOOM.t
+++ b/
t/1-Net-Z3950-ZOOM.t
@@
-1,4
+1,4
@@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.11 2005-10-18 16:27:58 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.12 2005-10-31 15:03:11 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
@@
-80,7
+80,7
@@
ok($n == 1, "found 1 record as expected");
my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
my $len = 0;
my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
my $len = 0;
my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
-ok($data =~ /245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS/,
+ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
ok($raw =~ /^00981n/, "raw record contains expected header");
"rendered record has expected title");
my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
ok($raw =~ /^00981n/, "raw record contains expected header");
diff --git
a/t/2-ZOOM.t
b/t/2-ZOOM.t
index
603ce10
..
ab2a90b
100644
(file)
--- a/
t/2-ZOOM.t
+++ b/
t/2-ZOOM.t
@@
-1,4
+1,4
@@
-# $Id: 2-ZOOM.t,v 1.7 2005-10-18 16:27:29 mike Exp $
+# $Id: 2-ZOOM.t,v 1.8 2005-10-31 15:02:41 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
@@
-72,7
+72,7
@@
ok($n == 1, "found 1 record as expected");
my $rec = $rs->record(0);
my $data = $rec->render();
my $rec = $rs->record(0);
my $data = $rec->render();
-ok($data =~ /245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS/,
+ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = $rec->raw();
ok($raw =~ /^00981n/, "raw record contains expected header");
"rendered record has expected title");
my $raw = $rec->raw();
ok($raw =~ /^00981n/, "raw record contains expected header");