chore: remove old redundant tests.

1 files changed, 0 insertions, 47 deletions

diff --git a/tests/test-clear-blank-lines.el.disabled b/tests/test-clear-blank-lines.el.disabled
deleted file mode 100644
index 2190aba00..000000000
--- a/tests/test-clear-blank-lines.el.disabled
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; test-clear-blank-lines.el ---  -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;;
-
-;;; Code:
-
-(require 'ert)
-(add-to-list 'load-path (concat user-emacs-directory "modules"))
-(require 'custom-functions)
-
-(ert-deftest test-cj/clear-blank-lines-region ()
-  (let ((testdata "Some\n\n\n\nText")
-		(expected  "Some\nText")
-		(actual))
-	(with-temp-buffer
-	  (insert testdata)
-	  (cj/clear-blank-lines (point-min) (point-max))
-	  (setq actual (buffer-string))
-	  (message "buffer is:\n'%s'" actual)
-	  (should (string= actual expected)))))
-
-(ert-deftest test-cj/clear-blank-lines-region-multiple-lines ()
-  (let ((testdata "Some\n\n\n\nText")
-		(expected "Some\n\n\n\nText")
-		(midpoint)
-		(actual))
-	(with-temp-buffer
-	  (insert testdata)
-	  (insert "\n")
-	  (setq midpoint (point))
-	  (insert testdata)
-      (cj/clear-blank-lines (point-min) midpoint)
-      (setq actual (buffer-substring (- (point-max)
-                                        (length testdata)) (point-max)))
-      (message "buffer is:\n'%s'" (buffer-string))
-	  (should (string= actual expected)))))
-
-(ert-deftest test-cj/clear-blank-lines-negative ()
-  (with-temp-buffer
-	(insert "Some\nText")
-	(cj/clear-blank-lines (point-min) (point-max))
-	(should (equal (buffer-string) "Some\nText"))))
-
-
-(provide 'test-clear-blank-lines)
-;;; test-clear-blank-lines.el ends here.