Mercurial > hg > xemacs-beta
comparison tests/automated/region-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 | 43b4a54fbf66 |
| children | 0f66906b6e37 |
comparison
equal
deleted
inserted
replaced
| 4854:95c4ced5c07c | 4855:189fb67ca31a |
|---|---|
| 69 ;; Region exists in first buffer, not this second one | 69 ;; Region exists in first buffer, not this second one |
| 70 (Assert (not (region-exists-p))) | 70 (Assert (not (region-exists-p))) |
| 71 ;; Region not active in this second temp buffer | 71 ;; Region not active in this second temp buffer |
| 72 (Assert (not (region-active-p))) | 72 (Assert (not (region-active-p))) |
| 73 ;; Region still active in first temp buffer | 73 ;; Region still active in first temp buffer |
| 74 (Assert (eq (zmacs-region-buffer) first-buffer)) | 74 (Assert-eq (zmacs-region-buffer) first-buffer) |
| 75 ;; Activate region in second temp buffer | 75 ;; Activate region in second temp buffer |
| 76 (Silence-Message | 76 (Silence-Message |
| 77 (mark-whole-buffer)) | 77 (mark-whole-buffer)) |
| 78 ;; Region exists in second temp buffer | 78 ;; Region exists in second temp buffer |
| 79 (Assert (region-exists-p)) | 79 (Assert (region-exists-p)) |