Megatest

Check-in [6929385e83]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Switch to margs module/egg
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.65-margs
Files: files | file ages | folders
SHA1: 6929385e83c3c54019e85e5eb4094d0c4fcbcb21
User & Date: matt on 2018-05-09 00:14:58
Other Links: branch diff | manifest | tags
Context
2018-05-09
00:14
Switch to margs module/egg Leaf check-in: 6929385e83 user: matt tags: v1.65-margs
00:14
Fixed makefile check-in: e174a07c36 user: matt tags: v1.65
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified common.scm from [7382d07655] to [365a08daa3].

︙
20
21
22
23
24
25
26
27

28
29
30
31
32
33
34
35

20
21
22
23
24
25
26

27

28
29
30
31
32
33
34








-
+
-









(use srfi-1 data-structures posix regex-case (prefix base64 base64:)
     format dot-locking csv-xml z3 ;; sql-de-lite
     hostinfo md5 message-digest typed-records directory-utils stack
     matchable regex posix (srfi 18) extras ;; tcp 
     (prefix nanomsg nmsg:)
     (prefix sqlite3 sqlite3:)
     pkts (prefix dbi dbi:)
     pkts (prefix dbi dbi:)(prefix margs args:))
     )

(declare (unit common))

(include "common_records.scm")


;; (require-library margs)
︙

Modified configf.scm from [af30e1aa5d] to [d03ff8e183].

︙
18
19
20
21
22
23
24
25

26
27
28
29
30
31
32

18
19
20
21
22
23
24

25
26
27
28
29
30
31
32








-
+









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

;;======================================================================
;; Config file handling
;;======================================================================

(use regex regex-case) ;;  directory-utils)
(use regex regex-case (prefix margs args:)) ;;  directory-utils)
(declare (unit configf))
(declare (uses process))
(declare (uses env))
(declare (uses keys))

(include "common_records.scm")
︙

Modified dashboard.scm from [0829612ed4] to [5ef12d87f3].

︙
22
23
24
25
26
27
28
29

30
31
32
33

34
35
36
37
38
39
40

22
23
24
25
26
27
28

29
30
31
32

33
34
35
36
37
38
39
40








-
+



-
+









(require-library iup)
(import (prefix iup iup:))

(use canvas-draw)
(import canvas-draw-iup)
(use ducttape-lib)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors) ;; defstruct
(use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors (prefix margs args:)) ;; defstruct
(import (prefix sqlite3 sqlite3:))

(declare (uses common))
(declare (uses margs))
;; (declare (uses margs))
(declare (uses keys))
(declare (uses items))
(declare (uses db))
(declare (uses configf))
(declare (uses process))
(declare (uses launch))
(declare (uses runs))
︙

Modified datashare.scm from [2c1663032f] to [f48b85f5bd].

︙
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

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








+














-
+








(use srfi-69)
(use regex-case)
(use posix)
(use json)
(use csv)
(use srfi-18)
(use format)
(use (prefix margs args:))

(require-library iup)
(import (prefix iup iup:))
(require-library ini-file)
(import (prefix ini-file ini:))

(use canvas-draw)
(import canvas-draw-iup)

(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(declare (uses configf))
(declare (uses tree))
(declare (uses margs))
;; (declare (uses margs))
;; (declare (uses dcommon))
;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses synchash))
;; (declare (uses server))
;; (declare (uses megatest-version))
︙

Modified db.scm from [6cb6757c5a] to [a86fb448cd].

︙
20
21
22
23
24
25
26
27

28
29
30
31
32
33
34

20
21
22
23
24
25
26

27
28
29
30
31
32
33
34








-
+









;;======================================================================
;; Database access
;;======================================================================

;; dbstruct vector containing all the relevant dbs like main.db, megatest.db, run.db etc

