Megatest

Check-in [7a2fe15d10]
Login
Overview
Comment:Minor clean up
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | test-specific-db
Files: files | file ages | folders
SHA1: 7a2fe15d10271aa8f51c5139569275eddee2919a
User & Date: matt on 2012-09-27 16:53:42
Other Links: branch diff | manifest | tags
Context
2012-09-27
17:23
Pulling back values for parallel test check-in: 1dd4b7f24f user: mrwellan tags: test-specific-db
16:53
Minor clean up check-in: 7a2fe15d10 user: matt tags: test-specific-db
16:33
Trying more conservative values on NFS check-in: 63d52c1fe9 user: mrwellan tags: test-specific-db
Changes

Modified db.scm from [7f2aee0fc0] to [3b6d743f09].

375
376
377
378
379
380
381
382

383
384
385
386
387
388
389
375
376
377
378
379
380
381

382
383
384
385
386
387
388
389







-
+







	  (if valnum (set! res valnum))))
    ;; scale by 10, average with current value.
    (set! *global-delta* (/ (+ *global-delta* (* (- (current-milliseconds) start-ms)
						 (if throttle throttle 0.01)))
			    2))
    (if (> (abs (- *last-global-delta-printed* *global-delta*)) 0.08) ;; don't print all the time, only if it changes a bit
	(begin
	  (debug:print 1 "INFO: launch throttle factor=" *global-delta*)
	  (debug:print 4 "INFO: launch throttle factor=" *global-delta*)
	  (set! *last-global-delta-printed* *global-delta*)))
    res))

(define (db:set-var db var val)
  (sqlite3:execute db "INSERT OR REPLACE INTO metadat (var,val) VALUES (?,?);" var val))

;; use a global for some primitive caching, it is just silly to re-read the db 

Modified launch.scm from [a8ad7abd36] to [843bb8d015].

93
94
95
96
97
98
99
100

101
102
103
104
105
106
107
93
94
95
96
97
98
99

100
101
102
103
104
105
106
107







-
+







	      (begin
		(debug:print 0 "Failed to setup, exiting") 
		;; (sqlite3:finalize! db)
		;; (sqlite3:finalize! tdb)
		(exit 1)))
	  (change-directory *toppath*)

	  (open-run-close-measure set-megatest-env-vars #f run-id) ;; these may be needed by the launching process
	  (open-run-close set-megatest-env-vars #f run-id) ;; these may be needed by the launching process
	  (change-directory work-area) 

	  (open-run-close set-run-config-vars #f run-id)
	  ;; environment overrides are done *before* the remaining critical envars.
	  (alist->env-vars env-ovrd)
	  (open-run-close set-megatest-env-vars #f run-id)
	  (set-item-env-vars itemdat)