ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2026-02-04 14:22:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update test.

Browse Source
This commit is contained in:
Magnar Sveen
2012-07-18 13:03:33 +02:00
parent fca06858e9
commit 822bf18adf
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
features/step-definitions/multiple-cursors-steps.el
View File

@@ -3,13 +3,14 @@
(delete-selection-mode 1)))
(defun is-extra-cursor-p (o)
(message "overlay-type: %S" (overlay-get o 'type))
(eq (overlay-get o 'type) 'additional-cursor))
(defun num-cursors ()
(1+ (count-if 'is-extra-cursor-p
(overlays-in (point-min) (point-max)))))
(Then "^I should have 2 cursors$"
(lambda ()
(assert (eq 2 (num-cursors)) nil
"Expected to have 2 cursors, but was %d." (num-cursors))))
(Then "^I should have \\([0-9]+\\) cursors$"
(lambda (num)
(assert (eq (string-to-number num) (num-cursors)) nil
"Expected to have %s cursors, but was %d." num (num-cursors))))