Overview
Comment: | Try tmp db without rpc |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.62-no-rpc |
Files: | files | file ages | folders |
SHA1: |
d06a3ab427a72a0a9f5a7daf60ab3679 |
User & Date: | matt on 2016-11-18 20:46:27 |
Other Links: | branch diff | manifest | tags |
Context
2016-11-20
| ||
20:56 | Lock on homehost. Servers *always* started if not on homehost check-in: efae6c6bbf user: matt tags: v1.62-no-rpc | |
2016-11-19
| ||
17:03 | Committing automated merge of v1.62-no-rpc/d06a3ab427 into check-in: 97105a40d0 user: matt tags: integ-home | |
09:43 | Committing automation merge of into trunk Closed-Leaf check-in: 407cb15e6b user: matt tags: trunk-junk | |
2016-11-18
| ||
20:46 | Try tmp db without rpc check-in: d06a3ab427 user: matt tags: v1.62-no-rpc | |
2016-11-16
| ||
13:48 | Try using md5sum instead of sha1. Much faster but what is the collison risk? check-in: 3e767a9aad user: mrwellan tags: v1.62, v1.6208 | |
Changes
Modified common.scm from [41eb86f112] to [3a70d4042d].
︙ | |||
390 391 392 393 394 395 396 397 398 399 400 401 402 403 | 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 | + + + + + + | (define (common:get-testsuite-name) (or (configf:lookup *configdat* "setup" "testsuite" ) (if *toppath* (pathname-file *toppath*) (pathname-file (current-directory))))) (define (common:get-db-tmp-area) (create-directory (conc "/tmp/" (current-user-name) "/megatest/" (common:get-testsuite-name) "/" (string-translate *toppath* "/" "_")) #t)) ;;====================================================================== ;; E X I T H A N D L I N G ;;====================================================================== (define (common:legacy-sync-recommended) (or (args:get-arg "-runtests") (args:get-arg "-run") |
︙ |
Modified db.scm from [bd53297b84] to [8a10ffb751].
︙ | |||
168 169 170 171 172 173 174 | 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 | - + | ;; NB// #f => return dbdir only ;; (was planned to be; zeroth db with name=main.db) ;; ;; If run-id is #f return to create and retrieve the path where the db will live. ;; (define (db:dbfile-path run-id) |
︙ | |||
228 229 230 231 232 233 234 | 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 | - + + - + - - + + + | (begin (debug:print 2 *default-log-port* "WARNING: opening db in non-writable dir " fname) (sqlite3:open-database fname))))) ;; ) ;; This routine creates the db. It is only called if the db is not already opened ;; (define (db:open-rundb dbstruct run-id #!key (attemptnum 0)(do-not-open #f)) ;; (conc *toppath* "/megatest.db") (car *configinfo*))) |
︙ |
Added docs/inprogress/graph-draw-arch.fig version [c5d001fa40].
|
Added docs/inprogress/megatest-architecture-proposed-2.fig version [9938b93bd4].