enhancements, functions, tests, and misc

enhancements
- move accent-company to C-` and ensure it's on for org mode
- re-enable narrow-to-region
- turn on network repos by default
- remove setq in company's use-package custom clause
- increase company delay to .7 secs
- recipe templates should have visibility show all
- move video recordings code to separate module
- move geiser-guile to prog-lisp

functions
- improve cj/reformat-region-or-buffer via restriction
- improvements to test-format-region
- adding tests for clear-blank-lines
- Add prepend-lines and replace-fraction-glyphs functions
- add cj/clear-blank-lines function
- create cj/load-all-tests utility function

tests
- add keybinding for ert-run-tests-interactively
- ensure ert libraries are available to load-all-tests
- remove running the tests when evaluating the buffer
- fix clear-blank-lines and adding better tests

misc
- updated packages
- adding the luddite blog to elfeed
- more abbrevs

1 files changed, 96 insertions, 33 deletions

diff --git a/tests/test-format-region.el b/tests/test-format-region.el
index b1d1532c..25d2e52e 100644
--- a/tests/test-format-region.el
+++ b/tests/test-format-region.el
@@ -1,47 +1,110 @@
-;;; test-format-region.el --- tests for cj/format-region-or-buffer -*- lexical-binding: t; -*-
+;;; test-format-region.el ---  -*- lexical-binding: t; -*-
 
 ;;; Commentary:
-;;  Some basic tests for the custom function cj/format-region-or-buffer in custom-functions.el
+;;  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)
 
-;; ----------------------------- Utility Functions -----------------------------
-
-(defun buffer-string-no-properties ()
-  "Return the contents of the current buffer without any text properties."
-  (buffer-substring-no-properties (point-min) (point-max)))
 
 ;; ----------------------------------- Tests -----------------------------------
 
-(ert-deftest cj/format-region-or-buffer-test/region ()
-  "Test cj/format-region-or-buffer on a selected region."
-  (with-temp-buffer
-    (insert "     line with leading spaces and a    \n     tab\there")
-    (goto-char (point-min))
-    (push-mark (point) t t)
-    (goto-char (point-max))
-    (cj/format-region-or-buffer)
-    ;; expected: trailing whitespace and leading spaces are removed, tabs are replaced by spaces
-    (should (string= (buffer-string-no-properties) "line with leading spaces and a\ntab here"))))
-
-(ert-deftest cj/format-region-or-buffer-test/whole-buffer ()
-  "Test cj/format-region-or-buffer on an entire buffer."
-  (with-temp-buffer
-    (insert "    \n\t\n     line with leading spaces and a    \n     tab\there")
-    ;; expected: trailing and leading whitespace of buffer and lines are removed, tabs are replaced by spaces
-    (cj/format-region-or-buffer)
-    (should (string= (buffer-string-no-properties) "\nline with leading spaces and a\ntab here"))))
-
-(ert-deftest cj/format-region-or-buffer-test/extreme-buffer-size ()
-  "Tests cj/format-region-or-buffer on an very large buffer."
-  (with-temp-buffer
-    (insert (make-string most-positive-fixnum ?\s))
-    (cj/format-region-or-buffer)
-    ;; expected: even large buffers should not cause an error
-    (should (string= (buffer-string-no-properties) ""))))
+(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.