(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)