Megatest

Check-in [84336a6b8f]
Login
Overview
Comment:full fs access support and megatest.db turned off by default
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 84336a6b8f11de4ed8c3d05db0f712ad63539f02
User & Date: matt on 2014-11-20 22:20:40
Other Links: branch diff | manifest | tags
Context
2014-11-21
10:56
Added layer of exception handling inside db:with-db check-in: 171838c893 user: mrwellan tags: v1.60
2014-11-20
22:20
full fs access support and megatest.db turned off by default check-in: 84336a6b8f user: matt tags: v1.60
21:44
full fs access support and megatest.db turned off by default check-in: c8926e3cff user: matt tags: v1.60
Changes

Modified common.scm from [1e23489cd0] to [aa6e9ff977].

216
217
218
219
220
221
222
223
224
225
226

227
228
229
230
231
232
233
       (pathname-file *toppath*)))

;;======================================================================
;; E X I T   H A N D L I N G
;;======================================================================

(define (std-exit-procedure)
  (debug:print-info 0 "starting exit process, finalizing databases.")
  (rmt:print-db-stats)
  (let ((run-ids (hash-table-keys *db-local-sync*)))
    (if (not (null? run-ids))

	(db:multi-db-sync run-ids 'new2old)))
  (if *dbstruct-db* (db:close-all *dbstruct-db*))
  (if (and *megatest-db*
	   (sqlite3:database? *megatest-db*))
      (begin
	(sqlite3:interrupt! *megatest-db*)
	(sqlite3:finalize! *megatest-db* #t)







|


|
>







216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
       (pathname-file *toppath*)))

;;======================================================================
;; E X I T   H A N D L I N G
;;======================================================================

(define (std-exit-procedure)
  (debug:print-info 2 "starting exit process, finalizing databases.")
  (rmt:print-db-stats)
  (let ((run-ids (hash-table-keys *db-local-sync*)))
    (if (and (not (null? run-ids))
	     (configf:lookup *configdat* "setup" "megatest-db"))
	(db:multi-db-sync run-ids 'new2old)))
  (if *dbstruct-db* (db:close-all *dbstruct-db*))
  (if (and *megatest-db*
	   (sqlite3:database? *megatest-db*))
      (begin
	(sqlite3:interrupt! *megatest-db*)
	(sqlite3:finalize! *megatest-db* #t)

Modified tests/fullrun/config/mt_include_1.config from [761570e2b7] to [f2402f5b23].

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# launcher loadrunner
# launcher echo
# launcher nbfind
# launcher nodanggood
# launcher loadrunner
launcher nbfake
# maxload *per cpu*
maxload 4
# default waitdelay is 60 seconds
waitdelay 15


## use "xterm -e csi -- " as a launcher to examine the launch environment.
## exit with (exit)
## get a shell with (system "bash")







|







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# launcher loadrunner
# launcher echo
# launcher nbfind
# launcher nodanggood
# launcher loadrunner
launcher nbfake
# maxload *per cpu*
maxload 1.5
# default waitdelay is 60 seconds
waitdelay 15


## use "xterm -e csi -- " as a launcher to examine the launch environment.
## exit with (exit)
## get a shell with (system "bash")