Mercurial > hg > xemacs-beta

comparison tests/automated/database-tests.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 1f50e6fe4f3f
children de805c49cfc1
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA. 23 ;; 02111-1307, USA.
24 24
25 ;;; Synched up with: not in FSF Emacs. 25 ;;; Synched up with: Not in FSF.
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;;; Test database functionality 29 ;;; Test database functionality
30 ;;; See test-harness.el 30 ;;; See test-harness.el
50 (Assert (not (database-live-p db))) 50 (Assert (not (database-live-p db)))
51 (Assert (databasep db)))) 51 (Assert (databasep db))))
52 52
53 (let ((filename (expand-file-name "test-harness" (temp-directory)))) 53 (let ((filename (expand-file-name "test-harness" (temp-directory))))
54 54
55 (dolist (db-type `(dbm berkeley-db)) 55 (dolist (db-type '(dbm berkeley-db))
56 (when (featurep db-type) 56 (when (featurep db-type)
57 (princ "\n") 57 (princ "\n")
58 (delete-database-files filename) 58 (delete-database-files filename)
59 (test-database (open-database filename db-type)) 59 (test-database (open-database filename db-type))
60 (delete-database-files filename))))) 60 (delete-database-files filename)))))