Megatest

thebeginning.scm at [f48837ca86]
Login

File tests/simplerun/thebeginning.scm artifact 615a80af65 part of check-in f48837ca86


(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)))