Overview
| Comment: | minor improvements to minimt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-minimt |
| Files: | files | file ages | folders |
| SHA1: |
d806a4bc7493caf7d6ac3d447ec476eb |
| User & Date: | matt on 2017-06-25 21:56:21 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-25
| ||
| 22:33 | Pulled in minimt (for testing things). No need to leave it on a branch. Focus is now on v1.65 check-in: 2a906e05b0 user: matt tags: v1.65 | |
| 21:56 | minor improvements to minimt Closed-Leaf check-in: d806a4bc74 user: matt tags: v1.64-minimt | |
| 16:20 | Added direct.scm for the direct to db connection test check-in: 987ac55bdd user: matt tags: v1.64-minimt | |
Changes
Modified minimt/db.scm from [3d81b0ab0e] to [0203800d78].
| ︙ | ︙ | |||
53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
(db (if (or already-exists write-access)
(open-database fullname)
(begin
(print "FATAL: No existing db and no write access thus cannot create " fullname) ;; no db and no write access cannot proceed.
(exit 1))))
(dbconn (make-dbconn-dat)))
(set-busy-handler! db (busy-timeout 30000)) ;; set a busy timeout
(if (and init write-access (not already-exists))
(init db))
(dbconn-dat-dbh-set! dbconn db)
(dbconn-dat-writeable-set! dbconn write-access)
(dbconn-dat-path-set! dbconn path)
(dbconn-dat-name-set! dbconn fname)
dbconn))
| > | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
(db (if (or already-exists write-access)
(open-database fullname)
(begin
(print "FATAL: No existing db and no write access thus cannot create " fullname) ;; no db and no write access cannot proceed.
(exit 1))))
(dbconn (make-dbconn-dat)))
(set-busy-handler! db (busy-timeout 30000)) ;; set a busy timeout
(exec (sql db "PRAGMA synchronous=0;"))
(if (and init write-access (not already-exists))
(init db))
(dbconn-dat-dbh-set! dbconn db)
(dbconn-dat-writeable-set! dbconn write-access)
(dbconn-dat-path-set! dbconn path)
(dbconn-dat-name-set! dbconn fname)
dbconn))
|
| ︙ | ︙ |
Modified minimt/minimt.scm from [731c706dfc] to [90b98f3b9a].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 |
;; RUN A TEST
(define (run-test dbconn run-id test-name)
(rmt:create-test dbconn run-id test-name)
(let ((test-id (rmt:get-test-id dbconn run-id test-name)))
(rmt:test-set-state-status dbconn test-id "LAUNCHED" "na")
(thread-sleep! *launchdelay*)
(rmt:test-set-state-status dbconn test-id "RUNNING" "na")
| | | | > > | 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 |
;; RUN A TEST
(define (run-test dbconn run-id test-name)
(rmt:create-test dbconn run-id test-name)
(let ((test-id (rmt:get-test-id dbconn run-id test-name)))
(rmt:test-set-state-status dbconn test-id "LAUNCHED" "na")
(thread-sleep! *launchdelay*)
(rmt:test-set-state-status dbconn test-id "RUNNING" "na")
(let loop ((step-num 0))
(let ((step-name (conc "step" step-num)))
(rmt:create-step dbconn test-id step-name)
(let ((step-id (get-step-id dbconn test-id step-name)))
(rmt:step-set-state-status dbconn step-id "START" -1)
(thread-sleep! *stepdelay*)
(rmt:step-set-state-status dbconn step-id "END" 0)
(print" STEP: " step-name " done.")))
(if (< step-num *numsteps*)
(loop (+ step-num 1))))
(rmt:test-set-state-status dbconn test-id "COMPLETED" (if (> (random 10) 2) "PASS" "FAIL"))
(print "TEST: " test-name " done.")
test-id))
;; RUN A RUN
(define (run-run dbconn target run-name num-tests)
(rmt:create-run dbconn target run-name)
(let ((run-id (rmt:get-run-id dbconn target run-name)))
|
| ︙ | ︙ |
Modified minimt/setup.scm from [222451ff8b] to [f4cfd22ef8].
1 2 3 4 5 6 7 8 9 10 |
(define *remotehost* "orion")
(define *homehost* "zeus")
(define *homepath* "/nfs/phoebe/disk1/home/mfs_matt/data/megatest/minimt/runtest")
(define *numtests* 50)
(define *numruns* 5)
(define *targets* '("targ1"))
(define *testdelay* 0)
(define *rundelay* 0)
(define *launchdelay* 0)
(define *stepdelay* 0)
| > | 1 2 3 4 5 6 7 8 9 10 11 |
(define *remotehost* "orion")
(define *homehost* "zeus")
(define *homepath* "/nfs/phoebe/disk1/home/mfs_matt/data/megatest/minimt/runtest")
(define *numsteps* 100)
(define *numtests* 50)
(define *numruns* 5)
(define *targets* '("targ1"))
(define *testdelay* 0)
(define *rundelay* 0)
(define *launchdelay* 0)
(define *stepdelay* 0)
|
| ︙ | ︙ |