Megatest

Diff
Login

Differences From Artifact [6498c309e0]:

To Artifact [a845528487]:


17
18
19
20
21
22
23




















24


25
26
27
28
29
30
31
32
33
34
35
36
37



38
39
40
41
42
43
44
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================
;; launch a task - this runs on the originating host, tests themselves
;;
;;======================================================================





















(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix-extras z3


     call-with-environment-variables csv)
(use typed-records pathname-expand matchable)

(import (prefix base64 base64:))
(import (prefix sqlite3 sqlite3:))

(declare (unit launch))
(declare (uses subrun))
(declare (uses common))
(declare (uses configf))
(declare (uses db))
(declare (uses ezsteps))




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")

;;======================================================================
;; ezsteps







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
|
|











>
>
>







17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;======================================================================
;; launch a task - this runs on the originating host, tests themselves
;;
;;======================================================================

(import
 chicken.bitwise
 chicken.condition
 chicken.file
 chicken.file.posix
 chicken.io
 chicken.pathname
 chicken.port
 chicken.pretty-print
 chicken.process
 chicken.process-context
 chicken.process-context.posix
 chicken.process.signal
 chicken.sort
 chicken.string
 chicken.time
 srfi-1
 srfi-69
 system-information

 regex regex-case base64 sqlite3 srfi-18 directory-utils
 ;; posix-extras
 z3
 ;; call-with-environment-variables csv)
 typed-records pathname-expand matchable)

(import (prefix base64 base64:))
(import (prefix sqlite3 sqlite3:))

(declare (unit launch))
(declare (uses subrun))
(declare (uses common))
(declare (uses configf))
(declare (uses db))
(declare (uses ezsteps))

(define getenv get-environment-variable)
(define setenv set-environment-variable!)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")

;;======================================================================
;; ezsteps