Artifact cba7c153c157425206aeb3456e98d8f85f4ee118:
- File tests/simplerun/thebeginning.scm — part of check-in [eabf8b78ac] at 2022-03-21 21:03:40 on branch v1.7001-multi-db-02 — Cleaned up db:get-subdb a bit, still not right (user: matt, size: 416) [annotate] [blame] [check-ins using]
(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)))