1 ;;; test-org-inlinetask.el --- Tests for org-inlinetask.el
3 ;; Copyright (c) Marco Wahl
6 ;; This program is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation, either version 3 of the License, or
9 ;; (at your option) any later version.
11 ;; This program is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;; GNU General Public License for more details.
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
21 ;; Tests for org-inlinetask.el.
25 (require 'org-inlinetask
)
30 (ert-deftest test-org-inlinetask
/org-inlinetask-goto-end
()
34 (let ((org-inlinetask-min-level 5)
35 (org-adapt-indentation t
))
36 (org-test-with-temp-text
41 (org-inlinetask-goto-end)
49 ;; Goto end. End is buffer end.
52 (let ((org-inlinetask-min-level 5)
53 (org-adapt-indentation t
))
54 (org-test-with-temp-text
58 (org-inlinetask-goto-end)
65 ;; Goto end. Starting somewhere.
68 (let ((org-inlinetask-min-level 5)
69 (org-adapt-indentation t
))
70 (org-test-with-temp-text
76 (org-inlinetask-goto-end)
87 (let ((org-inlinetask-min-level 5)
88 (org-adapt-indentation t
))
89 (org-test-with-temp-text
96 (org-inlinetask-goto-end)
106 (ert-deftest test-org-inlinetask
/inlinetask-within-plain-list
()
107 "Fold inlinetasks in plain-lists.
109 http://lists.gnu.org/archive/html/emacs-orgmode/2017-12/msg00502.html"
111 (org-test-with-temp-text
115 *************** List folding stopped here
119 (org-cycle-internal-local)
120 (invisible-p (1- (search-forward "- b"))))))
122 (ert-deftest test-org-inlinetask
/folding-directly-consecutive-tasks
()
123 "Fold directly consecutive inlinetasks."
125 (org-test-with-temp-text
129 *************** List folding stopped here
131 *************** List folding stopped here
135 (org-cycle-internal-local)
136 (invisible-p (1- (search-forward "- b"))))))
139 (provide 'test-org-inlinetask
)
141 ;;; test-org-inlinetask.el ends here