Megatest

				       (not (file-exists? test-path)))
				   #f
				   test-path)))
			   tests)))
	 ;; ((string-intersperse (map cadr (rmt:get-key-val-pairs 1)) "-")
	 (bup-init-params  (list "-d" archive-dir "init"))
	 (bup-index-params (append (list "-d" archive-dir "index") test-paths))
	 (bup-save-params  (append (list "-d" archive-dir "save" (conc "--strip-path=" linktree) "-n" ;; (conc "-" compress) or (conc "--compress=" compress)
					 (conc (common:get-testsuite-name) "-" run-id))
				   test-paths)))
	 (bup-save-params  (append (list "-d" archive-dir "save" (conc "--strip-path=" linktree)
					 (conc "-" compress) ;; or (conc "--compress=" compress)
					  "-n" (conc (common:get-testsuite-name) "-" run-id))
				   test-paths))
	 (print-prefix     #f)) ;; "Running: ")) ;; change to #f to turn off printing
    (if (not (file-exists? archive-dir))
	(create-directory archive-dir #t))
    (if (not (file-exists? (conc archive-dir "/HEAD")))
	(begin
	  ;; replace this with jobrunner stuff enventually
	  (debug:print-info 0 "Init bup in " archive-dir)
	  (run-n-wait bup-exe params: bup-init-params))) ;;  print-cmd: "Running: ")))
	  (run-n-wait bup-exe params: bup-init-params print-cmd: print-prefix)))
    (debug:print-info 0 "Indexing data to be archived")
    (run-n-wait bup-exe params: bup-index-params) ;;  print-cmd: "Running: ")
    (run-n-wait bup-exe params: bup-index-params print-cmd: print-prefix)
    (debug:print-info 0 "Archiving data with bup")
    (run-n-wait bup-exe params: bup-save-params) ;;  print-cmd: "Running: ")
    (run-n-wait bup-exe params: bup-save-params print-cmd: print-prefix)
    #t))