Megatest

Check-in [c16914fba9]
Login
Overview
Comment:fixed bug where server start storm appears in envqa
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: c16914fba97ea287054c16a7b7eb96fbad0dd79d
User & Date: bjbarcla on 2016-12-15 12:01:18
Other Links: branch diff | manifest | tags
Context
2016-12-15
19:33
enhanced common:get-least-loaded-host to better distribute work check-in: aa5b5f0d4b user: bjbarcla tags: v1.63
12:40
Automated merge of v1.63/c16914fba9/integ into integ-home check-in: 7afe215e9b user: matt tags: integ-home
12:01
fixed bug where server start storm appears in envqa check-in: c16914fba9 user: bjbarcla tags: v1.63
09:48
Added mutex to sections where testconfig is being processed in launch. check-in: 5f543006c5 user: mrwellan tags: v1.63
Changes

Modified tasks.scm from [b8a3c2af2e] to [f1c7a9fde2].

321
322
323
324
325
326
327
328
329

330
331
332
333
334
335
336
   (let* ((header (list "id" "hostname" "pid" "interface" "port" "pubport" "state" "run_id" "priority" "start_time"))
	  (selstr (string-intersperse header ","))
	  (res    '()))
    (sqlite3:for-each-row
     (lambda (a . b)
       (set! res (cons (apply vector a b) res)))
     mdb
     (conc "SELECT " selstr " FROM servers WHERE run_id=? AND state in ('available','running','dbprep') ORDER BY start_time DESC;")
     run-id)

    (vector header res)))

(define (tasks:get-server mdb run-id #!key (retries 10))
  (let ((res  #f)
	(best #f))
    (handle-exceptions
     exn







|
<
>







321
322
323
324
325
326
327
328

329
330
331
332
333
334
335
336
   (let* ((header (list "id" "hostname" "pid" "interface" "port" "pubport" "state" "run_id" "priority" "start_time"))
	  (selstr (string-intersperse header ","))
	  (res    '()))
    (sqlite3:for-each-row
     (lambda (a . b)
       (set! res (cons (apply vector a b) res)))
     mdb
     (conc "SELECT " selstr " FROM servers WHERE state in ('available','running','dbprep') ORDER BY start_time DESC;")

     )
    (vector header res)))

(define (tasks:get-server mdb run-id #!key (retries 10))
  (let ((res  #f)
	(best #f))
    (handle-exceptions
     exn