@@ -54,10 +54,13 @@
   -keepgoing              : continue running until no jobs are \"LAUNCHED\" or
                             \"NOT_STARTED\"
   -rerun FAIL,WARN...     : re-run if called on a test that previously ran (nullified
                             if -keepgoing is also specified)
   -rebuild-db             : bring the database schema up to date
+  -rollup N               : fill run (set by :runname)  with latest test(s) from
+                            past N days, requires keys
+  -rename-run <runb>      : rename run (set by :runname) to <runb>, requires keys
 
 Helpers
   -runstep stepname  ...  : take remaining params as comand and execute as stepname
                             log will be in stepname.log. Best to put command in quotes
   -logpro file            : with -exec apply logpro file to stepname.log, creates
@@ -88,10 +91,13 @@
 			"-set-toplog"
 			"-runstep"
 			"-logpro"
 			"-m"
 			"-rerun"
+			"-days"
+			"-rename-run"
+			"-to"
 			"-debug" ;; for *verbosity* > 2
 			) 
 		 (list  "-h"
 		        "-force"
 		        "-xterm"
@@ -102,10 +108,11 @@
 			"-runall"    ;; run all tests
 			"-remove-runs"
 			"-keepgoing"
 			"-usequeue"
 			"-rebuild-db"
+			"-rollup"
 			"-v" ;; verbose 2, more than normal (normal is 1)
 			"-q" ;; quiet 0, errors/warnings only
 		       )
 		 args:arg-hash
 		 0))
@@ -279,10 +286,15 @@
 		(debug:print 1 "     " (string-intersperse test-names ","))
 		(run-tests db test-names)))
 	  ;; (run-waiting-tests db)
 	  (sqlite3:finalize! db)
 	  (set! *didsomething* #t))))
+
+;;======================================================================
+;; Rollup into a run
+;;======================================================================
+(if (args:get-arg "-rollup")
 
 ;;======================================================================
 ;; run one test
 ;;======================================================================