Megatest

  license GPL, Copyright Matt Welland 2006-2012

Usage: megatest [options]
  -h                      : this help
  -version                : print megatest version (currently " megatest-version ")

Launching and managing runs
  -run testpatt[/itempatt] : run all tests that are not state COMPLETED and status PASS, 
                            CHECK or KILLED, matching pattern testpatt...

  -remove-runs            : remove the data for a run, requires :runname and -testpatt
                            Optionally use :state and :status
  -set-state-status X,Y   : set state to X and status to Y, requires controls per -remove-runs
  -rerun FAIL,WARN...     : force re-run for tests with specificed status(s)
  -rollup                 : (currently disabled) fill run (set by :runname)  with latest test(s)
                            from prior runs with same keys
  -lock                   : lock run specified by target and runname

			"-env2file"
			"-setvars"
			"-set-state-status"
			"-debug" ;; for *verbosity* > 2
			"-gen-megatest-test"
			"-override-timeout"
			"-test-files"  ;; -test-paths is for listing all
			"-run"
			) 
		 (list  "-h"
			"-version"
		        "-force"
		        "-xterm"
		        "-showkeys"
		        "-test-status"

;;     launch task
;;   else
;;     put task in deferred queue
;; if still ok to run tasks
;;   process deferred tasks per above steps

;; run all tests are are Not COMPLETED and PASS or CHECK
(if (or (args:get-arg "-runall") ;; deprecated
	(args:get-arg "-run")
	(args:get-arg "-runtests"))
    (begin
      (if (args:get-arg "-testpatt")
	  (begin
	    (debug:print 0 "ERROR:-testpatt is deprecated, use -run patt1,patt2... instead, your pattern " (args:get-arg "-testpatt") " will be ignored")
	    (sleep 3)))
      (if (args:get-arg "-itempatt")
	  (begin
	    (debug:print 0 "ERROR: -itempatt is not used with -run, your pattern " (args:get-arg "-itempatt") " will be ignored")
	    (sleep 3)))
      (if (args:get-arg "-runall")
	  (begin
	    (debug:print 0 "ERROR: -runall is deprecated, use -run patt1,patt2 ... instead")
	    (sleep 3)))
      (if (args:get-arg "-runtests")
	  (debug:print 0 "WARNING: -runtests is deprecated, use -run patt1,patt2 ... instead"))
      (general-run-call 
       "-run"
       "run tests"
       (lambda (target runname keys keynames keyvallst)
	 (runs:run-tests target
			 runname

			 '()
			 (or (args:get-arg "-run")
			     (args:get-arg "-runtests")
			     (args:get-arg "-testpatt"))
			 user
			 args:arg-hash)))))

;;======================================================================
;; run one test
;;======================================================================

;; 1. find the config file
;; 2. change to the test directory
;; 3. update the db with "test started" status, set running host
;; 4. process launch the test
;;    - monitor the process, update stats in the db every 2^n minutes
;; 5. as the test proceeds internally it calls megatest as each step is
;;    started and completed
;;    - step started, timestamp
;;    - step completed, exit status, timestamp
;; 6. test phone home
;;    - if test run time > allowed run time then kill job
;;    - if cannot access db > allowed disconnect time then kill job

;; (if (args:get-arg "-runtests")
;;   (general-run-call 
;;    "-runtests" 
;;    "run a test" 
;;    (lambda (target runname keys keynames keyvallst)
;;      (runs:run-tests target
;; 		     runname
;; 		     (args:get-arg "-runtests")
;; 		     (args:get-arg "-testpatt")
;; 		     user
;; 		     args:arg-hash))))

;;======================================================================
;; Rollup into a run
;;======================================================================

(if (args:get-arg "-rollup")
    (begin