(use (srfi 18) extras tcp stack)
(use (srfi 18) extras tcp stack (prefix margs args:))
(use sqlite3 srfi-1 posix regex regex-case srfi-69 csv-xml s11n md5 message-digest base64 format dot-locking z3 typed-records matchable)
(import (prefix sqlite3 sqlite3:))
(import (prefix base64 base64:))

(declare (unit db))
(declare (uses common))
(declare (uses keys))
︙

Modified env.scm from [9fe24952ae] to [512a713a11].

︙
16
17
18
19
20
21
22
23

24
25
26
27
28
29
30

16
17
18
19
20
21
22

23
24
25
26
27
28
29
30








-
+








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

(use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
(use sql-de-lite (prefix margs args:)) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)

(define (env:open-db fname)
  (let* ((db-exists (common:file-exists? fname))
	 (db        (open-database fname)))
    (if (not db-exists)
	(begin
	  (exec (sql db "CREATE TABLE envvars (
︙

Modified ezsteps.scm from [80e8d0742f] to [6143041dff].

︙
15
16
17
18
19
20
21
22

23
24
25
26
27
28
29

15
16
17
18
19
20
21

22
23
24
25
26
27
28
29








-
+








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

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

(use srfi-1 posix regex srfi-69 directory-utils)
(use srfi-1 posix regex srfi-69 directory-utils (prefix margs args:))

(declare (unit ezsteps))
(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
;; (declare (uses sdb))
︙

Modified http-transport.scm from [da311848d8] to [6b693ce088].

︙
17
18
19
20
21
22
23
24

25
26
27
28
29
30
31

17
18
19
20
21
22
23

24
25
26
27
28
29
30
31








-
+








;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

(require-extension (srfi 18) extras tcp s11n)


(use  srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest posix-extras)

(use spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing)
(use spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing (prefix margs args:))

;; Configurations for server
(tcp-buffer-size 2048)
(max-connections 2048) 

(declare (unit http-transport))
︙

Modified keys.scm from [9fa2c0cfa5] to [796e85b9a5].

︙
18
19
20
21
22
23
24
25

26
27
28
29
30
31
32

18
19
20
21
22
23
24

25
26
27
28
29
30
31
32








-
+








;;
 
;;======================================================================
;; Run keys, these are used to hierarchially organise tests and run areas
;;======================================================================

(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))
(import (prefix sqlite3 sqlite3:) (prefix margs args:))

(declare (unit keys))
(declare (uses common))

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

Modified launch.scm from [f828709706] to [7710be7a2d].

︙
18
19
20
21
22
23
24
25

26
27
28
29
30
31
32

18
19
20
21
22
23
24

25
26
27
28
29
30
31
32








-
+









;;======================================================================
;; launch a task - this runs on the originating host, tests themselves
;;
;;======================================================================

(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix-extras z3 call-with-environment-variables csv)
(use typed-records pathname-expand matchable)
(use typed-records pathname-expand matchable (prefix margs args:))

(import (prefix base64 base64:))
(import (prefix sqlite3 sqlite3:))

(declare (unit launch))
(declare (uses subrun))
(declare (uses common))
︙

Modified megatest.scm from [64480090d8] to [a5156e2de6].

︙
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

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








-
+











-
+








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

;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
     readline apropos json http-client directory-utils typed-records
     http-client srfi-18 extras format)
     http-client srfi-18 extras format (prefix margs args:))

;; Added for csv stuff - will be removed
;;
(use sparse-vectors)

(require-library mutils)

;; (use zmq)

(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
;; (declare (uses margs))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses client))
(declare (uses tests))
(declare (uses genexample))
;; (declare (uses daemon))
︙

Modified mtut.scm from [e2f911af30] to [f7b590ae41].

︙
21
22
23
24
25
26
27
28


29
30
31
32

33
34
35
36
37
38
39

21
22
23
24
25
26
27

28
29
30
31
32

33
34
35
36
37
38
39
40








-
+
+



-
+









;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)

(use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
     srfi-18 extras format pkts regex regex-case
     (prefix dbi dbi:)
     nanomsg)
     nanomsg
     (prefix margs args:))

(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
;; (declare (uses margs))
(declare (uses configf))
;; (declare (uses rmt))

(include "megatest-fossil-hash.scm")

(require-library stml)
︙

Modified newdashboard.scm from [3cc17ecae4] to [8fec589ede].

︙
22
23
24
25
26
27
28
29

30
31
32
33

34
35
36
37
38
39
40

22
23
24
25
26
27
28

29
30
31
32

33
34
35
36
37
38
39
40








-
+



-
+









(use (prefix iup iup:))

(use canvas-draw)
(import canvas-draw-iup)

(use sql-de-lite srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors ;; defstruct
     (prefix dbi dbi:))
     (prefix dbi dbi:) (prefix margs args:))

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

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

Modified rpc-transport.scm from [dd887f94ec] to [7a24117bf3].

︙
16
17
18
19
20
21
22
23

24
25
26
27
28
29
30

16
17
18
19
20
21
22

23
24
25
26
27
28
29
30








-
+








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

(require-extension (srfi 18) extras tcp s11n rpc)
(import (prefix rpc rpc:))

(use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest (prefix margs args:))
(import (prefix sqlite3 sqlite3:))

(declare (unit rpc-transport))

(declare (uses common))
(declare (uses db))
(declare (uses tests))
︙

Modified runs.scm from [f1caa0cd84] to [96c2eb7421].

︙
15
16
17
18
19
20
21
22

23
24
25
26
27
28
29

15
16
17
18
19
20
21

22
23
24
25
26
27
28
29








-
+








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

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

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format)
     posix-extras directory-utils pathname-expand typed-records format (prefix margs args:))

