Mercurial > hg > xemacs-beta

annotate tests/database.el @ 333:4f79e16b1112 r21-0-64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-64
author cvs
date Mon, 13 Aug 2007 10:49:50 +0200
parents c5d627a313b1
children cc15677e0335
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents:
diff changeset
1 ;;; Test database functionality
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents:
diff changeset
2
333
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
3 (flet ((delete-database-files (filename)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
4 (dolist (fn (list filename (concat filename ".db")))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
5 (condition-case nil (delete-file fn) (file-error nil))))
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents:
diff changeset
6
333
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
7 (test-database (db)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
8 (Assert (databasep db))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
9 (put-database "key1" "val1" db)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
10 (Assert (equal "val1" (get-database "key1" db)))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
11 (remove-database "key1" db)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
12 (Assert (equal nil (get-database "key1" db)))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
13 (close-database db)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
14 (Assert (not (database-live-p db)))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
15 (Assert (databasep db))))
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents:
diff changeset
16
333
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
17 (let ((filename (expand-file-name "test-harness" (temp-directory))))
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents:
diff changeset
18
333
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
19 (dolist (db-type `(dbm berkeley-db))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
20 (when (featurep db-type)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
21 (princ "\n")
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
22 (delete-database-files filename)
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
23 (test-database (open-database filename db-type))
4f79e16b1112 Import from CVS: tag r21-0-64
cvs
parents: 272
diff changeset
24 (delete-database-files filename)))))