Megatest

Check-in [36ce1881c0]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Missed a conversion from setup-for-run to launch:setup-for-run
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 36ce1881c0bf9ed6789431ec505388999188ce0e
User & Date: matt on 2014-07-23 00:59:54
Other Links: branch diff | manifest | tags
Context
2014-07-23
09:59
Several fixes for merge caused issues. made loadrunner more agressive check-in: d55a2c061d user: mrwellan tags: v1.60
00:59
Missed a conversion from setup-for-run to launch:setup-for-run check-in: 36ce1881c0 user: matt tags: v1.60
00:54
Added launch to uses in server.scm, more tweaks to fdktestqa configs check-in: 89ac157423 user: matt tags: v1.60
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified server.scm from [52a8bf55cd] to [02580cc00b]. 

147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

;; called in megatest.scm, host-port is string hostname:port
;;
(define (server:ping run-id host:port)
  (let* ((host-port (let ((slst (string-split   host:port ":")))
		      (if (eq? (length slst) 2)
			  (list (car slst)(string->number (cadr slst)))
			  #f)))
	 (toppath       (setup-for-run))
	 (server-db-dat (if (not host-port)(open-run-close tasks:get-server tasks:open-db run-id) #f)))
    (if (not run-id)
	  (begin
	    (debug:print 0 "ERROR: must specify run-id when doing ping, -run-id n")
	    (print "ERROR: No run-id")
	    (exit 1))
	  (if (and (not host-port)







|








147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

;; called in megatest.scm, host-port is string hostname:port
;;
(define (server:ping run-id host:port)
  (let* ((host-port (let ((slst (string-split   host:port ":")))
		      (if (eq? (length slst) 2)
			  (list (car slst)(string->number (cadr slst)))
			  #f)))
	 (toppath       (launch:setup-for-run))
	 (server-db-dat (if (not host-port)(open-run-close tasks:get-server tasks:open-db run-id) #f)))
    (if (not run-id)
	  (begin
	    (debug:print 0 "ERROR: must specify run-id when doing ping, -run-id n")
	    (print "ERROR: No run-id")
	    (exit 1))
	  (if (and (not host-port)

This page was generated in about 0.119s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00