Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
db05dadd93595db9af1f7d0bd6994f78 |
| User & Date: | matt on 2021-05-20 05:41:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-20
| ||
| 20:33 | wip check-in: ffccd73793 user: matt tags: v1.6584-ck5 | |
| 05:41 | wip check-in: db05dadd93 user: matt tags: v1.6584-ck5 | |
|
2021-05-18
| ||
| 22:20 | main.db starting again. check-in: 8c1d89ef36 user: matt tags: v1.6584-ck5 | |
Changes
Modified megatest.scm from [e1591c4c2e] to [7284d2baea].
| ︙ | ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme | > | 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) (declare (uses launchmod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme |
| ︙ | ︙ |
Modified rmtmod.scm from [0b46126861] to [c678d93a8b].
| ︙ | ︙ | |||
279 280 281 282 283 284 285 286 287 288 289 290 291 292 | (case res ((server-started) (if (> num-tries 0) (begin (thread-sleep! 2) (rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1))) 'failed)) (else res)))))) ;;====================================================================== ;; Defaults to current area ;; | > | 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 | (case res ((server-started) (if (> num-tries 0) (begin (thread-sleep! 2) (rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1))) 'failed)) (else res)))))) ;;====================================================================== ;; Defaults to current area ;; |
| ︙ | ︙ |
Modified tests/unittests/basicserver.scm from [28c3a719a7] to [35151728ed].
| ︙ | ︙ | |||
18 19 20 21 22 23 24 | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Run like this: ;; ;; ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0) | | > | > > > > | | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Run like this: ;; ;; ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0) (import rmtmod trace http-client apimod dbmod launchmod) (trace-call-sites #t) (trace ;; db:get-dbdat ;; rmt:find-main-server rmt:send-receive-real rmt:send-receive ;; sexpr->string ;; server-ready? ;; rmt:register-server ;; rmt:open-main-connection rmt:general-open-connection rmt:get-connection common:watchdog ;; rmt:find-main-server ;; get-all-server-pkts ;; get-viable-servers ;; get-best-candidate ;; api:run-server-process ) (test #f #t (rmt:remote? (let ((r (make-rmt:remote))) (set! *rmt:remote* r) r))) (test #f #f (rmt:get-connection *rmt:remote* *toppath* ".db/main.db")) (test #f #f (rmt:find-main-server *toppath* ".db/main.db")) |
| ︙ | ︙ |