;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Synched up with: Not in FSF.
(test-database (db)
(Assert (databasep db))
(put-database "key1" "val1" db)
- (Assert (equal "val1" (get-database "key1" db)))
+ (Assert-Equal "val1" (get-database "key1" db))
(remove-database "key1" db)
- (Assert (equal nil (get-database "key1" db)))
+ (Assert-Equal nil (get-database "key1" db))
(close-database db)
(Assert (not (database-live-p db)))
(Assert (databasep db))))