[nongnu] elpa/multiple-cursors d3a29a2 034/434: Started working on multiple-cursor core tests.

[ELPA Syncer]

branch: elpa/multiple-cursors
commit d3a29a2c6f5648e52f81d8d8c422aef4cfb8058e
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    Started working on multiple-cursor core tests.
    
     - got a problem with detecting overlays in ecukes.
---
 features/multiple-cursors-core.feature              | 12 ++++++++++++
 features/step-definitions/multiple-cursors-steps.el | 12 ++++++++++++
 2 files changed, 24 insertions(+)

diff --git a/features/multiple-cursors-core.feature 
b/features/multiple-cursors-core.feature
new file mode 100644
index 0000000..8c6f2ff
--- /dev/null
+++ b/features/multiple-cursors-core.feature
@@ -0,0 +1,12 @@
+Feature: Multiple cursors core
+  In order to make efficient changes
+  As an Emacs user with multiple-cursors
+  I want to change multiple parts of the buffer at once
+
+  Scenario: Two cursors
+    Given there is no region selected
+    When I insert "This text contains the word text twice"
+    And I select "text"
+    And I press "C->"
+    And I press "C-g"
+    Then I should have 2 cursors
diff --git a/features/step-definitions/multiple-cursors-steps.el 
b/features/step-definitions/multiple-cursors-steps.el
index 2836291..486aa32 100644
--- a/features/step-definitions/multiple-cursors-steps.el
+++ b/features/step-definitions/multiple-cursors-steps.el
@@ -1,3 +1,15 @@
 (And "^delete-selection-mode is active$"
      (lambda ()
         (delete-selection-mode 1)))
+
+(defun is-extra-cursor-p (o)
+  (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))))