ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 21:03:05 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
features/multiple-cursors-core.feature
View File

@ -5,8 +5,9 @@ Feature: Multiple cursors core
Scenario: Two cursors
Given there is no region selected
When I insert "This text contains the word text twice"
When I insert "This text contains the word text thrice (text)"
And I select "text"
And I press "C->"
And I press "C->"
And I press "C-g"
Then I should have 2 cursors
Then I should have 3 cursors

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))))

2
util/ecukes

@ -1 +1 @@
Subproject commit 4b30d7dd4ccf070a5efc73d5615e815ece484882
Subproject commit 2e8898df9aa5d8743e980e1e18c068d9e24a222c