From ccb60625e0c4b8c2cd027bc12d0de12e6c0f5145 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 19 Jan 2016 07:08:28 +0900 Subject: [PATCH] tests: Bind `gnome-align-max-column' --- gnome-tests.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/gnome-tests.el b/gnome-tests.el index 403e0b178..824540780 100644 --- a/gnome-tests.el +++ b/gnome-tests.el @@ -74,7 +74,9 @@ int foo (struct foo ***a, (with-temp-buffer (insert gnome-test-program-1) (c-mode) - (let ((columns (gnome-align--compute-optimal-columns (point-min) (point-max)))) + (let* (gnome-align-max-column + (columns + (gnome-align--compute-optimal-columns (point-min) (point-max)))) (should (= (cdr (assq 'identifier-start-column columns)) 9)) (should (= (cdr (assq 'arglist-start-column columns)) 41)) (should (= (cdr (assq 'arglist-identifier-start-column columns)) 64))))) @@ -84,8 +86,9 @@ int foo (struct foo ***a, (with-temp-buffer (insert gnome-test-program-1) (c-mode) - (gnome-align-compute-optimal-columns (point-min) (point-max)) - (gnome-align-region (point-min) (point-max)) + (let (gnome-align-max-column) + (gnome-align-compute-optimal-columns (point-min) (point-max)) + (gnome-align-region (point-min) (point-max))) (should (equal (buffer-string) gnome-test-program-1-aligned)))) (ert-deftest gnome-test-align-region-2 () @@ -93,8 +96,9 @@ int foo (struct foo ***a, (with-temp-buffer (insert gnome-test-program-4) (c-mode) - (gnome-align-compute-optimal-columns (point-min) (point-max)) - (gnome-align-region (point-min) (point-max)) + (let (gnome-align-max-column) + (gnome-align-compute-optimal-columns (point-min) (point-max)) + (gnome-align-region (point-min) (point-max))) (should (equal (buffer-string) gnome-test-program-4-aligned)))) (ert-deftest gnome-test-align-guess-columns-1 () @@ -102,7 +106,8 @@ int foo (struct foo ***a, (with-temp-buffer (insert gnome-test-program-2) (c-mode) - (gnome-align-guess-columns (point-min) (point-max)) + (let (gnome-align-max-column) + (gnome-align-guess-columns (point-min) (point-max))) (should (= gnome-align-identifier-start-column 24)) (should (= gnome-align-arglist-start-column 56)) (should (= gnome-align-arglist-identifier-start-column 80)))) @@ -112,7 +117,8 @@ int foo (struct foo ***a, (with-temp-buffer (insert gnome-test-program-3) (c-mode) - (gnome-align-guess-columns (point-min) (point-max)) + (let (gnome-align-max-column) + (gnome-align-guess-columns (point-min) (point-max))) (should (= gnome-align-identifier-start-column 13)) (should (= gnome-align-arglist-start-column 40)) (should (= gnome-align-arglist-identifier-start-column 57)))) -- 2.39.2