Mercurial > hg > xemacs-beta
diff tests/automated/database-tests.el @ 4855:189fb67ca31a
Create Assert-eq, Assert-equal, etc.
These are equivalent to (Assert (eq ...)) but display both the actual value
and the expected value of the comparison.
Use them throughout the test suite.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Thu, 14 Jan 2010 02:18:03 -0600 |
| parents | abe6d1db359e |
| children | 0f66906b6e37 |
line wrap: on
line diff
--- a/tests/automated/database-tests.el Thu Jan 14 01:25:16 2010 -0600 +++ b/tests/automated/database-tests.el Thu Jan 14 02:18:03 2010 -0600 @@ -46,9 +46,9 @@ (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))))