Megatest

Check-in [2d3bd1949e]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Changed from fork to system for starting servers
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54 | v1.5423
Files: files | file ages | folders
SHA1: 2d3bd1949e9988c1bd82fc429f9a8dc4e0e6218f
User & Date: mrwellan on 2013-05-08 11:43:45
Other Links: branch diff | manifest | tags
Context
2013-05-08
16:23
Re-enabled transport fs check-in: 8951b718b4 user: mrwellan tags: v1.54, v1.5424
11:43
Changed from fork to system for starting servers check-in: 2d3bd1949e user: mrwellan tags: v1.54, v1.5423
10:58
Improved timeout handling in client/server communication check-in: be36b8399e user: mrwellan tags: v1.54
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified megatest.scm from [4db82708a1] to [ff52f26603].

︙
306
307
308
309
310
311
312

313
314
315
316





317
318
319
320
321
322
323

306
307
308
309
310
311
312
313




314
315
316
317
318
319
320
321
322
323
324
325








+
-
-
-
-
+
+
+
+
+








		      (null? servers))
		  (begin
		    (if (eq? trycount 0) ;; just do the server start once
			(begin
			  (debug:print 0 "INFO: Starting server as none running ...")
			  ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
			  ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http")))
			  (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3")
			  (process-fork (lambda ()
					  (daemon:ize)
					  (server:launch (string->symbol (args:get-arg "-transport" "http")))))
			  (thread-sleep! 3))
			  ;; (process-fork (lambda ()
			  ;;       	  (daemon:ize)
			  ;;       	  (server:launch (string->symbol (args:get-arg "-transport" "http")))))
			  ;; (thread-sleep! 3)
			  )
			(debug:print-info 0 "Waiting for server to start"))
		    (loop (open-run-close tasks:get-best-server tasks:open-db) 
			  (+ trycount 1)))
		  (debug:print 0 "INFO: Server(s) running " servers)
		  )))))

(if (or (args:get-arg "-list-servers")
︙

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