Overview
| Comment: | code tidy |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-multi-db-wip |
| Files: | files | file ages | folders |
| SHA1: |
318542508d2c6e77469720e8ac327ddf |
| User & Date: | matt on 2021-02-13 21:42:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-13
| ||
| 23:02 | still trying check-in: e2ce43a8fe user: matt tags: v1.6569-multi-db-wip (unpublished) | |
| 21:42 | code tidy check-in: 318542508d user: matt tags: v1.6569-multi-db-wip (unpublished) | |
| 19:16 | updated couple unit tests check-in: 22975ea8da user: matt tags: v1.6569-multi-db-wip (unpublished) | |
Changes
Modified server.scm from [a020b6a629] to [fe68ceb7c8].
whitespace changes only
Modified tests/unittests/all-rmt.scm from [1afb8effa6] to [7374458dca].
| ︙ | ︙ | |||
73 74 75 76 77 78 79 | ;; let's start up a server the mechanical way (system "nbfake megatest -server -") (thread-sleep! 2) ;; (test #f #t (string? (server:start-and-wait *toppath*))) (test "setup for run" #t (begin (launch:setup) (string? (getenv "MT_RUN_AREA_HOME")))) | | | | 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | ;; let's start up a server the mechanical way (system "nbfake megatest -server -") (thread-sleep! 2) ;; (test #f #t (string? (server:start-and-wait *toppath*))) (test "setup for run" #t (begin (launch:setup) (string? (getenv "MT_RUN_AREA_HOME")))) (test #f #t (string? (vector-ref (client:setup-http toppath) 0))) (test #f #t (vector? (client:setup toppath))) (test #f #t (vector? (rmt:get-connection-info toppath))) ;; TODO: push areapath down. (test #f #t (string? (server:check-if-running toppath))) ;; DEF (test #f #f (rmt:send-receive-no-auto-client-setup *runremote* 'get-keys #f '())) ;; DEF (rmt:kill-server run-id) ;; DEF (rmt:start-server run-id) (test #f '(#t "successful login")(rmt:login #f)) ;; DEF (rmt:login-no-auto-client-setup connection-info) (test #f #t (pair? (rmt:get-latest-host-load (get-host-name)))) |
| ︙ | ︙ |