(declare (unit runs))
(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))
︙

Modified sauthorize.scm from [d17617701e] to [b08422a399].

︙
20
21
22
23
24
25
26
27

28
29
30
31

32
33
34
35
36
37
38

20
21
22
23
24
25
26

27
28
29
30

31
32
33
34
35
36
37
38








-
+



-
+








(use defstruct)
(use scsh-process)

(use srfi-18)
(use srfi-19)
(use refdb)

(use sql-de-lite srfi-1 posix regex regex-case srfi-69)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69 (prefix margs args:))
(declare (uses common))

(declare (uses configf))
(declare (uses margs))
;; (declare (uses margs))
(declare (uses megatest-version))

(include "megatest-fossil-hash.scm")
;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
(include "sauth-paths.scm")
(include "sauth-common.scm")
︙

Modified server.scm from [8c943654ab] to [4505ec4b2f].

︙
16
17
18
19
20
21
22
23

24
25
26
27
28
29
30

16
17
18
19
20
21
22

23
24
25
26
27
28
29
30








-
+








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

(require-extension (srfi 18) extras tcp s11n)

(use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest
     directory-utils posix-extras matchable)
     directory-utils posix-extras matchable (prefix margs args:))

(use spiffy uri-common intarweb http-client spiffy-request-vars)

(declare (unit server))

(declare (uses common))
(declare (uses db))
︙

Modified sharedat.scm from [bb858ca5c8] to [e1a45c037e].

︙
30
31
32
33
34
35
36
37

38
39
40
41
42

43
44
45
46
47
48
49

30
31
32
33
34
35
36

37
38
39
40
41

42
43
44
45
46
47
48
49








-
+




-
+








;; (use csv)
(use srfi-18)
(use format)

(require-library ini-file)
(import (prefix ini-file ini:))

(use sql-de-lite srfi-1 posix regex regex-case srfi-69)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69 (prefix margs args:))
;; (import (prefix sqlite3 sqlite3:))
;; 
(declare (uses configf))
;; (declare (uses tree))
(declare (uses margs))
;; (declare (uses margs))
;; (declare (uses dcommon))
;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses synchash))
;; (declare (uses server))
(declare (uses megatest-version))
︙

