Megatest

Diff
Login

Differences From Artifact [1a8187c724]:

To Artifact [50a75d414c]:


50
51
52
53
54
55
56





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


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










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