Mercurial > hg > xemacs-beta

comparison tests/automated/database-tests.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 189fb67ca31a
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
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 ((delete-database-files (filename) 39 (flet ((delete-database-files (filename)
40 (dolist (fn (list filename (concat filename ".db"))) 40 (dolist (fn (list filename
41 (concat filename ".db")
42 (concat filename ".pag")
43 (concat filename ".dir")))
41 (ignore-file-errors (delete-file fn)))) 44 (ignore-file-errors (delete-file fn))))
42 45
43 (test-database (db) 46 (test-database (db)
44 (Assert (databasep db)) 47 (Assert (databasep db))
45 (put-database "key1" "val1" db) 48 (put-database "key1" "val1" db)