Megatest

Diff
Login

Differences From Artifact [50a75d414c]:

To Artifact [33fade09b9]:


51
52
53
54
55
56
57
58
59


51
52
53
54
55
56
57


58
59







-
-
+
+

;; *************** db.scm tests ****************


(define thisdbdat (db:open-db dbstruct #f))
(test #f #t (dbr:dbdat? thisdbdat))

(test #f #t (dbr:dbdat? (db:get-db dbstruct #f)))
(test #f #t (dbr:dbdat? (db:get-db dbstruct 1)))
(test #f #t (dbr:subdb? (db:get-db dbstruct #f)))
(test #f #t (dbr:subdb? (db:get-db dbstruct 1)))