Megatest

Check-in [c838c6a2d2]
Login
Overview
Comment:upped default server timeout from 1hr to 25hrs to reduce incidence of potential server transition issues
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63-09c-candidate
Files: files | file ages | folders
SHA1: c838c6a2d205f2ddb0be0e5b1b77608e3fcb8b6c
User & Date: bjbarcla on 2017-03-07 14:26:34
Other Links: branch diff | manifest | tags
Context
2017-03-07
14:42
fixed dashboard bug where filtering by state/status filters were causing tests to disappear from run tab Closed-Leaf check-in: fa8d6d5063 user: bjbarcla tags: v1.63-09c-candidate
14:26
upped default server timeout from 1hr to 25hrs to reduce incidence of potential server transition issues check-in: c838c6a2d2 user: bjbarcla tags: v1.63-09c-candidate
14:12
restored env var name MT_TESTSUITENAME which had inadvertently changed to MT_TESTSUITE_NAME check-in: f121875378 user: bjbarcla tags: v1.63-09c-candidate
Changes

Modified server.scm from [0d4bee3590] to [c9206854e2].

395
396
397
398
399
400
401
402
403
404
405

(define (server:get-timeout)
  (let ((tmo (configf:lookup  *configdat* "server" "timeout")))
    (if (and (string? tmo)
	     (string->number tmo))
	(* 60 60 (string->number tmo))
	;; (* 3 24 60 60) ;; default to three days
	(* 60 60 1)         ;; default to one hour
	;; (* 60 60 25)      ;; default to 25 hours
	)))








|
|


395
396
397
398
399
400
401
402
403
404
405

(define (server:get-timeout)
  (let ((tmo (configf:lookup  *configdat* "server" "timeout")))
    (if (and (string? tmo)
	     (string->number tmo))
	(* 60 60 (string->number tmo))
	;; (* 3 24 60 60) ;; default to three days
	;;(* 60 60 1)         ;; default to one hour
	(* 60 60 25)      ;; default to 25 hours
	)))