Megatest

Check-in [6c2f54fec5]
Login
Overview
Comment:merged
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-multi-db-wip
Files: files | file ages | folders
SHA1: 6c2f54fec5c4d6f7085919b2013d691bab64d4c2
User & Date: matt on 2021-02-15 15:29:33
Other Links: branch diff | manifest | tags
Context
2021-02-15
19:12
still chipping away check-in: 59823ee440 user: matt tags: v1.6569-multi-db-wip (unpublished)
15:29
merged check-in: 6c2f54fec5 user: matt tags: v1.6569-multi-db-wip (unpublished)
15:28
More missing imports. check-in: 3084088d75 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)
Changes

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 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 [3ee7adc227] 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

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