X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Fautomated%2Fdatabase-tests.el;h=84955ebedfdf1e35de0c6d34ddaced461533f130;hb=f7019bf646d0d4e750e0186d6e912ec7a3b9da90;hp=62296e0ccc07f160dabe328ffaec6792e98aa925;hpb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;p=chise%2Fxemacs-chise.git.1

diff --git a/tests/automated/database-tests.el b/tests/automated/database-tests.el
index 62296e0..84955eb 100644
--- a/tests/automated/database-tests.el
+++ b/tests/automated/database-tests.el
@@ -22,7 +22,7 @@
 ;; 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:
 
@@ -37,7 +37,10 @@
      (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)
@@ -52,7 +55,7 @@
 
   (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)