Megatest

Check-in [4be151ee72]
Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6584-ck5
Files: files | file ages | folders
SHA1: 4be151ee729b58e48e7da0093a0355fdb169c8e7
User & Date: matt on 2021-05-11 23:21:12
Other Links: branch diff | manifest | tags
Context
2021-05-13
23:46
wip check-in: febc25a845 user: matt tags: v1.6584-ck5
2021-05-11
23:21
wip check-in: 4be151ee72 user: matt tags: v1.6584-ck5
22:39
wip check-in: 41b511ca4f user: matt tags: v1.6584-ck5
Changes

Modified tests/unittests/basicserver.scm from [6d0018dec0] to [393aa77a21].

41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

(test #f 'a (loop-test (rmt:conn-ipaddr *main*)(rmt:conn-port *main*) 'a))
(trace
 rmt:get-connection
 with-input-from-request
 )

(define *db* #f)
(test #f #f (api:execute-requests *db* 'get-server (list (conc *toppath*"/.db/1.db"))))
(test #f #f (rmt:general-open-connection *rmt:remote* (list (conc *toppath*"/.db/1.db"))))

;; (delete-file* "logs/1.log")
;; (define run-id 1)

;; (test "setup for run" #t (begin (launch:setup)







|







41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

(test #f 'a (loop-test (rmt:conn-ipaddr *main*)(rmt:conn-port *main*) 'a))
(trace
 rmt:get-connection
 with-input-from-request
 )

(define *db* (db:setup #f))
(test #f #f (api:execute-requests *db* 'get-server (list (conc *toppath*"/.db/1.db"))))
(test #f #f (rmt:general-open-connection *rmt:remote* (list (conc *toppath*"/.db/1.db"))))

;; (delete-file* "logs/1.log")
;; (define run-id 1)

;; (test "setup for run" #t (begin (launch:setup)