changing repositories

1 files changed, 47 insertions, 0 deletions

diff --git a/tests/test-clear-blank-lines.el.disabled b/tests/test-clear-blank-lines.el.disabled
new file mode 100644
index 00000000..2190aba0
--- /dev/null
+++ b/tests/test-clear-blank-lines.el.disabled
@@ -0,0 +1,47 @@
+;;; 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.