Megatest

Diff
Login

Differences From Artifact [faa48a9ca2]:

To Artifact [be31830ee6]:


447
448
449
450
451
452
453
454


455
456
457
458
459
460
461
447
448
449
450
451
452
453

454
455
456
457
458
459
460
461
462







-
+
+







			       rtestpatt)
			  args-testpatt)))
    (if rtestpatt (debug:print-info 0 "TESTPATT from runconfigs: " rtestpatt))
    testpatt))

(define (common:args-get-runname)
  (or (args:get-arg "-runname")
      (args:get-arg ":runname")))
      (args:get-arg ":runname")
      (getenv "MT_RUNNAME")))

(define (common:args-get-target #!key (split #f))
  (let* ((keys    (keys:config-get-fields *configdat*))
	 (numkeys (length keys))
	 (target  (if (args:get-arg "-reqtarg")
		      (args:get-arg "-reqtarg")
		      (if (args:get-arg "-target")