Megatest

Check-in [69dd64de99]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-multi-db-wip
Files: files | file ages | folders
SHA1: 69dd64de9937761e1c8884c5c3f37157551b7ded
User & Date: matt on 2021-02-12 08:35:31
Other Links: branch diff | manifest | tags
Context
2021-02-12
09:00
wip check-in: 276d34776e user: matt tags: v1.6569-multi-db-wip (unpublished)
08:35
wip check-in: 69dd64de99 user: matt tags: v1.6569-multi-db-wip (unpublished)
00:42
wip check-in: 9b13b2dd0e user: matt tags: v1.6569-multi-db-wip (unpublished)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified archive.scm from [1fa1cf0256] to [2859e6ff17].

︙︙
22
23
24
25
26
27
28



29
30
31
32
33
34
35


(declare (unit archive))
(declare (uses db))
(declare (uses common))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")

;;======================================================================
;; 
;;======================================================================








>
>
>








22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38


(declare (unit archive))
(declare (uses db))
(declare (uses common))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")

;;======================================================================
;; 
;;======================================================================
︙︙

Modified client.scm from [0f5a1f5c03] to [340e19da02].

︙︙
28
29
30
31
32
33
34



35
36
37
38
39
40
41


(declare (uses common))
(declare (uses db))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")

