Add TESTMODE test to make sure we do not console_setup nodes!

db/nalloc.in

@@ -8,8 +8,9 @@ my $d = 0;
 #
 # Configure variables
 #
-my $TB     = "@prefix@";
-my $DBNAME = "@TBDBNAME@";
+my $TB       = "@prefix@";
+my $DBNAME   = "@TBDBNAME@";
+my $TESTMODE = @TESTMODE@;
 
 my $dbh = Mysql->connect("localhost",$DBNAME,"script","none");
 
@@ -101,7 +102,7 @@ $cmd = "unlock tables";
 $sth = $dbh->query($cmd) 
   || die("Locking error:\n$cmd\nError string is:".$dbh->errstr."\n");
 
-if (!$error && @nodes) {
+if (! $TESTMODE && !$error && @nodes) {
     my @conlist=();
     my @sharks=();
 

db/nfree.in

@@ -4,8 +4,9 @@ use Mysql;
 #
 # Configure variables
 #
-my $TB     = "@prefix@";
-my $DBNAME = "@TBDBNAME@";
+my $TB       = "@prefix@";
+my $DBNAME   = "@TBDBNAME@";
+my $TESTMODE = @TESTMODE@;
 
 my $dbh = Mysql->connect("localhost",$DBNAME,"script","none");
 
@@ -236,7 +237,7 @@ if ( (@reloaded > 0) || (keys %reserves > 0) ) {
     || die("Locking error:\n$cmd\nError string is:".$dbh->errstr."\n");
 }
 
-if (@freed_nodes) {
+if (!$TESTMODE && @freed_nodes) {
     my @conlist=();
     my @sharks=();