50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
;; 3. Some API functions call non-existent db functions.
;; Delete these API functions after checking that they are not called?
;; Comment them out and give a date to delete. (in the refactor branch?)
;; 4. get-tests-times: no such query supported in api.scm, but it is in the list of read-only queries. Remove it? Or implement it if it's in db.scm?
(define my-dbstruct (db:setup #t))
(define toppath (current-directory))
(define keypatts '(("SYSTEM" "ubuntu")("RELEASE" "v1.234")) )
(define keys (db:get-keys my-dbstruct))
(test #f #t (vector-ref (api:execute-requests my-dbstruct (vector 'start-server (list *toppath* ))) 0))
|
>
>
>
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
;; 3. Some API functions call non-existent db functions.
;; Delete these API functions after checking that they are not called?
;; Comment them out and give a date to delete. (in the refactor branch?)
;; 4. get-tests-times: no such query supported in api.scm, but it is in the list of read-only queries. Remove it? Or implement it if it's in db.scm?
(use test)
(import megamod)
(define my-dbstruct (db:setup #t))
(define toppath (current-directory))
(define keypatts '(("SYSTEM" "ubuntu")("RELEASE" "v1.234")) )
(define keys (db:get-keys my-dbstruct))
(test #f #t (vector-ref (api:execute-requests my-dbstruct (vector 'start-server (list *toppath* ))) 0))
|