Mercurial > hg > xemacs-beta

diff tests/automated/database-tests.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children 1f50e6fe4f3f
line wrap: on
line diff
--- a/tests/automated/database-tests.el	Mon Aug 13 11:08:51 2007 +0200
+++ b/tests/automated/database-tests.el	Mon Aug 13 11:09:42 2007 +0200
@@ -29,7 +29,7 @@
 ;;; Test database functionality
 ;;; See test-harness.el
 
-(condition-case err
+(condition-case nil
     (require 'test-harness)
   (file-error
    (when (and (boundp 'load-file-name) (stringp load-file-name))
@@ -53,7 +53,7 @@
   (let ((filename (expand-file-name "test-harness" (temp-directory))))
 
     (dolist (fn (list filename (concat filename ".db")))
-      (condition-case nil (delete-file fn) (file-error nil)))
+      (ignore-file-errors (delete-file fn)))
 
     (dolist (db-type `(dbm berkeley-db))
       (when (featurep db-type)