Megatest

Check-in [e68b3262eb]
Login
Overview
Comment:Add option dbdir to set database path
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | better-html-update-control
Files: files | file ages | folders
SHA1: e68b3262ebbc43acaef0db640b83037147d8d186
User & Date: matt on 2015-03-08 08:22:13
Other Links: branch diff | manifest | tags
Context
2015-03-08
08:25
Add trailing slash to dbdir check-in: 3c58f4639b user: matt tags: better-html-update-control
08:22
Add option dbdir to set database path check-in: e68b3262eb user: matt tags: better-html-update-control
2015-03-07
22:33
Implemented simple locking for html update. check-in: e2a733c021 user: matt tags: better-html-update-control
Changes

Modified db.scm from [23d4e4d7d7] to [b5e5388382].

140
141
142
143
144
145
146

147


148
149
150
151
152
153
154
155
;;     (filedb:get-path db id)))

;; NB// #f => zeroth db with name=main.db
;;
(define (db:dbfile-path run-id)
  (let* (;; (toppath      (dbr:dbstruct-get-path  dbstruct))
	 (link-tree-path  (configf:lookup *configdat* "setup" "linktree"))

	 (fname           (if (eq? run-id 0) "main.db" (conc run-id ".db")))


	 (dbdir           (conc link-tree-path "/.db/")))
    (handle-exceptions
     exn
     (begin
       (debug:print 0 "ERROR: Couldn't create path to " dbdir)
       (exit 1))
     (if (not (directory? dbdir))(create-directory dbdir #t)))
    (conc dbdir fname)))







>

>
>
|







140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
;;     (filedb:get-path db id)))

;; NB// #f => zeroth db with name=main.db
;;
(define (db:dbfile-path run-id)
  (let* (;; (toppath      (dbr:dbstruct-get-path  dbstruct))
	 (link-tree-path  (configf:lookup *configdat* "setup" "linktree"))
	 (dbpath          (configf:lookup *configdat* "setup" "dbdir"))
	 (fname           (if (eq? run-id 0) "main.db" (conc run-id ".db")))
	 (dbdir           (if dbpath
			      dbpath
			      (conc link-tree-path "/.db/"))))
    (handle-exceptions
     exn
     (begin
       (debug:print 0 "ERROR: Couldn't create path to " dbdir)
       (exit 1))
     (if (not (directory? dbdir))(create-directory dbdir #t)))
    (conc dbdir fname)))

Modified tests/fullrun/megatest.config from [76d08fa242] to [7eaf93474b].

25
26
27
28
29
30
31



32
33
34
35
36
37
38
39
40
41
42
[setup]
# Set launchwait to no to use the more agressive code that does not wait for the launch to complete before proceeding
# this may save a few milliseconds on launching tests
# launchwait no
waivercommentpatt ^WW\d+ [a-z].*
incomplete-timeout 1




# yes, anything else is no
run-wait yes



# If set to "default" the old code is used. Otherwise defaults to 200 or uses
# numeric value given.
#
runqueue 20

# Default runtimelim 1d 1h 1m 10s







>
>
>
|

<
<







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


37
38
39
40
41
42
43
[setup]
# Set launchwait to no to use the more agressive code that does not wait for the launch to complete before proceeding
# this may save a few milliseconds on launching tests
# launchwait no
waivercommentpatt ^WW\d+ [a-z].*
incomplete-timeout 1

# set the dbdir, default is linktree
dbdir #{getenv MT_RUN_AREA_HOME}/db

# wait for runs to completely complete. yes, anything else is no
run-wait yes



# If set to "default" the old code is used. Otherwise defaults to 200 or uses
# numeric value given.
#
runqueue 20

# Default runtimelim 1d 1h 1m 10s