[Refdb-cvs] CVS: perlmod/RefDBClient test.pl,1.11,1.12

[Markus H. <mho...@us...>]

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";