Scaffold ert and ecukes tests

Author: AdrieanKhisbe

.ert-runner

@@ -0,0 +1 @@
+-L .

Cask

@@ -8,4 +8,5 @@
  (depends-on "ecukes")
  (depends-on "ert-runner")
  (depends-on "el-mock")
+ (depends-on "undercover")
  (depends-on "cask-package-toolset"))

features/emacs-fireplace.feature

@@ -0,0 +1,11 @@
+Feature: Do Some things
+  In order to do something
+  As a user
+  I want to do something
+
+  Scenario: Do Something
+    Given I have "something"
+    When I have "something"
+    Then I should have "something"
+    And I should have "something"
+    But I should not have "something"

features/step-definitions/emacs-fireplace-steps.el

@@ -0,0 +1,28 @@
+;; This file contains your project specific step definitions. All
+;; files in this directory whose names end with "-steps.el" will be
+;; loaded automatically by Ecukes.
+
+(Given "^I have \"\\(.+\\)\"$"
+  (lambda (something)
+    ;; ...
+    ))
+
+(When "^I have \"\\(.+\\)\"$"
+  (lambda (something)
+    ;; ...
+    ))
+
+(Then "^I should have \"\\(.+\\)\"$"
+  (lambda (something)
+    ;; ...
+    ))
+
+(And "^I have \"\\(.+\\)\"$"
+  (lambda (something)
+    ;; ...
+    ))
+
+(But "^I should not have \"\\(.+\\)\"$"
+  (lambda (something)
+    ;; ...
+    ))

features/support/env.el

@@ -0,0 +1,36 @@
+(require 'f)
+
+(defvar emacs-fireplace-support-path
+  (f-dirname load-file-name))
+
+(defvar emacs-fireplace-features-path
+  (f-parent emacs-fireplace-support-path))
+
+(defvar emacs-fireplace-root-path
+  (f-parent emacs-fireplace-features-path))
+
+(add-to-list 'load-path emacs-fireplace-root-path)
+
+(require 'undercover)
+(undercover "*.el"
+	    (:exclude "*-test.el")
+	    (:report-file "/tmp/undercover-report.json"))
+(require 'emacs-fireplace)
+(require 'espuds)
+(require 'ert)
+
+(Setup
+ ;; Before anything has run
+ )
+
+(Before
+ ;; Before each scenario is run
+ )
+
+(After
+ ;; After each scenario is run
+ )
+
+(Teardown
+ ;; After when everything has been run
+ )

test/emacs-fireplace-test.el

@@ -0,0 +1,10 @@
+;;; Test for `emacs-fireplace'
+
+;;; Commentary:
+;; These are the tests for `emacs-fireplace'
+
+;;; Code:
+
+(ert-deftest emacs-fireplace-should-not-pass ()
+  (should-not nil))
+

test/test-helper.el

@@ -0,0 +1,46 @@
+;;; test-helper --- Test helper for emacs-fireplace
+
+;;; Commentary:
+;; test helper inspired from https://github.com/tonini/overseer.el/blob/master/test/test-helper.el
+
+;;; Code:
+
+(require 'f)
+
+(defvar cpt-path
+  (f-parent (f-this-file)))
+
+(defvar emacs-fireplace-test-path
+  (f-dirname (f-this-file)))
+
+(defvar emacs-fireplace-root-path
+  (f-parent emacs-fireplace-test-path))
+
+(defvar emacs-fireplace-sandbox-path
+  (f-expand "sandbox" emacs-fireplace-test-path))
+
+(when (f-exists? emacs-fireplace-sandbox-path)
+  (error "Something is already in %s. Check and destroy it yourself" emacs-fireplace-sandbox-path))
+
+(defmacro within-sandbox (&rest body)
+  "Evaluate BODY in an empty sandbox directory."
+  `(let ((default-directory emacs-fireplace-sandbox-path))
+     (when (f-exists? emacs-fireplace-sandbox-path)
+       (f-delete default-directory :force))
+     (f-mkdir emacs-fireplace-sandbox-path)
+     ,@body
+     (f-delete default-directory :force)))
+
+(require 'ert)
+(require 'el-mock)
+(eval-when-compile
+    (require 'cl))
+(require 'undercover)
+(undercover "*.el"
+	    (:exclude "*-test.el")
+	    (:send-report nil)
+	    (:report-file "/tmp/undercover-report.json"))
+(require 'emacs-fireplace)
+
+(provide 'test-helper)
+;;; test-helper.el ends here