Overview
| Comment: | Improved results from unit tests. WIP |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.001 |
| Files: | files | file ages | folders |
| SHA1: |
bb1843a1b02785b585c1371d3a936c51 |
| User & Date: | matt on 2021-12-18 20:09:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-12-19
| ||
| 20:28 | wip check-in: 9f1a2f71d3 user: matt tags: v2.001 | |
|
2021-12-18
| ||
| 20:09 | Improved results from unit tests. WIP check-in: bb1843a1b0 user: matt tags: v2.001 | |
| 20:07 | Improved results from unit tests. WIP check-in: e2e75e9fde user: matt tags: v2.001 | |
Changes
Modified tests/unittests/server.scm from [1db08904e3] to [b0131aa814].
| ︙ | ︙ | |||
62 63 64 65 66 67 68 | (test #f #t (conndat? (rmt:get-conn *remotedat* *toppath* ".db/main.db"))) (test #f ".db/2.db" (list-ref (rmt:send-receive-real *remotedat* *toppath* ".db/main.db" 'get-server `(,apath ,dbname)) 6)) (thread-sleep! 2) (test #f #t (rmt:general-open-connection *remotedat* *toppath* ".db/2.db")) | < > | 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
(test #f #t (conndat? (rmt:get-conn *remotedat* *toppath* ".db/main.db")))
(test #f ".db/2.db" (list-ref (rmt:send-receive-real *remotedat* *toppath* ".db/main.db" 'get-server `(,apath ,dbname))
6))
(thread-sleep! 2)
(test #f #t (rmt:general-open-connection *remotedat* *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)))
(print "Got here.")
(exit)
(test #f 1 (rmt:send-receive 'register-run 1 (list keyvals "run1" "new" "n/a" "justme" #f)))
(test #f 2 (rmt:register-run keyvals "run2" "new" "n/a" "justme" #f))
;; (test #f 2 (rmt:deregister-server *remotedat* *toppath* iface port server-key dbname
(test #f 2 (rmt:get-count-servers *remotedat* *toppath*))
|
| ︙ | ︙ |