Megatest

Diff
Login

Differences From Artifact [89decfdb89]:

To Artifact [81aaa85fa0]:


932
933
934
935
936
937
938
939

940
941


942
943
944
945
946
947
948
932
933
934
935
936
937
938

939


940
941
942
943
944
945
946
947
948







-
+
-
-
+
+







;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;;   we start the server if not running else start the client thread
;;======================================================================

;; Server? Start up here.
;;
(if (args:get-arg "-server")
    (let ((tl        (launch:setup))
    (let ((tl        (launch:setup)))
          (transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
      (server:launch 0 transport-type)
      ;; (server:launch 0 'http)
      (http-transport:launch)
      (set! *didsomething* #t)))

;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
;; a specific Megatest area. Detail are being hashed out and this may change.
;;
(if (args:get-arg "-adjutant")
    (begin