Megatest

Check-in [fc751975b3]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-refactor02 | v1.70-defunct-try
Files: files | file ages | folders
SHA1: fc751975b3639eb7c56b998eef2b8908f4018cb6
User & Date: mrwellan on 2019-12-31 09:38:07
Other Links: branch diff | manifest | tags
Context
2019-12-31
10:00
wip check-in: 615f8750c8 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
09:38
wip check-in: fc751975b3 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
09:16
wip check-in: cacc323b1a user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified itemsmod.scm from [ce71b2e66a] to [fc849e85b2].

︙︙
22
23
24
25
26
27
28
29
30

31
32
33
34
35
36
37

(declare (uses commonmod))
(declare (uses mtconfigf))

(module itemsmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable)
(import commonmod (prefix mtconfigf configf:))

;; (use (prefix ulex ulex:))

;; (include "common_records.scm")
;; (include "items-inc.scm")

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)








|
|
>








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

(declare (uses commonmod))
(declare (uses mtconfigf))

(module itemsmod
	*
	
(import scheme chicken data-structures extras)
(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable)
(import commonmod)
(import(prefix mtconfigf configf:))
;; (use (prefix ulex ulex:))

;; (include "common_records.scm")
;; (include "items-inc.scm")

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
︙︙

Modified megatest.scm from [f635d5f126] to [fbcdb6977c].

︙︙
33
34
35
36
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

(declare (uses mtargs))
(declare (uses mtconfigf))

(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))

(declare (uses apimod))
(declare (uses commonmod))
(declare (uses cookie))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))

(import apimod)
(import commonmod)
(import cookie)
(import dbmod)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)

;; invoke the imports
(declare (uses apimod.import))
(declare (uses commonmod.import))
(declare (uses cookie.import))
(declare (uses dbmod))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))








|















|















|








33
34
35
36
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

(declare (uses mtargs))
(declare (uses mtconfigf))

(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))

(declare (uses apimod))
;; (declare (uses commonmod))
(declare (uses cookie))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))

(import apimod)
;; (import commonmod)
(import cookie)
(import dbmod)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)

;; invoke the imports
(declare (uses apimod.import))
;; (declare (uses commonmod.import))
(declare (uses cookie.import))
(declare (uses dbmod))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
︙︙

Modified mtmod.scm from [ab392419e6] to [2726f35fde].

︙︙
15
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
43
44

45


46
47
48
49
50
51

52

53

54
55
56
57
58
59
60
61
62
63

;; 
;;     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 mtmod))
(declare (uses mtconfigf))
(declare (uses commonmod))
(declare (uses rmtmod))
(declare (uses testsmod))
(declare (uses tasksmod))
(declare (uses mtargs))
(declare (uses dbmod))
(declare (uses pgdbmod))
(declare (uses servermod))
(declare (uses launchmod))
(declare (uses subrunmod))
(declare (uses stml2))


(module mtmod
	*
	
(import scheme chicken data-structures extras posix ports files)

(import (prefix mtconfigf configf:)
	(prefix sqlite3 sqlite3:)
	srfi-69 regex srfi-18 srfi-13 srfi-1
	call-with-environment-variables z3 (prefix base64 base64:)
	typed-records

	csv


	commonmod
	rmtmod
	testsmod
	tasksmod
	dbmod
	pgdbmod

	servermod

	subrunmod

	stml2
	directory-utils
	(prefix mtargs args:))

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


)








|

|
|
|
|
|
|

|

|
>






<
|
|
|
|
>
|
>
>
|
<
<
<
|
|
>
|
>
|
>
|
<
<








15
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
43
44
45
46
47
48
49



50
51
52
53
54
55
56
57


58
59
60
61
62
63
64

;; 
;;     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 mtmod))

(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses launchmod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses pgdbmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses stml2))
(declare (uses subrunmod))
(declare (uses tasksmod))
(declare (uses testsmod))

(module mtmod
	*
	
(import scheme chicken data-structures extras posix ports files)


(use (prefix sqlite3 sqlite3:)
     srfi-69 regex srfi-18 srfi-13 srfi-1
     call-with-environment-variables z3 (prefix base64 base64:)
     typed-records
     csv directory-utils)

(import	(prefix mtargs args:))
(import (prefix mtconfigf configf:))
(import	commonmod)



(import	dbmod)
(import	pgdbmod)
(import	rmtmod)
(import	servermod)
(import	stml2)
(import	subrunmod)
(import	tasksmod)
(import	testsmod)



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


)
︙︙

Modified pgdbmod.scm from [e49e8de9da] to [cbf87ade64].

︙︙
22
23
24
25
26
27
28
29

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

(declare (uses mtconfigf))
(declare (uses commonmod))
(declare (uses mtargs))

(module pgdbmod
	*
	
(import scheme chicken data-structures extras posix

	(prefix dbi dbi:)
	srfi-69 srfi-1 typed-records)

(import (prefix mtconfigf configf:)
	(prefix mtargs    args:)
	commonmod
	)

;; given a configdat lookup the connection info and open the db
;;
(define (pgdb:open configdat #!key (dbname #f)(dbispec #f))  
  (let ((pgconf (or dbispec
		    (args:get-arg "-pgsync")
		    (if configdat








|
>
|
|

|
|
|
<








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

37
38
39
40
41
42
43

(declare (uses mtconfigf))
(declare (uses commonmod))
(declare (uses mtargs))

(module pgdbmod
	*
	
(import scheme chicken data-structures extras files)
(use posix
     (prefix dbi dbi:)
     srfi-69 srfi-1 typed-records)

(import (prefix mtconfigf configf:))
(import	(prefix mtargs    args:))
(import	commonmod)


;; given a configdat lookup the connection info and open the db
;;
(define (pgdb:open configdat #!key (dbname #f)(dbispec #f))  
  (let ((pgconf (or dbispec
		    (args:get-arg "-pgsync")
		    (if configdat
︙︙

Modified subrunmod.scm from [cc90746185] to [6e3ff280b3].

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

(declare (uses commonmod))
(declare (uses mtconfigf))

(module subrunmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-69 format ports srfi-1 matchable irregex
	call-with-environment-variables)
(import
  commonmod
  (prefix mtconfigf configf:))

;; (use (prefix ulex ulex:))

(include "common_records.scm")
;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(define (subrun:subrun-test-initialized? test-run-dir)
  (if (and (common:file-exists? (conc test-run-dir "/subrun-area") )








>







|


|
|
|
>








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

;; 
;;     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 subrunmod))

(declare (uses commonmod))
(declare (uses mtconfigf))

(module subrunmod
	*
	
(import scheme chicken data-structures extras)
(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-69 format ports srfi-1 matchable irregex
	call-with-environment-variables)

(import commonmod)
(import  (prefix mtconfigf configf:))

;; (use (prefix ulex ulex:))

(include "common_records.scm")
;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(define (subrun:subrun-test-initialized? test-run-dir)
  (if (and (common:file-exists? (conc test-run-dir "/subrun-area") )
︙︙

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