21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(define *keys* (keys:config-get-fields *configdat*))
(define *keyvals* (keys:target->keyval *keys* "a/b/c"))
(test #f #t (string? (car *runremote*)))
(test #f '(#t "successful login") (rmt:login)) ;; *runremote* *toppath* *my-client-signature*)))
(define inmem (open-in-mem-db))
(define (inmem-test t b)
(test "inmem sync to" t (db:sync-to *db* inmem))
(test "inmem sync back" b (db:sync-to inmem *db*)))
(inmem-test 0 0)
|
|
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(define *keys* (keys:config-get-fields *configdat*))
(define *keyvals* (keys:target->keyval *keys* "a/b/c"))
(test #f #t (string? (car *runremote*)))
(test #f '(#t "successful login") (rmt:login)) ;; *runremote* *toppath* *my-client-signature*)))
(define inmem (db:open-inmem-db))
(define (inmem-test t b)
(test "inmem sync to" t (db:sync-to *db* inmem))
(test "inmem sync back" b (db:sync-to inmem *db*)))
(inmem-test 0 0)
|