org-colview: Add tests

* testing/lisp/test-org-colview.el: New file.

1 files changed, 355 insertions, 0 deletions

diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el
new file mode 100644
index 0000000..b8c62ef
--- /dev/null
+++ b/testing/lisp/test-org-colview.el
@@ -0,0 +1,355 @@
+;;; test-org-colview.el --- Tests for org-colview.el -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2016  Nicolas Goaziou
+
+;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
+
+;; This program 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.
+
+;; This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+;;; Column view
+
+(ert-deftest test-org-colview/columns-scope ()
+  "Test `org-columns' scope."
+  ;; Before the first headline, view all document.
+  (should
+   (equal
+    '("H1" "H2" "H3")
+    (org-test-with-temp-text "Top\n* H1\n** H2\n* H3"
+      (let ((org-columns-default-format "%ITEM")) (org-columns))
+      (org-map-entries
+       (lambda () (get-char-property (point) 'org-columns-value))))))
+  ;; When :COLUMNS: is set up in the hierarchy, view tree starting
+  ;; there.
+  (should
+   (equal
+    '(nil "H2" "H3" nil)
+    (org-test-with-temp-text
+	"* H1\n** H2\n:PROPERTIES:\n:COLUMNS: %ITEM\n:END:\n*** <point>H3\n* H4"
+      (let ((org-columns-default-format "%ITEM")) (org-columns))
+      (org-map-entries
+       (lambda () (get-char-property (point) 'org-columns-value))))))
+  ;; Otherwise, view tree starting at the current headline.
+  (should
+   (equal
+    '(nil "H2" "H3" nil)
+    (org-test-with-temp-text "Top\n* H1\n** <point>H2\n*** H3\n* H4"
+      (let ((org-columns-default-format "%ITEM")) (org-columns))
+      (org-map-entries
+       (lambda () (get-char-property (point) 'org-columns-value))))))
+  ;; With a non-nil prefix argument, always view all document.
+  (should
+   (equal
+    '("H1" "H2" "H3" "H4")
+    (org-test-with-temp-text
+	"* H1\n** H2\n:PROPERTIES:\n:COLUMNS: %ITEM\n:END:\n*** <point>H3\n* H4"
+      (let ((org-columns-default-format "%ITEM")) (org-columns t))
+      (org-map-entries
+       (lambda () (get-char-property (point) 'org-columns-value))))))
+  (should
+   (equal
+    '("H1" "H2" "H3" "H4")
+    (org-test-with-temp-text "Top\n* H1\n** <point>H2\n*** H3\n* H4"
+      (let ((org-columns-default-format "%ITEM")) (org-columns t))
+      (org-map-entries
+       (lambda () (get-char-property (point) 'org-columns-value)))))))
+
+(ert-deftest test-org-colview/columns-width ()
+  "Test `org-columns' column widths."
+  ;; When a width is specified in the format, use it.
+  (should
+   (= 9
+      (org-test-with-temp-text "* H"
+	(let ((org-columns-default-format "%9ITEM")) (org-columns))
+	(cdar org-columns-current-maxwidths))))
+  ;; Otherwise, use the width of the largest value in the column.
+  (should
+   (= 2
+      (org-test-with-temp-text
+	  "* H\n:PROPERTIES:\n:P: X\n:END:\n** H2\n:PROPERTIES:\n:P: XX\n:END:"
+	(let ((org-columns-default-format "%P")) (org-columns))
+	(cdar org-columns-current-maxwidths))))
+  ;; If the title is wider than the widest value, use title width
+  ;; instead.
+  (should
+   (= 4
+      (org-test-with-temp-text "* H"
+	(let ((org-columns-default-format "%ITEM")) (org-columns))
+	(cdar org-columns-current-maxwidths))))
+  ;; Special case: stars do count for ITEM.
+  (should
+   (= 6
+      (org-test-with-temp-text "* Head"
+	(let ((org-columns-default-format "%ITEM")) (org-columns))
+	(cdar org-columns-current-maxwidths))))
+  ;; Special case: width takes into account link narrowing in ITEM.
+  (should
+   (equal
+    '("* [123]" . 7)
+    (org-test-with-temp-text "* [[http://orgmode.org][123]]"
+      (let ((org-columns-default-format "%ITEM")) (org-columns))
+      (cons (get-char-property (point) 'org-columns-value-modified)
+	    (cdar org-columns-current-maxwidths)))))
+  ;; When a value is too wide for the current column, add ellipses.
+  ;; Take into consideration length of `org-columns-ellipses'.
+  (should
+   (equal "123.. |"
+	  (org-test-with-temp-text "* H\n:PROPERTIES:\n:P: 123456\n:END:"
+	    (let ((org-columns-default-format "%5P")
+		  (org-columns-ellipses ".."))
+	      (org-columns))
+	    (org-trim (get-char-property (point) 'display)))))
+  (should
+   (equal "1234… |"
+	  (org-test-with-temp-text "* H\n:PROPERTIES:\n:P: 123456\n:END:"
+	    (let ((org-columns-default-format "%5P")
+		  (org-columns-ellipses "…"))
+	      (org-columns))
+	    (org-trim (get-char-property (point) 'display))))))
+
+
+
+;;; Dynamic block
+
+(ert-deftest test-org-colview/dblock ()
+  "Test the column view table."
+  (should
+   (equal
+    "#+BEGIN: columnview
+| ITEM |
+|------|
+| H    |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  (should
+   (equal
+    "#+BEGIN: columnview
+| ITEM | A |
+|------+---|
+| H    | 1 |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n:PROPERTIES:\n:A: 1\n:END:\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%ITEM %A")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; Properties are case insensitive.
+  (should
+   (equal
+    "#+BEGIN: columnview
+| a |
+|---|
+| 1 |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n:PROPERTIES:\n:A: 1\n:END:\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%a")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; Test titles given to columns.
+  (should
+   (equal
+    "#+BEGIN: columnview
+| Name | Prop |
+|------+------|
+| H    |    1 |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n:PROPERTIES:\n:A: 1\n:END:\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%ITEM(Name) %A(Prop)"))
+        (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; Test `:id' parameter
+  (should
+   (equal
+    "#+BEGIN: columnview :id local
+| ITEM |
+|------|
+| H1   |
+| H1.1 |
+#+END:
+"
+    (org-test-with-temp-text
+        "* H1\n<point>#+BEGIN: columnview :id local\n#+END:\n** H1.1\n* H2"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  (should
+   (equal
+    "#+BEGIN: columnview :id global
+| ITEM |
+|------|
+| H1   |
+| H1.1 |
+| H2   |
+#+END:
+"
+    (org-test-with-temp-text
+        "\n* H1\n<point>#+BEGIN: columnview :id global\n#+END:\n** H1.1\n* H2"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  ;; Test `:hlines' parameter.
+  (should
+   (equal
+    "#+BEGIN: columnview :hlines t :id global
+| ITEM |
+|------|
+| H    |
+|------|
+| H2   |
+|------|
+| H2.1 |
+#+END:\n"
+    (org-test-with-temp-text
+        "
+* H
+<point>#+BEGIN: columnview :hlines t :id global
+#+END:
+* H2
+** H2.1"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  (should
+   (equal
+    "#+BEGIN: columnview :hlines 1 :id global
+| ITEM |
+|------|
+| H    |
+|------|
+| H2   |
+| H2.1 |
+#+END:\n"
+    (org-test-with-temp-text
+        "
+* H
+<point>#+BEGIN: columnview :hlines 1 :id global
+#+END:
+* H2
+** H2.1"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  ;; Test `:indent' parameter.
+  (should
+   (equal
+    "#+BEGIN: columnview :indent t
+| ITEM     |
+|----------|
+| H1       |
+| \\_  H1.1 |
+#+END:
+"
+    (org-test-with-temp-text
+        "* H1\n<point>#+BEGIN: columnview :indent t\n#+END:\n** H1.1"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  (should
+   (equal
+    "#+BEGIN: columnview :indent t
+| Prop | Name     |
+|------+----------|
+|      | H1       |
+|      | \\_  H1.1 |
+#+END:
+"
+    (org-test-with-temp-text
+        "* H1\n<point>#+BEGIN: columnview :indent t\n#+END:\n** H1.1"
+      (let ((org-columns-default-format "%A(Prop) %ITEM(Name)"))
+        (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  ;; Test `:vlines' parameter.
+  (should
+   (equal
+    "#+BEGIN: columnview :vlines t
+|   | ITEM | A  |
+|---+------+----|
+|   | H    | 1  |
+| / | <>   | <> |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n:PROPERTIES:\n:A: 1\n:END:\n<point>#+BEGIN: columnview :vlines t\n#+END:"
+      (let ((org-columns-default-format "%ITEM %A")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; Test `:skip-empty-rows' parameter.
+  (should
+   (equal
+    "#+BEGIN: columnview :skip-empty-rows t
+| ITEM | A |
+|------+---|
+| H1.1 | 1 |
+#+END:
+"
+    (org-test-with-temp-text
+        "
+* H1
+<point>#+BEGIN: columnview :skip-empty-rows t
+#+END:
+** H1.1
+:PROPERTIES:
+:A: 1
+:END:"
+      (let ((org-columns-default-format "%ITEM %A")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (outline-next-heading)))))
+  ;; Test `:format' parameter.
+  (should
+   (equal
+    "#+BEGIN: columnview :format \"%ITEM(Name)\"
+| Name |
+|------|
+| H    |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n<point>#+BEGIN: columnview :format \"%ITEM(Name)\"\n#+END:"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; Test `:width' parameter
+  (should
+   (equal
+    "#+BEGIN: columnview :width t
+| ITEM       | A |
+|------------+---|
+| H          |   |
+| <10>       |   |
+#+END:"
+    (org-test-with-temp-text
+        "* H\n<point>#+BEGIN: columnview :width t\n#+END:"
+      (let ((org-columns-default-format "%10ITEM %A")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  ;; When inserting ITEM values, make sure to clean sensitive
+  ;; contents, like unique targets or forbidden inline src-blocks.
+  (should
+   (equal
+    "#+BEGIN: columnview
+| ITEM |
+|------|
+| H 1  |
+#+END:"
+    (org-test-with-temp-text
+        "* H <<target>> 1\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max)))))
+  (should
+   (equal
+    "#+BEGIN: columnview
+| ITEM |
+|------|
+| H 1  |
+#+END:"
+    (org-test-with-temp-text
+        "* H src_emacs-lisp{(+ 1 1)} 1\n<point>#+BEGIN: columnview\n#+END:"
+      (let ((org-columns-default-format "%ITEM")) (org-update-dblock))
+      (buffer-substring-no-properties (point) (point-max))))))
+
+(provide 'test-org-colview)
+;;; test-org-colview.el ends here