diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-14 09:29:55 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-14 09:29:55 +0100 |
| commit | 59592b4faf2d50319fde19b3e050b0f7a89cc284 (patch) | |
| tree | 7490bed71ba52c37743221844d7cc4dde22baffe /test/cider-overlay-tests.el | |
| parent | 80d0d4370a6bbcc9ff404ef08c23ff530b1d6ff5 (diff) | |
Fix overlay tests
Diffstat (limited to 'test/cider-overlay-tests.el')
| -rw-r--r-- | test/cider-overlay-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/cider-overlay-tests.el b/test/cider-overlay-tests.el index 35550c74..c6fef406 100644 --- a/test/cider-overlay-tests.el +++ b/test/cider-overlay-tests.el @@ -28,11 +28,11 @@ (insert "garbage") (save-excursion (insert "\nmore trash")) (cider--make-result-overlay "ok") - (should (overlays-at (point-min) (point-max))) + (should (overlays-at (point-min))) ;; Then do some tests. - (mapc #'cider--delete-overlay (overlays-at (point-min) (point-max))) + (mapc #'cider--delete-overlay (overlays-at (point-min))) (let ((o1 (remove nil (mapcar #'overlay-start - (overlays-at (point-min) (point-max)))))) + (overlays-at (point-min)))))) (should-not o1)) ;; Duration @@ -40,24 +40,24 @@ (run-hooks 'post-command-hook) (run-hooks 'post-command-hook) (let ((o2 (remove nil (mapcar #'overlay-start - (overlays-at (point-min) (point-max)))))) + (overlays-at (point-min)))))) (should-not o2)) (let ((this-command nil)) (cider--make-result-overlay "ok" :duration 'command)) (run-hooks 'post-command-hook) (let ((o3 (remove nil (mapcar #'overlay-start - (overlays-at (point-min) (point-max)))))) + (overlays-at (point-min)))))) (should-not o3)) (cider--make-result-overlay "ok" :duration 1.5) (sleep-for 1) (let ((o4 (remove nil (mapcar #'overlay-start - (overlays-at (point-min) (point-max)))))) + (overlays-at (point-min)))))) (should o4)) (sleep-for 1) (let ((o5 (remove nil (mapcar #'overlay-start - (overlays-at (point-min) (point-max)))))) + (overlays-at (point-min)))))) (should-not o5)))) |