Megatest

Diff
Login

Differences From Artifact [4af2fd651e]:

To Artifact [59afc64e7d]:


122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
122
123
124
125
126
127
128


129
130
131
132
133
134
135







-
-







    cmd))


(define (subrun:sanitize-path inpath)
  (let* ((insane-pattern (irregex "[^[a-zA-Z0-9_\\-]")))
    (regex#string-substitute insane-pattern "_" inpath #t)))

(subrun:sanitize-path "a/b/c-d/e*f")

(define (subrun:get-runarea test-run-dir)
  (if (subrun:subrun-test-initialized? test-run-dir)
      (let* ((info-alist (subrun:selector+log-alist
                          test-run-dir
                          "foo"))
             (run-area   (if (list? info-alist)
                             (alist-ref "-start-dir" info-alist equal? #f)