12
13
14
15
16
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
12
13
14
15
16
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
-
-
+
+
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
-
-
+
+
+
-
-
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-
-
-
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;
;; (include "common.scm")
(include "megatest-version.scm")
(declare (uses common))
;; (declare (uses megatest-version))
(declare (uses margsmod))
(import margsmod)
(declare (uses margsmod))
(import margsmod)
(declare (uses margsmod.import))
(declare (uses debugprint))
(import debugprint)
(declare (uses debugprint.import))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))
(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))
(declare (uses items))
(import items)
(declare (uses items.import))
(declare (uses ods))
(import ods)
(declare (uses tests))
(declare (uses genexample))
(declare (uses db))
(declare (uses ods.import))
(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))
(declare (uses tdb))
(declare (uses mt))
(declare (uses pgdb))
(import pgdb)
(declare (uses pgdb.import))
(declare (uses tasks)) ;; only used for debugging.
(import tasks)
(declare (uses tasks.import))
(declare (uses env))
(declare (uses diff-report))
(declare (uses apimod))
(import apimod)
(declare (uses apimod.import))
(declare (uses portlogger))
(import portlogger)
(declare (uses portlogger.import))
;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!
(declare (uses commonmod))
(declare (uses debugprint))
(import commonmod)
(import debugprint)
(declare (uses commonmod.import))
(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))
(declare (uses apimod))
(import apimod)
(declare (uses apimod.import))
(declare (uses common))
;; (declare (uses megatest-version))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses rmtmod))
(import rmtmod)
(declare (uses rmtmod.import))
(declare (uses tests))
(declare (uses genexample))
(declare (uses db))
(declare (uses tdb))
(declare (uses mt))
(declare (uses env))
(declare (uses diff-report))
;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!
(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 "run_records.scm")
(include "megatest-fossil-hash.scm")
(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
readline apropos json http-client directory-utils typed-records
http-client srfi-18 extras format)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
|