Modified spublish.scm from [ea3284440b] to [b890910173].

︙
18
19
20
21
22
23
24
25

26
27
28
29

30
31
32
33
34
35
36

18
19
20
21
22
23
24

25
26
27
28

29
30
31
32
33
34
35
36








-
+



-
+









(use defstruct)
(use scsh-process)
(use refdb)
(use srfi-18)
(use srfi-19)
(use format)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69 (prefix margs args:))

(declare (uses configf))
;; (declare (uses tree))
(declare (uses margs))
;; (declare (uses margs))

(declare (uses megatest-version))
;; (declare (uses tbd))

(include "megatest-fossil-hash.scm")
;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
(include "sauth-paths.scm")
︙

Modified sretrieve.scm from [9b97d338b6] to [c27d61911a].

︙
18
19
20
21
22
23
24
25

26
27
28

29
30
31
32
33
34
35

18
19
20
21
22
23
24

25
26
27

28
29
30
31
32
33
34
35








-
+


-
+








;;

(use defstruct)
(use scsh-process)
(use srfi-18)
(use srfi-19)
(use refdb)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69 (prefix margs args:))
;(declare (uses common))
;(declare (uses configf))
(declare (uses margs))
;; (declare (uses margs))
(declare (uses megatest-version))
 

(include "megatest-fossil-hash.scm")
;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
(include "sauth-paths.scm")
(include "sauth-common.scm")
︙

Modified tasks.scm from [0300977161] to [ac32bc3986].

︙
14
15
16
17
18
19
20
21

22
23
24
25
26
27
28

14
15
16
17
18
19
20

21
22
23
24
25
26
27
28








-
+








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

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

(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format (prefix margs args:))
(import (prefix sqlite3 sqlite3:))

(declare (unit tasks))
(declare (uses db))
(declare (uses rmt))
(declare (uses common))
(declare (uses pgdb))
︙

Modified tcmt.scm from [17579f1f87] to [20c6b80da7].

︙
19
20
21
22
23
24
25
26

27
28
29
30
31

32
33
34
35
36
37
38

19
20
21
22
23
24
25

26
27
28
29
30

31
32
33
34
35
36
37
38








-
+




-
+








;;
;; Wrapper to enable running Megatest flows under teamcity
;;
;;  1. Run the megatest process and pass it all the needed parameters
;;  2. Every five seconds check for state/status changes and print the info
;;

(use srfi-1 posix srfi-69 srfi-18 regex defstruct)
(use srfi-1 posix srfi-69 srfi-18 regex defstruct (prefix margs args:))

(use trace)
;; (trace-call-sites #t)

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

(include "megatest-fossil-hash.scm")
(include "db_records.scm")
︙

Modified tdb.scm from [741cbcdd21] to [4ef86ac0e1].

︙
19
20
21
22
23
24
25
26

27
28
29
30
31
32
33

19
20
21
22
23
24
25

26
27
28
29
30
31
32
33








-
+








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

;;======================================================================
;; Database access
;;======================================================================

(require-extension (srfi 18) extras tcp)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 csv-xml s11n md5 message-digest base64)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 csv-xml s11n md5 message-digest base64 (prefix margs args:))
(import (prefix sqlite3 sqlite3:))
(import (prefix base64 base64:))

(declare (unit tdb))
(declare (uses common))
(declare (uses keys))
(declare (uses ods))
︙

Modified tests.scm from [429bf78842] to [a06418b8a6].

︙
18
19
20
21
22
23
24
25

26
27
28
29
30
31
32

18
19
20
21
22
23
24

25
26
27
28
29
30
31
32








-
+








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

;;======================================================================
;; Tests
;;======================================================================

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

(declare (unit tests))
(declare (uses lock-queue))
(declare (uses db))
(declare (uses tdb))
︙

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