Add links to GNOME programming guideline

[gnu-emacs-elpa] / gnome-c-tests.el

diff --git a/gnome-c-tests.el b/gnome-c-tests.el
index c49b0b51b8b27ed54a7cdc5045de599cd9821233..a573cd3f1663200c3a5358e6a4bb6be5ee6a56a5 100644 (file)
--- a/gnome-c-tests.el
+++ b/gnome-c-tests.el
@@ -1,3 +1,26 @@
+;;; gnome-c-tests.el --- tests for gnome-c-style -*- lexical-binding: t; -*-
+;; Copyright (C) 2016 Free Software Foundation, Inc.
+
+;; Author: Daiki Ueno <ueno@gnu.org>
+;; Keywords: GNOME, C, coding style
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
 (require 'gnome-c-align)
 
 (defconst gnome-c-test-program-1 "\
@@ -78,48 +101,96 @@ int *bar (const char * const **a,
           int                  b);
 ")
 
-(ert-deftest gnome-c-test-align--compute-optimal-columns ()
-  "Tests the `gnome-c-align--compute-optimal-columns'."
+(defconst gnome-c-test-program-6 "\
+int foo (char **a, int b);
+type_1234567890 bar (char a, int b);
+int identifier_1234567890 (double a, double b);
+")
+
+(defconst gnome-c-test-program-6-aligned-1 "\
+int             foo
+                (char **a,
+                 int    b);
+type_1234567890 bar
+                (char   a,
+                 int    b);
+int             identifier_1234567890
+                (double a,
+                 double b);
+")
+
+(defconst gnome-c-test-program-6-aligned-2 "\
+int             foo (char **a,
+                     int    b);
+type_1234567890 bar (char   a,
+                     int    b);
+int             identifier_1234567890
+                    (double a,
+                     double b);
+")
+
+(ert-deftest gnome-c-test-align--guess-optimal-columns ()
+  "Tests the `gnome-c-align--guess-optimal-columns'."
   (with-temp-buffer
     (insert gnome-c-test-program-1)
     (c-mode)
     (let* (gnome-c-align-max-column
           (columns
-           (gnome-c-align--compute-optimal-columns (point-min) (point-max))))
+           (gnome-c-align--guess-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)))))
 
 (ert-deftest gnome-c-test-align-region ()
-  "Tests the `gnome-c-align-region'."
+  "Tests the `gnome-c-align-decls-region'."
   (with-temp-buffer
     (insert gnome-c-test-program-1)
     (c-mode)
     (let (gnome-c-align-max-column)
-      (gnome-c-align-compute-optimal-columns (point-min) (point-max))
-      (gnome-c-align-region (point-min) (point-max)))
+      (gnome-c-align-guess-optimal-columns (point-min) (point-max))
+      (gnome-c-align-decls-region (point-min) (point-max)))
     (should (equal (buffer-string) gnome-c-test-program-1-aligned))))
 
 (ert-deftest gnome-c-test-align-region-2 ()
-  "Tests the `gnome-c-align-region'."
+  "Tests the `gnome-c-align-decls-region'."
   (with-temp-buffer
     (insert gnome-c-test-program-4)
     (c-mode)
     (let (gnome-c-align-max-column)
-      (gnome-c-align-compute-optimal-columns (point-min) (point-max))
-      (gnome-c-align-region (point-min) (point-max)))
+      (gnome-c-align-guess-optimal-columns (point-min) (point-max))
+      (gnome-c-align-decls-region (point-min) (point-max)))
     (should (equal (buffer-string) gnome-c-test-program-4-aligned))))
 
 (ert-deftest gnome-c-test-align-region-3 ()
-  "Tests the `gnome-c-align-region'."
+  "Tests the `gnome-c-align-decls-region'."
   (with-temp-buffer
     (insert gnome-c-test-program-5)
     (c-mode)
     (let (gnome-c-align-max-column)
-      (gnome-c-align-compute-optimal-columns (point-min) (point-max))
-      (gnome-c-align-region (point-min) (point-max)))
+      (gnome-c-align-guess-optimal-columns (point-min) (point-max))
+      (gnome-c-align-decls-region (point-min) (point-max)))
     (should (equal (buffer-string) gnome-c-test-program-5-aligned))))
 
+(ert-deftest gnome-c-test-align-region-4 ()
+  "Tests the `gnome-c-align-decls-region', with max columns set."
+  (with-temp-buffer
+    (insert gnome-c-test-program-6)
+    (c-mode)
+    (let ((gnome-c-align-max-column 20))
+      (gnome-c-align-guess-optimal-columns (point-min) (point-max))
+      (gnome-c-align-decls-region (point-min) (point-max)))
+    (should (equal (buffer-string) gnome-c-test-program-6-aligned-1))))
+
+(ert-deftest gnome-c-test-align-region-5 ()
+  "Tests the `gnome-c-align-decls-region', with max columns set."
+  (with-temp-buffer
+    (insert gnome-c-test-program-6)
+    (c-mode)
+    (let ((gnome-c-align-max-column 30))
+      (gnome-c-align-guess-optimal-columns (point-min) (point-max))
+      (gnome-c-align-decls-region (point-min) (point-max)))
+    (should (equal (buffer-string) gnome-c-test-program-6-aligned-2))))
+
 (ert-deftest gnome-c-test-align-guess-columns-1 ()
   "Tests the `gnome-c-align-guess-columns'."
   (with-temp-buffer