Update of /cvsroot/refdb/perlmod/RefDBClient
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8573
Modified Files:
test.pl
Log Message:
added test for refdb_updatejo()
Index: test.pl
===================================================================
RCS file: /cvsroot/refdb/perlmod/RefDBClient/test.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -U2 -r1.11 -r1.12
--- test.pl 14 Aug 2005 00:00:35 -0000 1.11
+++ test.pl 22 Oct 2005 20:38:53 -0000 1.12
@@ -7,5 +7,5 @@
# (It may become useful if the test is moved to ./t subdirectory.)
-BEGIN { $| = 1; print "0..40\n"; }
+BEGIN { $| = 1; print "0..41\n"; }
END {print "not ok 0\n" unless $loaded;}
use RefDBClient::Client;
@@ -67,5 +67,5 @@
my $numtest = 1;
my $numok = 1;
-my $numtotal = 40;
+my $numtotal = 41;
# password encryption test
@@ -404,5 +404,4 @@
close IN;
-#@result = $clientc->refdb_dbib("db31", "refdbteststyle", \&read_styledriver, \&read_biblio, "ISO-8859-1", $instring);
$summary = $clientc->refdb_dbib("db31", "refdbteststyle", $bibencoding, $instring);
@@ -478,4 +477,15 @@
print "getj2 result summary: $summary\n";
+# update journal names
+print "$numtest..$numtotal: updatejo\n";
+$numtest++;
+
+$summary = $clientc->refdb_updatejo(":JA:=\'Biochem.Pharmacol.\' :JF:=\'Biochemical Pharmacology\'");
+
+print "start updatejo result:\n";
+print $clientc->get_data();
+print "end updatejo result:\n";
+print "updatejo result summary: $summary\n";
+
# get editor names
print "$numtest..$numtotal: geted\n";
|
