1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;======================================================================
;; S E R V E R
;;======================================================================
;; Run like this:
;;
;; (cd ..;make && make install) && ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0)
;; BB: 2016-01-20 suspect this file is dead code
(test #f #t (dbr:dbstruct? (make-dbr:dbstruct path: "/tmp")))
(define dbstruct (make-dbr:dbstruct path: "/tmp"))
(test #f #t (begin (dbr:dbstruct-main-set! dbstruct "blah") #t))
(test #f "blah" (dbr:dbstruct-main dbstruct))
(for-each
(lambda (run-id)
(test #f #t (vector? (dbr:dbstruct-get-rundb-rec dbstruct run-id))))
(list 1 2 3 4 5 6 7 8 9 #f))
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;======================================================================
;; S E R V E R
;;======================================================================
;; Run like this:
;;
;; (cd ..;make && make install) && ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0)
;; BB: 2016-01-20 suspect this file is dead code
(test #f #t (dbr:dbstruct? (make-dbr:dbstruct-wrapper path: "/tmp")))
(define dbstruct (make-dbr:dbstruct-wrapper path: "/tmp"))
(test #f #t (begin (dbr:dbstruct-main-set! dbstruct "blah") #t))
(test #f "blah" (dbr:dbstruct-main dbstruct))
(for-each
(lambda (run-id)
(test #f #t (vector? (dbr:dbstruct-get-rundb-rec dbstruct run-id))))
(list 1 2 3 4 5 6 7 8 9 #f))
|