Megatest

	 (if (not (vector? t))
	     (conc t)
	     (conc (db:test-get-testname t) ":" (db:test-get-state t) "/" (db:test-get-status t))))
       lst))



;; NOTES:
;; - need to pickle test-record or tests:testqueue and testconfig... 
;; - need to keep test-registry bookkeeping in run:test somehow...
;; - dropping *test-meta-updated* processing; comment mentioned handling happened but left in just-in-case.  Exercising option now.
;; - globals to consider:
;;    *test-meta-updated* ;; dropped
;;    *configdat*
;;    *default-log-port*  
;;    *toppath*
;;    *globalexitstatus*
(define (run:test run-id run-info keyvals runname test-record flags parent-test test-registry all-tests-registry)
  ;; run:test refactored to spawn external command to background to allow runloop to proceed without waiting for test launch to complete
  ;; run:test will spawn-command to background "megatest -internal-run-test ..."
  ;;   which calls run:test-bootstrap which calls run:test-internal -- the old run:test
  
  (let* ((test-path    (hash-table-ref all-tests-registry test-name)) ;; path to test definition (conc *toppath* "/tests/" test-name)) ;; could use tests:get-testconfig here ...
         (flag-switches ...)