projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix typo in diagnostic.
[ZOOM-Perl-moved-to-github.git]
/
t
/
2-ZOOM.t
diff --git
a/t/2-ZOOM.t
b/t/2-ZOOM.t
index
97f6dcf
..
ab2a90b
100644
(file)
--- a/
t/2-ZOOM.t
+++ b/
t/2-ZOOM.t
@@
-1,21
+1,13
@@
-# $Id: 2-ZOOM.t,v 1.6 2005-10-17 13:50:06 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
# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl ZOOM.t'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
+# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
use strict;
use strict;
+use warnings;
use Test::More tests => 21;
BEGIN { use_ok('ZOOM') };
use Test::More tests => 21;
BEGIN { use_ok('ZOOM') };
-#########################
-
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-
my $msg = ZOOM::diag_str(ZOOM::Error::INVALID_QUERY);
ok($msg eq "Invalid query", "diagnostic string lookup works");
my $msg = ZOOM::diag_str(ZOOM::Error::INVALID_QUERY);
ok($msg eq "Invalid query", "diagnostic string lookup works");
@@
-80,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");