Megatest

Check-in [681937af52]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Few more issues cleaned up and it seems to be running
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-multi-db-wip
Files: files | file ages | folders
SHA1: 681937af526483384a233a8f281ae8cb4d7d6425
User & Date: matt on 2021-02-15 00:17:24
Other Links: branch diff | manifest | tags
Context
2021-02-15
15:29
merged check-in: 6c2f54fec5 user: matt tags: v1.6569-multi-db-wip (unpublished)
00:17
Few more issues cleaned up and it seems to be running check-in: 681937af52 user: matt tags: v1.6569-multi-db-wip (unpublished)
2021-02-14
23:30
added missing file check-in: a817d72104 user: matt tags: v1.6569-multi-db-wip (unpublished)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified archive.scm from [2859e6ff17] to [15a0ae937f].

︙︙
19
20
21
22
23
24
25



26
27
28
29
30
31
32

;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18)

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




(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)









>
>
>








19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18)

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

(declare (uses configfmod))
(import configfmod)

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)
︙︙

Modified dashboard-context-menu.scm from [230b42c24a] to [0d8fd70425].

︙︙
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)




(declare (uses dbmod))
(import dbmod)

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








>
>
>








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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified dashboard-tests.scm from [ce5792ba9c] to [699b2eef20].

︙︙
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)




(declare (uses dbmod))
(import dbmod)

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








>
>
>








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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified dashboard.scm from [bc3ddeb08d] to [7a949c24b9].

︙︙
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

;; (declare (uses dashboard-main))
(declare (uses mt))

(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))





(declare (uses dcommonmod))
(import dcommonmod)
(declare (uses dcommonmod.import))

(declare (uses apimod))
(import apimod)

;; (declare (uses ods))
;; (import ods)
;; 
(declare (uses dbmod))
(import dbmod)
;; (declare (uses dbmod.import))

(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

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








>
>
>
>














<
<
<
<








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

;; (declare (uses dashboard-main))
(declare (uses mt))

(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))

