Mercurial > hg > xemacs-beta

comparison tests/database.el @ 333:4f79e16b1112 r21-0-64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-64
author cvs
date Mon, 13 Aug 2007 10:49:50 +0200
parents c5d627a313b1
children cc15677e0335
comparison
equal deleted inserted replaced
332:bb75ebac9531 333:4f79e16b1112
1 ;;; Test database functionality 1 ;;; Test database functionality
2 2
3 (defun test-database (db) 3 (flet ((delete-database-files (filename)
4 (Assert (databasep db)) 4 (dolist (fn (list filename (concat filename ".db")))
5 (put-database "key1" "val1" db) 5 (condition-case nil (delete-file fn) (file-error nil))))
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 6
18 (let ((filename (expand-file-name "test-emacs" (temp-directory)))) 7 (test-database (db)
8 (Assert (databasep db))
9 (put-database "key1" "val1" db)
10 (Assert (equal "val1" (get-database "key1" db)))
11 (remove-database "key1" db)
12 (Assert (equal nil (get-database "key1" db)))
13 (close-database db)
14 (Assert (not (database-live-p db)))
15 (Assert (databasep db))))
19 16
20 (when (featurep 'dbm) 17 (let ((filename (expand-file-name "test-harness" (temp-directory))))
21 (let ((db (open-database filename 'dbm)))
22 (test-database db)))
23
24 (princ "\n")
25 18
26 (when (featurep 'berkeley-db) 19 (dolist (db-type `(dbm berkeley-db))
27 (let ((db (open-database filename 'berkeley-db))) 20 (when (featurep db-type)
28 (test-database db))) 21 (princ "\n")
29 ) 22 (delete-database-files filename)
23 (test-database (open-database filename db-type))
24 (delete-database-files filename)))))