Megatest

Diff
Login

Differences From Artifact [5eabc5f129]:

To Artifact [642b77f666]:


777
778
779
780
781
782
783


784

785
786
787

788

789
790
791

792
793
794
795
796
797
798
777
778
779
780
781
782
783
784
785

786
787
788
789
790

791
792
793

794
795
796
797
798
799
800
801







+
+
-
+



+
-
+


-
+







(define (common:args-get-state)
  (or (args:get-arg "-state")(args:get-arg ":state")))

(define (common:args-get-status)
  (or (args:get-arg "-status")(args:get-arg ":status")))

(define (common:args-get-testpatt rconf)
  (let* ((tags-testpatt (if (args:get-arg "-tagexpr") (string-join (runs:get-tests-matching-tags (args:get-arg "-tagexpr")) ",") #f))
         (testpatt-key  (if (args:get-arg "-mode") (args:get-arg "-mode") "TESTPATT"))
  (let* ((rtestpatt     (if rconf (runconfigs-get rconf "TESTPATT") #f))
         (rtestpatt     (if rconf (runconfigs-get rconf testpatt-key) #f))
	 (args-testpatt (or (args:get-arg "-testpatt")
			    (args:get-arg "-runtests")
			    "%"))
	 (testpatt    (or tags-testpatt
	 (testpatt    (or (and (equal? args-testpatt "%")
                          (and (equal? args-testpatt "%")
			       rtestpatt)
			  args-testpatt)))
    (if rtestpatt (debug:print-info 0 *default-log-port* "TESTPATT from runconfigs: " rtestpatt))
    (if rtestpatt (debug:print-info 0 *default-log-port* "testpatt defined in "testpatt-key" from runconfigs: " rtestpatt))
    testpatt))

(define (common:get-linktree)
  (or (getenv "MT_LINKTREE")
      (if *configdat*
	  (configf:lookup *configdat* "setup" "linktree"))))