Scaffold ert unit test

Author: AdrieanKhisbe

.ert-runner

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

test/resize-window-test.el

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

test/test-helper.el

@@ -0,0 +1,38 @@
+;;; test-helper --- Test helper for resize-window
+
+;;; 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 resize-window-test-path
+  (f-dirname (f-this-file)))
+
+(defvar resize-window-root-path
+  (f-parent resize-window-test-path))
+
+(defvar resize-window-sandbox-path
+  (f-expand "sandbox" resize-window-test-path))
+
+(when (f-exists? resize-window-sandbox-path)
+  (error "Something is already in %s. Check and destroy it yourself" resize-window-sandbox-path))
+
+(defmacro within-sandbox (&rest body)
+  "Evaluate BODY in an empty sandbox directory."
+  `(let ((default-directory resize-window-sandbox-path))
+     (when (f-exists? resize-window-sandbox-path)
+       (f-delete default-directory :force))
+     (f-mkdir resize-window-sandbox-path)
+     ,@body
+     (f-delete default-directory :force)))
+
+(require 'ert)
+(require 'resize-window)
+
+(provide 'test-helper)
+;;; test-helper.el ends here