Tests up and running.

Author: magnars

.gitmodules

@@ -0,0 +1,6 @@
+[submodule "util/ecukes"]
+	path = util/ecukes
+	url = https://github.com/rejeep/ecukes.git
+[submodule "util/espuds"]
+	path = util/espuds
+	url = https://github.com/rejeep/espuds.git

README.md

@@ -8,3 +8,15 @@ with [Buster.js](http://busterjs.org).
 All keybindings in buster-mode start with `C-c C-b` and then a two-letter mnemonic shortcut.
 
 * `td`: toggle-deferred will toggle // in the name of the current test.
+
+## Development
+
+To fetch the test dependencies:
+
+    $ cd /path/to/buster-mode
+    $ git submodule init
+    $ git submodule update
+
+Run the tests with:
+
+    $ ./util/ecukes/ecukes features

buster-mode.el

@@ -0,0 +1 @@
+(provide 'buster-mode)

features/buster-mode.feature

@@ -0,0 +1,17 @@
+Feature: Toggle deferred
+  In order to quickly defer a test
+  As a buster using emacs user
+  I want to just press key please
+
+  Scenario: Deferring a test
+    When I insert:
+    """
+    buster.testCase('Building Page', {
+      "contains title after loading page": function () {
+        assert.match(document.body.innerHTML, "Zombie TDD");
+      }
+    });
+    """
+    And I go to the front of the word "assert"
+    And I press "C-c C-b td"
+    Then I should see "//contains"

features/step-definitions/basic-steps.el

@@ -0,0 +1,14 @@
+(When "^I go to character \"\\(.+\\)\"$"
+      (lambda (char)
+        (goto-char (point-min))
+        (let ((search (re-search-forward (format "%s" char) nil t))
+              (message "Can not go to character '%s' since it does not exist in the current buffer: %s"))
+          (assert search nil message char (espuds-buffer-contents)))))
+
+(When "^I go to the \\(front\\|end\\) of the word \"\\(.+\\)\"$"
+      (lambda (pos word)
+        (goto-char (point-min))
+        (let ((search (re-search-forward (format "%s" word) nil t))
+              (message "Can not go to character '%s' since it does not exist in the current buffer: %s"))
+          (assert search nil message word (espuds-buffer-contents))
+          (if (string-equal "front" pos) (backward-word)))))

features/support/env.el

@@ -0,0 +1,23 @@
+(let* ((current-directory (file-name-directory load-file-name))
+       (features-directory (expand-file-name ".." current-directory))
+       (project-directory (expand-file-name ".." features-directory)))
+  (setq buster-mode-root-path project-directory)
+  (setq buster-mode-util-path (expand-file-name "util" project-directory)))
+
+(add-to-list 'load-path buster-mode-root-path)
+(add-to-list 'load-path (expand-file-name "espuds" buster-mode-util-path))
+
+(require 'buster-mode)
+(require 'espuds)
+(require 'ert)
+
+(Before
+ (switch-to-buffer
+  (get-buffer-create "*buster-mode*"))
+ (erase-buffer)
+ (transient-mark-mode 1)
+ (cua-mode 0)
+ (setq set-mark-default-inactive nil)
+ (deactivate-mark))
+
+(After)