16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
+
|
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses tests))
(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")
|
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
|
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
|
-
+
-
+
|
(set! db (open-db))
(if (not (args:get-arg "-server"))
(server:client-setup db))
(if (args:get-arg "-load-test-data")
;; has sub commands that are rdb:
(db:load-test-data db test-id))
(if (args:get-arg "-setlog")
(rdb:test-set-log! db test-id (args:get-arg "-setlog")))
(rtests:test-set-log! db test-id (args:get-arg "-setlog")))
(if (args:get-arg "-set-toplog")
(rdb:test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
(rtests:test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
(if (args:get-arg "-summarize-items")
(rdb:tests:summarize-items db run-id test-name #t)) ;; do force here
(if (args:get-arg "-runstep")
(if (null? remargs)
(begin
(debug:print 0 "ERROR: nothing specified to run!")
(sqlite3:finalize! db)
|