git.chise.org Git - chise/xemacs-chise.git.1/blob - tests/database.el

   1 ;;; Test database functionality
   2
   3 (defun test-database (db)
   4   (Assert (databasep db))
   5   (put-database "key1" "val1" db)
   6   (Assert (equal "val1" (get-database "key1" db)))
   7   (remove-database "key1" db)
   8   (Assert (equal nil (get-database "key1" db)))
   9   (close-database db)
  10   (Assert (not (database-live-p db)))
  11   (Assert (databasep db))
  12   (let ((filename (database-file-name db)))
  13     (loop for fn in (list filename (concat filename ".db")) do
  14       (when (file-exists-p fn)
  15         (delete-file fn))))
  16   )
  17
  18 (let ((filename (expand-file-name "test-emacs" (temp-directory))))
  19
  20   (when (featurep 'dbm)
  21   (let ((db (open-database filename 'dbm)))
  22     (test-database db)))
  23
  24   (princ "\n")
  25
  26   (when (featurep 'berkeley-db)
  27     (let ((db (open-database filename 'berkeley-db)))
  28       (test-database db)))
  29   )