@@ -29,10 +29,11 @@
 (declare (uses apimod))
 (declare (uses servermod))
 
 (module rmtmod
 	(
+	 rmt:test-data-rollup
 	 rmt:import-sexpr
 	 rmt:read-test-data-varpatt
 	 rmt:get-run-status
 	 rmt:set-run-status
 
@@ -282,18 +283,10 @@
   (rmtmod:send-receive 'get-test-state-status-by-id run-id (list run-id test-id)))
 
 (define (rmt:test-get-rundir-from-test-id run-id test-id)
   (rmtmod:send-receive 'test-get-rundir-from-test-id run-id (list run-id test-id)))
 
-;; (define (rmt:open-test-db-by-test-id run-id test-id #!key (work-area #f))
-;;   (assert (number? run-id) "FATAL: Run id required.")
-;;   (let* ((test-path (if (string? work-area)
-;; 			work-area
-;; 			(rmt:test-get-rundir-from-test-id run-id test-id))))
-;;     (debug:print 3 *default-log-port* "TEST PATH: " test-path)
-;;     (open-test-db test-path)))
-
 ;; WARNING: This currently bypasses the transaction wrapped writes system
 (define (rmt:test-set-state-status-by-id run-id test-id newstate newstatus newcomment)
   (assert (number? run-id) "FATAL: Run id required.")
   (rmtmod:send-receive 'test-set-state-status-by-id run-id (list run-id test-id newstate newstatus newcomment)))