29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")
;; (use trace dot-locking)
;; (trace
;; tests:match
;; runs:run-tests)
;; db:teststep-set-status!
;; db:open-test-db-by-test-id
|
>
>
>
>
|
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
;; (use trace dot-locking)
;; (trace
;; tests:match
;; runs:run-tests)
;; db:teststep-set-status!
;; db:open-test-db-by-test-id
|