Index: minimt/minimt.scm
==================================================================
--- minimt/minimt.scm
+++ minimt/minimt.scm
@@ -33,11 +33,11 @@
 ;; RUN A RUN
 (define (run-run dbconn target run-name num-tests)
   (create-run dbconn target run-name)
   (let ((run-id (get-run-id dbconn target run-name)))
     (let loop ((test-num 0))
-      (system (conc "nbfake minimt runtest " run-id " test-" test-num))
+      (system (conc "NBFAKE_LOG=test-" test-num "-run-id-" run-id ".log NBFAKE_HOST=" *remotehost* " nbfake minimt runtest " run-id " test-" test-num))
       (if (< test-num num-tests)
 	  (loop (+ test-num 1))))))
 
 ;; Do what is asked
 (let ((args (cdr (argv))))
@@ -56,9 +56,20 @@
 	     (print "Launching test " test-name " for run-id " run-id)
 	     (run-test dbconn run-id test-name)))
 	  ((runrun)
 	   (let ((target   (cadr args))
 		 (run-name (caddr args)))
-	     (run-run dbconn target run-name *numtests*)))
+	     (run-run dbconn target run-name *numtests*)
+	     (print "Use: sqlite3 runtest/mt.db 'select max(end_time)-min(start_time) from tests;' to see the total run time")
+	     ))
+	  ((runall)
+	   (for-each
+	    (lambda (target)
+	      (let loop ((run-num 0))
+		(thread-sleep! *rundelay*)
+		(system (conc "NBFAKE_LOG=run-" target "-" run-num ".log nbfake minimt runrun " target " run-" run-num))
+		(if (< run-num *numruns*)
+		    (loop (+ run-num 1)))))
+	    *targets*))
 	  (else
 	   (print "Command: " cmd " not recognised. Run without params to see help.")))
 	(close-database (dbconn-dat-dbh dbconn)))))

Index: minimt/setup.scm
==================================================================
--- minimt/setup.scm
+++ minimt/setup.scm
@@ -1,10 +1,11 @@
 (define *remotehost* "orion")
 (define *homehost*   "zeus")
 (define *homepath*   "/nfs/phoebe/disk1/home/mfs_matt/data/megatest/minimt/runtest")
 (define *numtests*   50)
-(define *numruns*    50)
+(define *numruns*    5)
+(define *targets*    '("targ1"))
 (define *testdelay*  0)
 (define *rundelay*   0)
 (define *launchdelay* 0)
 (define *stepdelay*   0)