--- bulkmarcimport.pl.orig	2007-03-16 22:21:05.000000000 -0400
+++ bulkmarcimport.pl	2007-03-16 22:19:51.000000000 -0400
@@ -171,7 +171,7 @@
 }
 
 my $dbh = C4::Context->dbh;
-
+unless ($test_parameter) {
 if ($delete) {
 	print "deleting biblios\n";
 	$dbh->do("delete from biblio");
@@ -185,6 +185,7 @@
 	$dbh->do("delete from marc_word");
 	$dbh->do("delete from marc_blob_subfield");
 }
+}
 if ($test_parameter) {
 	print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
 }