;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.
-;;; Synched up with: not in FSF Emacs.
+;;; Synched up with: Not in FSF.
;;; Commentary:
(require 'test-harness))))
(flet ((delete-database-files (filename)
- (dolist (fn (list filename (concat filename ".db")))
+ (dolist (fn (list filename
+ (concat filename ".db")
+ (concat filename ".pag")
+ (concat filename ".dir")))
(ignore-file-errors (delete-file fn))))
(test-database (db)
(let ((filename (expand-file-name "test-harness" (temp-directory))))
- (dolist (db-type `(dbm berkeley-db))
+ (dolist (db-type '(dbm berkeley-db))
(when (featurep db-type)
(princ "\n")
(delete-database-files filename)