1
2
3
4
5
6
7
8
9
10
11
12
|
(use trace test)
(import dbfile)
(trace-call-sites #t)
(test #f #t (dbr:dbstruct? (db:setup #t)))
(define dbstruct *dbstruct-dbs*)
(test #f #f (dbfile:get-subdb dbstruct #f)) ;; get main.db (never opened yet)
(test #f #f (dbfile:get-subdb dbstruct 1)) ;; get 1.db
(test #f #f (db:get-subdb dbstruct 1))
(test #f #f (stack? (dbr:subdb-dbstack subdb)))
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
|
(use trace test)
(import dbfile)
(trace-call-sites #t)
(test #f #t (dbr:dbstruct? (db:setup #t)))
(define dbstruct *dbstruct-dbs*)
(test #f #f (dbfile:get-subdb dbstruct #f)) ;; get main.db (never opened yet)
(test #f #f (dbfile:get-subdb dbstruct 1)) ;; get 1.db
(test #f #t (hash-table? (dbr:dbstruct-subdbs dbstruct) ))
(test #f #f (db:get-subdb dbstruct 1))
;; (test #f #f (stack? (dbr:subdb-dbstack subdb)))
|