From 4566ec69d269ecba8d9386a131b932ee5244aa8e Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 5 May 2024 09:23:58 -0500 Subject: 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 --- tests/test-format-region.el | 129 ++++++++++++++++++++++++++++++++------------ 1 file changed, 96 insertions(+), 33 deletions(-) (limited to 'tests/test-format-region.el') 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. -- cgit v1.2.3