39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
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
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
(declare (uses mt))
(declare (uses api))
(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
;; (declare (uses ftail))
;; (import ftail)
;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!
(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))
(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))
(declare (uses ods))
(import ods)
(declare (uses ods.import))
(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))
(declare (uses servermod))
(import servermod)
(declare (uses servermod.import))
(declare (uses apimod))
(import apimod)
(declare (uses apimod.import))
(declare (uses rmtmod))
(import rmtmod)
(declare (uses rmtmod.import))
(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")
|
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
|
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
|
-
+
|
"-mark-incompletes"
"-convert-to-norm"
"-convert-to-old"
"-import-megatest.db"
"-sync-to-megatest.db"
"-sync-brute-force"
"-logging"
;; "-logging"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
"-diff-rep"
"-syscheck"
"-obfuscate"
|
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
|
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
|
-
+
-
+
|
(exit 1))))
homehost-required))))
;;======================================================================
;; Misc setup stuff
;;======================================================================
(debug:setup)
(common:debug-setup)
(if (args:get-arg "-logging")(set! *logging* #t))
;; (if (args:get-arg "-logging")(set! *logging* #t))
;;(if (debug:debug-mode 3) ;; we are obviously debugging
;; (set! open-run-close open-run-close-no-exception-handling))
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 *default-log-port* "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
|