Mercurial > hg > xemacs-beta

comparison tests/automated/database-tests.el @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents aabb7f5b1c81
children 74fd4e045ea6
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
34 (file-error 34 (file-error
35 (when (and (boundp 'load-file-name) (stringp load-file-name)) 35 (when (and (boundp 'load-file-name) (stringp load-file-name))
36 (push (file-name-directory load-file-name) load-path) 36 (push (file-name-directory load-file-name) load-path)
37 (require 'test-harness)))) 37 (require 'test-harness))))
38 38
39 (flet ((test-database 39 (flet ((delete-database-files (filename)
40 (db) 40 (dolist (fn (list filename (concat filename ".db")))
41 (ignore-file-errors (delete-file fn))))
42
43 (test-database (db)
41 (Assert (databasep db)) 44 (Assert (databasep db))
42 (put-database "key1" "val1" db) 45 (put-database "key1" "val1" db)
43 (Assert (equal "val1" (get-database "key1" db))) 46 (Assert (equal "val1" (get-database "key1" db)))
44 (remove-database "key1" db) 47 (remove-database "key1" db)
45 (Assert (equal nil (get-database "key1" db))) 48 (Assert (equal nil (get-database "key1" db)))
46 (close-database db) 49 (close-database db)
47 (Assert (not (database-live-p db))) 50 (Assert (not (database-live-p db)))
48 (Assert (databasep db)) 51 (Assert (databasep db))))
49 (let ((filename (database-file-name db)))
50 (dolist (fn (list filename (concat filename ".db")))
51 (condition-case nil (delete-file fn) (file-error nil))))))
52 52
53 (let ((filename (expand-file-name "test-harness" (temp-directory)))) 53 (let ((filename (expand-file-name "test-harness" (temp-directory))))
54
55 (dolist (fn (list filename (concat filename ".db")))
56 (ignore-file-errors (delete-file fn)))
57 54
58 (dolist (db-type `(dbm berkeley-db)) 55 (dolist (db-type `(dbm berkeley-db))
59 (when (featurep db-type) 56 (when (featurep db-type)
60 (princ "\n") 57 (princ "\n")
61 (test-database (open-database filename db-type)))) 58 (delete-database-files filename)
62 )) 59 (test-database (open-database filename db-type))
60 (delete-database-files filename)))))