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