Mercurial > hg > xemacs-beta

comparison tests/automated/database-tests.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
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)