Mercurial > hg > xemacs-beta

comparison tests/automated/database-tests.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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 40 (dolist (fn (list filename (concat filename ".db")))
41 (concat filename ".db")
42 (concat filename ".pag")
43 (concat filename ".dir")))
44 (ignore-file-errors (delete-file fn)))) 41 (ignore-file-errors (delete-file fn))))
45 42
46 (test-database (db) 43 (test-database (db)
47 (Assert (databasep db)) 44 (Assert (databasep db))
48 (put-database "key1" "val1" db) 45 (put-database "key1" "val1" db)