Megatest

Check-in [34541b6e01]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Moved few items around; api:read/write query lists, megatest-fossil-hash
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 34541b6e01955b267c52439d853756c67b0205e6
User & Date: matt on 2019-12-08 20:31:32
Other Links: branch diff | manifest | tags
Context
2019-12-08
21:21
Moved bunch of functions into commonmod check-in: 3793b78d9e user: matt tags: v1.70-defunct-try
20:31
Moved few items around; api:read/write query lists, megatest-fossil-hash check-in: 34541b6e01 user: matt tags: v1.70-defunct-try
19:46
Unravelled a few ravels. check-in: 9990ebb12c user: matt tags: v1.70-defunct-try
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified api-inc.scm from [611db9dbf8] to [7dfa5ca729].

︙
14
15
16
17
18
19
20
21


22
23
24

25
26
27
28
29
30
31

14
15
16
17
18
19
20

21
22
23
24

25
26
27
28
29
30
31
32








-
+
+


-
+








;;     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/>.
;;
;;======================================================================


;; Moved to commonmod
;;
;; allow these queries through without starting a server
;;
(define api:read-only-queries
#;(define api:read-only-queries
  '(get-key-val-pairs
    get-var
    get-keys
    get-key-vals
    test-toplevel-num-items
    get-test-info-by-id
    get-steps-info-by-id
︙
75
76
77
78
79
80
81


82

83
84
85
86
87
88
89

76
77
78
79
80
81
82
83
84

85
86
87
88
89
90
91
92








+
+
-
+








    testmeta-get-record
    have-incompletes?
    ;; synchash-get
    get-changed-record-ids
		get-run-record-ids 
    get-not-completed-cnt))

;; moved to commonmod
;;
(define api:write-queries
#;(define api:write-queries
  '(
    get-keys-write ;; dummy "write" query to force server start

    ;; SERVERS
    start-server
    kill-server
︙

Modified dashboard.scm from [eb1dd516fd] to [00f7bdad76].

︙
63
64
65
66
67
68
69
70

71
72
73
74
75
76
77

63
64
65
66
67
68
69

70
71
72
73
74
75
76
77








-
+








(declare (uses dcommonmod))
(import dcommonmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-fossil-hash.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod
(include "vg_records.scm")

;; invoke the imports
(declare (uses commonmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))
︙

Modified megamod.scm from [8a70df3db8] to [2858ad645d].

︙
141
142
143
144
145
146
147
148
149


150
151
152
153
154
155
156

141
142
143
144
145
146
147


148
149
150
151
152
153
154
155
156








-
-
+
+








(include "test_records.scm")
;; (include "vg_records.scm")

;;======================================================================
;; L O C K I N G   M E C H A N I S M S 
;;======================================================================

(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
;; (include "megatest-fossil-hash.scm") ;; try getting this from commonmod
;; (include "megatest-version.scm")

;; globals
(define *writes-total-delay* 0)
(define *exit-started* #f)
(define *last-monitor-update-time* 0)
(define *default-log-port* (current-error-port))
︙

Modified megatest.scm from [8a122fe918] to [b8fe549190].

︙
75
76
77
78
79
80
81
82

83
84
85
86
87
88
89

75
76
77
78
79
80
81

82
83
84
85
86
87
88
89








-
+








(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-fossil-hash.scm")
;; (include "megatest-fossil-hash.scm") ;; included in megamod

(define getenv get-environment-variable)
(configf:add-eval-string "(import megamod)")

(define *usage-log-file* #f)    ;; put path to file for logging usage in this var in the ~/.megatestrc file
(define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file
︙

Modified mtexec.scm from [ac7a0a03a9] to [f01922b9b2].

︙
35
36
37
38
39
40
41
42

43
44
45
46
47
48
49

35
36
37
38
39
40
41

42
43
44
45
46
47
48
49








-
+








(declare (uses megamod))
(import megamod)

;; (declare (uses rmt))

;; (use ducttape-lib)

(include "megatest-fossil-hash.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod now

;; (require-library stml)

(define help (conc "
mtutil, part of the Megatest tool suite, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright Matt Welland 2006-2017
︙

Modified mtut.scm from [55420a289a] to [ba9363667c].

︙
37
38
39
40
41
42
43
44

45
46
47
48
49
50
51

37
38
39
40
41
42
43

44
45
46
47
48
49
50
51








-
+








;; (import configfmod)
(import megamod)

;; (declare (uses rmt))

(use ducttape-lib)

(include "megatest-fossil-hash.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod

;; (require-library stml)
(use stml2)

;; stuff for the mapper and checker functions
;;
(define *target-mappers*  (make-hash-table))
︙

Modified tcmt.scm from [92574c4144] to [64104d9e52].

︙
34
35
36
37
38
39
40
41

42
43
44
45
46
47
48

34
35
36
37
38
39
40

41
42
43
44
45
46
47
48








-
+








;; (declare (uses megatest-version))

(declare (uses megamod))
(declare (uses commonmod))
(import megamod)
(import commonmod)

(include "megatest-fossil-hash.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod
(include "db_records.scm")

(define origargs (cdr (argv)))
(define remargs (args:get-args
		 (argv)
		 `( "-target"
		    "-reqtarg"
︙

This page was generated in about 0.121s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00