forked from mirrors/org-mode
76 lines
2.4 KiB
EmacsLisp
76 lines
2.4 KiB
EmacsLisp
;;; test-org-tempo.el --- Tests for test-org-tempo.el -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2017 Rasmus Pank Roulund
|
|
|
|
;; Author: Rasmus Pank Roulund <emacs at pank dot eu>
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;; 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:
|
|
|
|
(require 'org-tempo)
|
|
|
|
(unless (featurep 'org-tempo)
|
|
(signal 'missing-test-dependency "org-tempo"))
|
|
|
|
(ert-deftest test-org-tempo/completion ()
|
|
"Test that blocks and keywords are expanded correctly by org-tempo."
|
|
;; Tempo completion should recognize snippet keywords and expand with tab
|
|
(should
|
|
(equal (org-test-with-temp-text "<L<point>"
|
|
(org-tempo-setup)
|
|
(tempo-complete-tag)
|
|
(buffer-string))
|
|
"#+latex: "))
|
|
;; Tempo completion should recognize snippet Blocks
|
|
(should
|
|
(equal (org-test-with-temp-text "<l<point>"
|
|
(org-tempo-setup)
|
|
(call-interactively 'org-cycle)
|
|
(buffer-string))
|
|
"#+begin_export latex \n\n#+end_export"))
|
|
;; Tab should work for expansion.
|
|
(should
|
|
(equal (org-test-with-temp-text "<L<point>"
|
|
(org-tempo-setup)
|
|
(tempo-complete-tag)
|
|
(buffer-string))
|
|
(org-test-with-temp-text "<L<point>"
|
|
(org-tempo-setup)
|
|
(org-cycle)
|
|
(buffer-string))))
|
|
;; Tempo should not expand unknown snippets
|
|
(equal (org-test-with-temp-text "<k"
|
|
(org-tempo-setup)
|
|
(call-interactively 'org-cycle)
|
|
(buffer-string))
|
|
"<k"))
|
|
|
|
(ert-deftest test-org-tempo/add-new-templates ()
|
|
"Test that new structures and keywords are added correctly."
|
|
;; Check that deleted keys are not kept
|
|
(should
|
|
(let ((org-structure-template-alist '((?n . "new_block"))))
|
|
(org-tempo-add-templates)
|
|
(assoc "<n" org-tempo-tags)))
|
|
(should
|
|
(let ((org-tempo-keywords-alist '((?N . "new_keyword"))))
|
|
(org-tempo-add-templates)
|
|
(assoc "<N" org-tempo-tags))))
|
|
|
|
(provide 'test-org-tempo)
|
|
;;; test-org-tempo.el end here
|