Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
0fe5a238eeab04d03d16d79a73d6c656 |
| User & Date: | matt on 2021-05-21 22:45:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-22
| ||
| 05:15 | Fixed server registration for run dbs, cleaned up a bit in rmtmod.scm check-in: 36de6e8829 user: matt tags: v1.6584-ck5 | |
|
2021-05-21
| ||
| 22:45 | wip check-in: 0fe5a238ee user: matt tags: v1.6584-ck5 | |
|
2021-05-20
| ||
| 23:29 | wip check-in: f9e738a1ca user: matt tags: v1.6584-ck5 | |
Changes
Modified tests/unittests/basicserver.scm from [67b7c04b63] to [7220b874e4].
| ︙ | ︙ | |||
77 78 79 80 81 82 83 |
(test #f 'server-started (rmt:send-receive-real *rmt:remote* *toppath* ".db/main.db" 'get-server `(,apath ,dbname)))
(thread-sleep! 2)
(test #f #t (list? (rmt:general-open-connection *rmt:remote* *toppath* ".db/2.db")))
(test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
(test #f 1 (rmt:send-receive 'register-run #f (list keyvals "run1" "new" "n/a" "justme" #f)))
| | | 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
(test #f 'server-started (rmt:send-receive-real *rmt:remote* *toppath* ".db/main.db" 'get-server `(,apath ,dbname)))
(thread-sleep! 2)
(test #f #t (list? (rmt:general-open-connection *rmt:remote* *toppath* ".db/2.db")))
(test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
(test #f 1 (rmt:send-receive 'register-run #f (list keyvals "run1" "new" "n/a" "justme" #f)))
(test #t 1 (rmt:send-receive 'register-run 1 (list keyvals "run2" "new" "n/a" "justme" #f)))
(test #f 1 (rmt:register-run keyvals "run2" "new" "n/a" "justme" #f))
;; (delete-file* "logs/1.log")
;; (define run-id 1)
;; (test "setup for run" #t (begin (launch:setup)
|
| ︙ | ︙ |