|
272
|
1 ;;; Test database functionality
|
|
|
2
|
|
|
3 (defun test-database (db)
|
|
|
4 (Assert (databasep db))
|
|
|
5 (put-database "key1" "val1" db)
|
|
|
6 (Assert (equal "val1" (get-database "key1" db)))
|
|
|
7 (remove-database "key1" db)
|
|
|
8 (Assert (equal nil (get-database "key1" db)))
|
|
|
9 (close-database db)
|
|
|
10 (Assert (not (database-live-p db)))
|
|
|
11 (Assert (databasep db))
|
|
|
12 (let ((filename (database-file-name db)))
|
|
|
13 (loop for fn in (list filename (concat filename ".db")) do
|
|
|
14 (when (file-exists-p fn)
|
|
|
15 (delete-file fn))))
|
|
|
16 )
|
|
|
17
|
|
|
18 (let ((filename (expand-file-name "test-emacs" (temp-directory))))
|
|
|
19
|
|
|
20 (when (featurep 'dbm)
|
|
|
21 (let ((db (open-database filename 'dbm)))
|
|
|
22 (test-database db)))
|
|
|
23
|
|
|
24 (princ "\n")
|
|
|
25
|
|
|
26 (when (featurep 'berkeley-db)
|
|
|
27 (let ((db (open-database filename 'berkeley-db)))
|
|
|
28 (test-database db)))
|
|
|
29 )
|
