Differences From Artifact [d934a1dc41]:
- File http-transport.scm — part of check-in [3dd7be54e8] at 2013-07-29 21:42:34 on branch v1.55 — Reset test start time on LAUNCHED and REMOTEHOSTSTART, tightened up timings on test control panel updates (user: matt, size: 18674) [annotate] [blame] [check-ins using] [more...]
To Artifact [a3d90588fe]:
- File http-transport.scm — part of check-in [592afa20f6] at 2013-11-09 23:01:44 on branch trunk — Inmemdb support mostly done. Syncing runs and test_meta table not yet done. (user: matt, size: 18837) [annotate] [blame] [check-ins using]
| ︙ | |||
370 371 372 373 374 375 376 377 378 379 380 381 382 383 | 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 | + + + + |
(let* ((th2 (make-thread (lambda ()
(http-transport:run
(if (args:get-arg "-server")
(args:get-arg "-server")
"-"))) "Server run"))
(th3 (make-thread http-transport:keep-running "Keep running"))
(th1 (make-thread server:write-queue-handler "write queue")))
;; This is were we set up the database connections
(set! *db* (open-db))
(set! *inmemdb* (open-in-mem-db))
(db:sync-to *db* *inmemdb*)
(thread-start! th2)
(thread-start! th3)
(thread-start! th1)
(set! *didsomething* #t)
(thread-join! th2))
(debug:print 0 "ERROR: Failed to setup for megatest")))
(exit)))
|
| ︙ |