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

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

Update of /cvsroot/refdb/perlmod/RefDBClient
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24499

Modified Files:
	test.pl 
Log Message:
minor fixes

Index: test.pl
===================================================================
RCS file: /cvsroot/refdb/perlmod/RefDBClient/test.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -U2 -r1.10 -r1.11
--- test.pl	21 Apr 2005 21:28:37 -0000	1.10
+++ test.pl	14 Aug 2005 00:00:35 -0000	1.11
@@ -27,4 +27,6 @@
 my $ppasswd = "pass";
 my $testdb = "perltest";
+my $adduser_ip = "localhost";
+my $bibencoding = "UTF-8";
 
 ## ask user for connection parameters
@@ -201,9 +203,9 @@
 print "createdb result summary: $summary\n";
 
-# add a user
+# add users
 print "$numtest..$numtotal: adduser\n";
 $numtest++;
 
-$summary = $clienta->refdb_adduser($server_ip, "$testdb", $cpasswd, $cuser);
+$summary = $clienta->refdb_adduser($adduser_ip, "$testdb", $cpasswd, $cuser);
 
 print "start adduser result:\n";
@@ -212,4 +214,7 @@
 print "adduser result summary: $summary\n";
 
+# silently add another user for picking refs
+$summary = $clienta->refdb_adduser($adduser_ip, "$testdb", $ppasswd, $puser);
+
 # select the new database
 print "$numtest..$numtotal: selectdb\n";
@@ -400,5 +405,5 @@
 
 #@result = $clientc->refdb_dbib("db31", "refdbteststyle", \&read_styledriver, \&read_biblio, "ISO-8859-1", $instring);
-$summary = $clientc->refdb_dbib("db31", "refdbteststyle", "ISO-8859-1", $instring);
+$summary = $clientc->refdb_dbib("db31", "refdbteststyle", $bibencoding, $instring);
 
 print "start dbib result:\n";
@@ -515,5 +520,5 @@
 $numtest++;
 
-$summary = $clienta->refdb_deleteuser($serverip, "$testdb", $cuser);
+$summary = $clienta->refdb_deleteuser($adduser_ip, "$testdb", $cuser);
 
 print "start deleteuser result:\n";
@@ -522,4 +527,9 @@
 print "deleteuser result summary: $summary\n";
 
+# silently remove the user that picked refs, and the system db entries
+$summary = $clienta->refdb_deleteuser($adduser_ip, "$testdb", $puser);
+$summary = $clienta->refdb_deleteuser($adduser_ip, "refdb", $cuser);
+$summary = $clienta->refdb_deleteuser($adduser_ip, "refdb", $puser);
+
 # delete link
 print "$numtest..$numtotal: deletelink\n";