117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
(make-tt areapath: areapath))
;; 1 ... or #f
(define (tt:valid-run-id run-id)
(or (number? run-id)
(not run-id)))
;; do all the busy work of finding and setting up conn for
;; connecting to a server
;;
(define (tt:client-connect-to-server ttdat dbfname run-id testsuite)
(assert (tt:valid-run-id run-id) "FATAL: invalid run-id "run-id)
(let* ((conn (hash-table-ref/default (tt-conns ttdat) dbfname #f))
(server-start-proc (lambda ()
|
>
>
>
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
(make-tt areapath: areapath))
;; 1 ... or #f
(define (tt:valid-run-id run-id)
(or (number? run-id)
(not run-id)))
(tcp-buffer-size 2048)
;; (max-connections 4096)
;; do all the busy work of finding and setting up conn for
;; connecting to a server
;;
(define (tt:client-connect-to-server ttdat dbfname run-id testsuite)
(assert (tt:valid-run-id run-id) "FATAL: invalid run-id "run-id)
(let* ((conn (hash-table-ref/default (tt-conns ttdat) dbfname #f))
(server-start-proc (lambda ()
|