[elpa] master 870e78c 12/40: Add ERT tests

[Daiki Ueno]

branch: master
commit 870e78c5cd1c65fbdb76c4d7cea6c9f2b471fd9b
Author: Daiki Ueno <address@hidden>
Commit: Daiki Ueno <address@hidden>

    Add ERT tests
---
 Makefile         |    4 +++
 gobject-tests.el |   60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+), 0 deletions(-)

diff --git a/Makefile b/Makefile
index 9dc59b1..097b25e 100644
--- a/Makefile
+++ b/Makefile
@@ -8,5 +8,9 @@ all: $(ELC)
        $(EMACS) -Q -batch --eval "(setq load-path (cons nil load-path))" \
                -f batch-byte-compile $<
 
+check:
+       $(EMACS) -Q -batch --eval "(setq load-path (cons nil load-path))" \
+               -l ert -l gobject-tests.el -f ert-run-tests-batch-and-exit
+
 clean:
        $(RM) -rf $(ELC)
diff --git a/gobject-tests.el b/gobject-tests.el
new file mode 100644
index 0000000..500b641
--- /dev/null
+++ b/gobject-tests.el
@@ -0,0 +1,60 @@
+(require 'gobject-align)
+
+(defconst gobject-test-program-1 "\
+GGpgCtx *g_gpg_ctx_new (GError **error);
+
+typedef void (*GGpgProgressCallback) (gpointer user_data,
+                                      const gchar *what,
+                                      gint type,
+                                      gint current,
+                                      gint total);
+
+void g_gpg_ctx_set_progress_callback (GGpgCtx *ctx,
+                                      GGpgProgressCallback callback,
+                                      gpointer user_data,
+                                      GDestroyNotify destroy_data);
+void g_gpg_ctx_add_signer (GGpgCtx *ctx, GGpgKey *key);
+guint g_gpg_ctx_get_n_signers (GGpgCtx *ctx);
+GGpgKey *g_gpg_ctx_get_signer (GGpgCtx *ctx, guint index);
+void g_gpg_ctx_clear_signers (GGpgCtx *ctx);
+")
+
+(defconst gobject-test-program-1-aligned "\
+GGpgCtx *g_gpg_ctx_new                   (GError             **error);
+
+typedef void (*GGpgProgressCallback) (gpointer user_data,
+                                      const gchar *what,
+                                      gint type,
+                                      gint current,
+                                      gint total);
+
+void     g_gpg_ctx_set_progress_callback (GGpgCtx             *ctx,
+                                          GGpgProgressCallback callback,
+                                          gpointer             user_data,
+                                          GDestroyNotify       destroy_data);
+void     g_gpg_ctx_add_signer            (GGpgCtx             *ctx,
+                                          GGpgKey             *key);
+guint    g_gpg_ctx_get_n_signers         (GGpgCtx             *ctx);
+GGpgKey *g_gpg_ctx_get_signer            (GGpgCtx             *ctx,
+                                          guint                index);
+void     g_gpg_ctx_clear_signers         (GGpgCtx             *ctx);
+")
+
+(ert-deftest gobject-test-align--guess-columns ()
+  "Tests the `gobject-align--guess-columns'."
+  (with-temp-buffer
+    (insert gobject-test-program-1)
+    (c-mode)
+    (let ((columns (gobject-align--guess-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)) 63)))))
+
+(ert-deftest gobject-test-align-region ()
+  "Tests the `gobject-align-region'."
+  (with-temp-buffer
+    (insert gobject-test-program-1)
+    (c-mode)
+    (gobject-align-guess-columns (point-min) (point-max))
+    (gobject-align-region (point-min) (point-max))
+    (should (equal (buffer-string) gobject-test-program-1-aligned))))