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

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

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

Modified Files:
	test.pl 
Log Message:
uncommented addstyle test

Index: test.pl
===================================================================
RCS file: /cvsroot/refdb/perlmod/RefDBClient/test.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -U2 -r1.9 -r1.10
--- test.pl	21 Apr 2005 21:27:58 -0000	1.9
+++ test.pl	21 Apr 2005 21:28:37 -0000	1.10
@@ -149,21 +149,21 @@
 
 # add a bibliography style to the database
-#print "$numtest..$numtotal: addstyle\n";
-#$numtest++;
+print "$numtest..$numtotal: addstyle\n";
+$numtest++;
 
-#my $file = "testdata/refdbteststyle.xml";
-##my $file = "testdata/bibtex-invalid.xml";
-#open IN, "< $file";
-#while (<IN>) {
-#    $instring .= $_;
-#}
-#close IN;
-
-#$summary = $clienta->refdb_addstyle($instring);
-
-#print "start addstyle result:\n";
-#print $clienta->get_data();
-#print "end addstyle result:\n";
-#print "addstyle result summary: $summary\n";
+my $file = "testdata/refdbteststyle.xml";
+#my $file = "testdata/bibtex-invalid.xml";
+open IN, "< $file";
+while (<IN>) {
+    $instring .= $_;
+}
+close IN;
+
+$summary = $clienta->refdb_addstyle($instring);
+
+print "start addstyle result:\n";
+print $clienta->get_data();
+print "end addstyle result:\n";
+print "addstyle result summary: $summary\n";