;; client:get-signature
(define (client:get-signature)
  (if *my-client-signature* *my-client-signature*








>
>
>








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44


(declare (uses common))
(declare (uses db))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")

;; client:get-signature
(define (client:get-signature)
  (if *my-client-signature* *my-client-signature*
︙︙

Modified dashboard-context-menu.scm from [4ebbf2ae46] to [230b42c24a].

︙︙
40
41
42
43
44
45
46



47
48
49
50
51
52
53

(declare (uses ezsteps))
;; (declare (uses sdb))
;; (declare (uses filedb))
(declare (uses subrun))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")

(define (dboard:launch-testpanel run-id test-id)
  (let* ((dboardexe (common:find-local-megatest "dashboard"))








>
>
>








40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

(declare (uses ezsteps))
;; (declare (uses sdb))
;; (declare (uses filedb))
(declare (uses subrun))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")

(define (dboard:launch-testpanel run-id test-id)
  (let* ((dboardexe (common:find-local-megatest "dashboard"))
︙︙

Modified dashboard-guimonitor.scm from [8b202da860] to [fb51e18df9].

︙︙
35
36
37
38
39
40
41



42
43
44
45
46
47
48

(declare (uses common))
(declare (uses keys))
(declare (uses db))
(declare (uses tasks))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")

(define (control-panel db tdb keys)








>
>
>








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(declare (uses common))
(declare (uses keys))
(declare (uses db))
(declare (uses tasks))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")

(define (control-panel db tdb keys)
︙︙

Modified dashboard-tests.scm from [0de4378c1e] to [ce5792ba9c].

︙︙
39
40
41
42
43
44
45



46
47
48
49
50
51
52

(declare (uses ezsteps))
;; (declare (uses sdb))
;; (declare (uses filedb))
(declare (uses subrun))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")

;;======================================================================
;; C O M M O N








>
>
>








39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

(declare (uses ezsteps))
;; (declare (uses sdb))
;; (declare (uses filedb))
(declare (uses subrun))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")

;;======================================================================
;; C O M M O N
︙︙

Modified dcommon.scm from [35ed13ca5b] to [60e0e06882].

︙︙
28
29
30
31
32
33
34



35
36
37
38
39
40
41

(declare (unit dcommon))

(declare (uses gutils))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)




(declare (uses dcommonmod))
(import dcommonmod)

;; (declare (uses synchash))

(include "megatest-version.scm")








>
>
>








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

(declare (unit dcommon))

(declare (uses gutils))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(declare (uses dcommonmod))
(import dcommonmod)

;; (declare (uses synchash))

(include "megatest-version.scm")
︙︙

Modified ezsteps.scm from [c020b83da0] to [5bffddbeca].

︙︙
28
29
30
31
32
33
34



35
36
37
38
39
40
41

(declare (uses items))
(declare (uses runconfig))
;; (declare (uses sdb))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")










>
>
>








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

(declare (uses items))
(declare (uses runconfig))
;; (declare (uses sdb))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
︙︙

Modified fs-transport.scm from [77f9528c25] to [094d0befba].

︙︙
30
31
32
33
34
35
36



37
38
39
40
41
42
43

(declare (uses common))
(declare (uses db))
(declare (uses tests))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")


;;======================================================================
;; F S   T R A N S P O R T   S E R V E R








>
>
>








30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

(declare (uses common))
(declare (uses db))
(declare (uses tests))
(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")


;;======================================================================
;; F S   T R A N S P O R T   S E R V E R
︙︙

Modified http-transport.scm from [e3908cc7e2] to [b4f2a1f547].

︙︙
36
37
38
39
40
41
42



43
44
45
46
47
48
49

(declare (uses server))
;; (declare (uses daemon))
(declare (uses portlogger))
(declare (uses rmt))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "db_records.scm")
(include "js-path.scm")

(require-library stml)
(define (http-transport:make-server-url hostport)








>
>
>








36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(declare (uses server))
;; (declare (uses daemon))
(declare (uses portlogger))
(declare (uses rmt))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "db_records.scm")
(include "js-path.scm")

(require-library stml)
(define (http-transport:make-server-url hostport)
︙︙

Modified launch.scm from [8441a117e3] to [6cf6d14015].

︙︙
33
34
35
36
37
38
39



40
41
42
43
44
45
46

(declare (uses common))
(declare (uses configf))
(declare (uses db))
(declare (uses ezsteps))

(declare (uses commonmod))
(import commonmod)




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

;;======================================================================








>
>
>








33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

(declare (uses common))
(declare (uses configf))
(declare (uses db))
(declare (uses ezsteps))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

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

;;======================================================================
︙︙

Modified mt.scm from [9ffe0f56c7] to [b0a8e51b6c].

︙︙
29
30
31
32
33
34
35



36
37
38
39
40
41
42

(declare (uses server))
(declare (uses runs))
(declare (uses rmt))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")









>
>
>








29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

(declare (uses server))
(declare (uses runs))
(declare (uses rmt))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
︙︙

Modified newdashboard.scm from [2d92665a75] to [0d304d7db8].

︙︙
30
31
32
33
34
35
36



37
38
39
40
41
42
43


(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))

(declare (uses commonmod))
(import commonmod)




;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))








>
>
>








30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46


(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))
︙︙

Modified portlogger.scm from [51459afd2c] to [1ef3045eac].

︙︙
23
24
25
26
27
28
29



30
31
32
33
34
35
36

(import (prefix sqlite3 sqlite3:))

(declare (unit portlogger))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)




;; lsof -i

(define (portlogger:open-db fname)
  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
	 (exists   (common:file-exists? fname))
	 (db       (if avail 








>
>
>








23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

(import (prefix sqlite3 sqlite3:))

(declare (unit portlogger))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

;; lsof -i

(define (portlogger:open-db fname)
  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
	 (exists   (common:file-exists? fname))
	 (db       (if avail
︙︙

Modified runs.scm from [3667b2db98] to [850688d33f].

︙︙
30
31
32
33
34
35
36



37
38
39
40
41
42
43

(declare (uses server))
(declare (uses mt))
(declare (uses archive))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")









>
>
>








30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

(declare (uses server))
(declare (uses mt))
(declare (uses archive))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
︙︙

Modified subrun.scm from [bb2ab40abf] to [b2fb1b67ce].

︙︙
31
32
33
34
35
36
37



38
39
40
41
42
43
44

;;(declare (uses server))
(declare (uses mt))
;;(declare (uses archive))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)




;;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")









>
>
>








31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

;;(declare (uses server))
(declare (uses mt))
;;(declare (uses archive))
;; (declare (uses filedb))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

;;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")
︙︙

Modified synchash.scm from [6d4566e942] to [ea42164096].

︙︙
25
26
27
28
29
30
31




32
33
34
35
36
37
38

(use format)
(use srfi-1 srfi-69 sqlite3)
(import (prefix sqlite3 sqlite3:))

(declare (unit synchash))
(declare (uses db))
(declare (uses server))




(include "db_records.scm")

(define (synchash:make)
   (make-hash-table))

;; given an alist of objects '((id obj) ...) 
;;   1. remove unchanged objects from the list








>
>
>
>








25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

(use format)
(use srfi-1 srfi-69 sqlite3)
(import (prefix sqlite3 sqlite3:))

(declare (unit synchash))
(declare (uses db))
(declare (uses server))

(declare (uses dbmod))
(import dbmod)

(include "db_records.scm")

(define (synchash:make)
   (make-hash-table))

;; given an alist of objects '((id obj) ...) 
;;   1. remove unchanged objects from the list
︙︙

Modified tdb.scm from [2eddae61cd] to [265cbd519f].

︙︙
32
33
34
35
36
37
38



39
40
41
42
43
44
45

(declare (uses keys))
(declare (uses client))
(declare (uses mt))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)




(declare (uses ods))
(import ods)

(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")








>
>
>








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

(declare (uses keys))
(declare (uses client))
(declare (uses mt))
(declare (uses db))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(declare (uses ods))
(import ods)

(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
︙︙

Modified tests.scm from [c2e38a7044] to [128718a68e].

︙︙
36
37
38
39
40
41
42



43
44
45
46
47
48
49


(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
(import (prefix sqlite3 sqlite3:))
(require-library stml)

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
(include "js-path.scm")








>
>
>








36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52


(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
(import (prefix sqlite3 sqlite3:))
(require-library stml)

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
(include "js-path.scm")
︙︙

Modified tree.scm from [fb1fa4db79] to [0b31cedbd5].

︙︙
34
35
36
37
38
39
40



41
42
43
44
45
46
47

(declare (uses db))
(declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))

(declare (uses commonmod))
(import commonmod)





(include "megatest-version.scm")
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")









>
>
>








34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

(declare (uses db))
(declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)


(include "megatest-version.scm")
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
︙︙

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