1 files changed, 0 insertions, 110 deletions
diff --git a/tests/test-format-region.el.disabled b/tests/test-format-region.el.disabled
deleted file mode 100644
index 25d2e52e..00000000
--- a/tests/test-format-region.el.disabled
+++ /dev/null
@@ -1,110 +0,0 @@
-;;; test-format-region.el ---  -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;;  Some basic tests for the custom function cj/format-region-or-buffer in
-;;  custom-functions.el
-
-;;; Code:
-
-(add-to-list 'load-path (concat user-emacs-directory "modules"))
-(require 'custom-functions)
-
-
-;; ----------------------------------- Tests -----------------------------------
-
-(defvar test-format-rob-text-data
-  '(("    spaces in front\nspaces behind   " .
-	 "spaces in front\nspaces behind")
-	("\t    tabs and spaces in front\ntabs and spaces behind\t   " .
-	 "tabs and spaces in front\ntabs and spaces behind")))
-
-(defvar test-format-rob-elisp-data
-  '(("(defun existential ()\n(if (eq (+ 3 4) 7)\n(order)\n(chaos)))" .
-	  "(defun existential ()\n  (if (eq (+ 3 4) 7)\n   (order)\n (chaos)))")))
-
-
-(ert-deftest test-format-rob-positive-text-region ()
-  "Test cj/format-region-or-buffer on a selected region.
-This tests "
-  (dolist (data-pair test-format-rob-text-data)
-	(let* ((testdata (car data-pair))
-		   (expected (cdr data-pair))
-		   (actual))
-	  (with-temp-buffer
-		(insert testdata)
-		(goto-char (point-min))
-		(set-mark (point))
-		(goto-char (point-max))
-		(cj/format-region-or-buffer)
-		(setq actual (buffer-string))
-		(should (string= actual expected))))))
-
-(ert-deftest test-format-rob-positive-text-buffer ()
-  "Test cj/format-region-or-buffer on the entire buffer.
-This is the same as testing the region without setting a region in the temp
-buffer."
-  (dolist (data-pair test-format-rob-text-data)
-	(let* ((testdata (car data-pair))
-		   (expected (cdr data-pair))
-		   (actual))
-	  (with-temp-buffer
-		(insert testdata)
-		(cj/format-region-or-buffer)
-		(setq actual (buffer-string))
-		(should (string= actual expected))))))
-
-(ert-deftest test-format-rob-positive-region-text-multiple-paragraphs ()
-  "Test cj/format-region-or-buffer on the entire buffer."
-  (dolist (data-pair test-format-rob-text-data)
-	(let ((testdata (car data-pair))
-		  (expected1 (cdr data-pair))
-		  (expected2 (car data-pair))
-		  (actual1)
-		  (actual2))
-	  (with-temp-buffer
-		;; insert data twice with newline char in between
-		(insert testdata)
-		(insert"\n")
-		(insert testdata)
-
-		;; select the first set of data
-		(goto-char (point-min))
-		(set-mark (point))
-		(forward-line 2)
-
-		;; run format and return to top
-		(cj/format-region-or-buffer)
-		(message "buffer is:\n'%s'" (buffer-string))
-
-		;; assert the first set is formatted
-		(goto-char (point-min))
-		(setq actual1 (buffer-substring (point-min) (line-end-position 2)))
-		(should (string= actual1 expected1))
-
-		;; assert the second set is unformatted
-		(goto-char (point-min))
-		(setq actual2 (buffer-substring (line-beginning-position 3) (point-max)))
-		(should (string= actual2 expected2))))))
-
-(ert-deftest test-format-rob-positive-elisp-region ()
-  "Test cj/format-region-or-buffer on a selected region.
-This tests that emacs-lisp specific formatting is applied."
-  (ws-butler-mode nil)
-  (dolist (data-pair test-format-rob-elisp-data)
-	(let* ((testdata (car data-pair))
-		   (expected (cdr data-pair))
-		   (actual))
-	  (with-temp-buffer
-		(emacs-lisp-mode)
-		(insert testdata)
-		(goto-char (point-min))
-		(set-mark (point))
-		(goto-char (point-max))
-		(message "buffer before:\n'%s'" (buffer-string))
-		(cj/format-region-or-buffer)
-		(message "buffer after:\n'%s'" (buffer-string))
-		(setq actual (buffer-string))
-		(should (string= actual expected))))))
-
-(provide 'test-format-region)
-;;; test-format-region.el ends here.