Megatest

Differences From Artifact [51076419ec]:

• File common.scm — part of check-in [39d1713c91] at 2014-11-02 09:24:19 on branch streamline-exception-handling — stopped calls to set state and status where the test-id was not known (test not actually registered yet). Added safety net to some calls to print call chain if called with bad data, moved couple mutexes around to prevent contention (user: matt, size: 20391) [annotate] [blame] [check-ins using] [more...]

To Artifact [fba3cc219f]:

• File common.scm — part of check-in [158a434c54] at 2014-11-06 07:33:38 on branch v1.60 — Portlogger uses CREATE TABLE IF NOT EXISTS, so no need to test for file - just create the table every time. Added kill server when http-client has issue. Fixed typos in tasks:kill-server (user: mrwellan, size: 20390) [annotate] [blame] [check-ins using]

208
209
210
211
212
213
214
215
216
217
218
219
220
221
222

    (if val val default)))

(define (assoc/default key lst . default)
  (let ((res (assoc key lst)))
    (if res (cadr res)(if (null? default) #f (car default)))))

(define (common:get-testsuite-name)
  (or (configf:lookup *configdat* "server" "testsuite" )
       (pathname-file *toppath*)))

;;======================================================================
;; Misc utils
;;======================================================================

;; Convert strings like "5s 2h 3m" => 60x60x2 + 3x60 + 5

|

208
209
210
211
212
213
214
215
216
217
218
219
220
221
222

    (if val val default)))

(define (assoc/default key lst . default)
  (let ((res (assoc key lst)))
    (if res (cadr res)(if (null? default) #f (car default)))))

(define (common:get-testsuite-name)
  (or (configf:lookup *configdat* "setup" "testsuite" )
       (pathname-file *toppath*)))

;;======================================================================
;; Misc utils
;;======================================================================

;; Convert strings like "5s 2h 3m" => 60x60x2 + 3x60 + 5