(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

(declare (uses dcommonmod))
(import dcommonmod)
(declare (uses dcommonmod.import))

(declare (uses apimod))
(import apimod)

;; (declare (uses ods))
;; (import ods)
;; 
(declare (uses dbmod))
(import dbmod)
;; (declare (uses dbmod.import))





(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-version.scm")
;; (include "megatest-fossil-hash.scm")
(include "vg_records.scm")
︙︙

Modified db.scm from [3764da40f6] to [629bb91e62].

︙︙
35
36
37
38
39
40
41



42
43
44
45
46
47
48

(declare (uses keys))
;; (declare (uses ods))
(declare (uses client))
(declare (uses mt))

(declare (uses commonmod))
(import commonmod)




(declare (uses dbmod))
(import dbmod)

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








>
>
>








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

(declare (uses keys))
;; (declare (uses ods))
(declare (uses client))
(declare (uses mt))

(declare (uses commonmod))
(import commonmod)

(declare (uses configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified dcommonmod.scm from [89cc0627cc] to [e4e80f0a05].

︙︙
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

;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

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

(declare (unit dcommonmod))
(declare (uses commonmod))
;; (declare (uses commonmod))
;; (declare (uses ulex))

(module dcommonmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
	posix typed-records srfi-18
	srfi-69)

(import commonmod)
;; (import (prefix ulex ulex:))

;;======================================================================
;; COMMONDAT
;;======================================================================

;; data common to all tabs goes here
;;








|
<










|








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

;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

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

(declare (unit dcommonmod))
(declare (uses commonmod))
(declare (uses configfmod))


(module dcommonmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
	posix typed-records srfi-18
	srfi-69)

(import commonmod)
(import configfmod)

;;======================================================================
;; COMMONDAT
;;======================================================================

;; data common to all tabs goes here
;;
︙︙

Modified ezsteps.scm from [5bffddbeca] to [2862f58f27].

︙︙
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)




(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified http-transport.scm from [b4f2a1f547] to [25123e9128]. 

1
2
3
4
5
6
7
8


;; Copyright 2006-2012, Matthew Welland.
;; 
;; This file is part of Megatest.
;; 
;;     Megatest is free software: you can redistribute it and/or modify
;;     it under the terms of the GNU General Public License as published by
;;     the Free Software Foundation, either version 3 of the License, or

<









1
2
3
4
5
6
7


;; Copyright 2006-2012, Matthew Welland.
;; 
;; This file is part of Megatest.
;; 
;;     Megatest is free software: you can redistribute it and/or modify
;;     it under the terms of the GNU General Public License as published by
;;     the Free Software Foundation, either version 3 of the License, or
︙︙
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)




(declare (uses dbmod))
(import dbmod)

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








>
>
>








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

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

(declare (uses commonmod))
(import commonmod)

(declare (uses configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified items.scm from [07a121ab4e] to [c9b6afabe6].

︙︙
22
23
24
25
26
27
28



29
30
31
32
33
34
35

;; 		     (season      "summer winter fall spring")))

(declare (unit items))
(declare (uses common))

(declare (uses commonmod))
(import commonmod)




(include "common_records.scm")

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
  (let ((res '()))
    (if (not hierdepth)








>
>
>








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

;; 		     (season      "summer winter fall spring")))

(declare (unit items))
(declare (uses common))

(declare (uses commonmod))
(import commonmod)

(declare (uses configfmod))
(import configfmod)

(include "common_records.scm")

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
  (let ((res '()))
    (if (not hierdepth)
︙︙

Modified launch.scm from [49646cf51f] to [de3c624c80].

︙︙
33
34
35
36
37
38
39



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

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

(declare (uses commonmod))
(import commonmod)




(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

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

;;======================================================================
;; ezsteps








>
>
>




<
<
<








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



47
48
49
50
51
52
53

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

(declare (uses commonmod))
(import commonmod)

(declare (uses configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)




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

;;======================================================================
;; ezsteps
︙︙

Modified mt.scm from [b0a8e51b6c] to [c12acb87b8].

︙︙
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)




(declare (uses dbmod))
(import dbmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified newdashboard.scm from [0d304d7db8] to [07464037c8].

︙︙
45
46
47
48
49
50
51




52
53
54
55
56
57
58

;; (declare (uses synchash))
(declare (uses dcommon))
;; (declare (uses tree))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")





(define help (conc 
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2011

Usage: dashboard [options]








>
>
>
>








45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

;; (declare (uses synchash))
(declare (uses dcommon))
;; (declare (uses tree))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")

(declare (uses configfmod))
(import configfmod)


(define help (conc 
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2011

Usage: dashboard [options]
︙︙

Modified portlogger.scm from [1ef3045eac] to [20f479e9c6].

︙︙
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)




(declare (uses dbmod))
(import dbmod)

;; lsof -i

(define (portlogger:open-db fname)








>
>
>








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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

;; lsof -i

(define (portlogger:open-db fname)
︙︙

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

︙︙
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)




(declare (uses dbmod))
(import dbmod)

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








>
>
>








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 configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

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

Modified tasks.scm from [6ff01792fe] to [b4c4a4968f].

︙︙
27
28
29
30
31
32
33



34
35
36
37
38
39
40

(declare (uses common))
(declare (uses pgdb))

;; (import pgdb) ;; pgdb is a module

(declare (uses commonmod))
(import commonmod)




(declare (uses dbmod))
(import dbmod)

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









>
>
>








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

(declare (uses common))
(declare (uses pgdb))

;; (import pgdb) ;; pgdb is a module

(declare (uses commonmod))
(import commonmod)

(declare (uses configfmod))
(import configfmod)

(declare (uses dbmod))
(import dbmod)

(include "task_records.scm")
(include "db_records.scm")
︙︙

Modified tests/unittests/all-rmt.scm from [082436193f] to [d412942bee].

︙︙
37
38
39
40
41
42
43

44
45
46
47
48
49
50
51
52


53
54
55
56
57
58
59

(use matchable)

(use trace)
(trace
 rmt:login
 db:login
 rmt:send-receive

 rmtmod:calc-ro-mode
 create-remote-record
 rmt:open-qry-close-locally
 common:force-server?
 server:check-if-running
 server:record->id
 extras-case-11
 extras-transport-failed
 extras-transport-succeded


 )

(print "start dir: " (current-directory))
       
(define toppath (current-directory))

(test #f #f (server:check-if-running toppath))           ;; these are used by server:start-and-wait








>









>
>








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

(use matchable)

(use trace)
(trace
 rmt:login
 db:login
 rmt:send-receive
 rmt:send-receive-no-auto-client-setup
 rmtmod:calc-ro-mode
 create-remote-record
 rmt:open-qry-close-locally
 common:force-server?
 server:check-if-running
 server:record->id
 extras-case-11
 extras-transport-failed
 extras-transport-succeded
 http-transport:close-connections
 http-transport:client-api-send-receive
 )

(print "start dir: " (current-directory))
       
(define toppath (current-directory))

(test #f #f (server:check-if-running toppath))           ;; these are used by server:start-and-wait
︙︙

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