testing/lisp/test-org-src.el

   1 ;;; test-org-src.el --- tests for org-src.el
   2
   3 ;; Copyright (C) 2012-2015  Le Wang
   4
   5 ;; Author: Le Wang <l26wang at gmail dot com>
   6
   7 ;; This file is not part of GNU Emacs.
   8
   9 ;; This program is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; This program is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Code:
  23
  24 (require 'org-test)
  25
  26 \f
  27
  28 (ert-deftest test-org-src/basic ()
  29   "Editing regular block works, with point on source block."
  30   (org-test-with-temp-text
  31       "
  32 <point>#+begin_src emacs-lisp
  33   (message hello)
  34 #+end_src
  35 "
  36     (let ((org-edit-src-content-indentation 2)
  37           (org-src-preserve-indentation nil))
  38       (org-edit-special)
  39       (insert "blah")
  40       (org-edit-src-exit)
  41       (should (equal (buffer-string) "
  42 #+begin_src emacs-lisp
  43   blah(message hello)
  44 #+end_src
  45 "))
  46       (should (looking-at-p "(message hello)")))))
  47
  48 (ert-deftest test-org-src/point-outside-block ()
  49   "Editing with point before/after block signals expected error."
  50   (org-test-with-temp-text
  51       "
  52 #+begin_src emacs-lisp
  53   (message hello)
  54 #+end_src
  55 "
  56     (goto-line 1)
  57     (should-error (org-edit-special))
  58     (goto-char (point-max))
  59     (should-error (org-edit-special))))
  60
  61 (ert-deftest test-org-src/empty-block ()
  62   "Editing empty block."
  63   (org-test-with-temp-text
  64       "
  65 <point>#+begin_src emacs-lisp
  66 #+end_src
  67 "
  68     (let ((org-edit-src-content-indentation 0)
  69           (org-src-preserve-indentation nil))
  70       (org-edit-special)
  71       (insert "blah")
  72       (org-edit-src-exit)
  73       (should (equal (buffer-string) "
  74 #+begin_src emacs-lisp
  75 blah
  76 #+end_src
  77 "))
  78       (should
  79        (equal (buffer-substring (line-beginning-position) (point)) "blah")))))
  80
  81 (ert-deftest test-org-src/blank-line-block ()
  82   "Editing block with just a blank line."
  83   (org-test-with-temp-text-in-file
  84       "
  85 #+begin_src emacs-lisp
  86
  87 #+end_src
  88 "
  89     (let ((org-edit-src-content-indentation 2)
  90           (org-src-preserve-indentation nil))
  91       (goto-line 2)
  92       (org-edit-special)
  93       (insert "blah")
  94       (org-edit-src-exit)
  95       (should (equal (buffer-string) "
  96 #+begin_src emacs-lisp
  97   blah
  98 #+end_src
  99 ")))))
 100
 101 (ert-deftest test-org-src/preserve-tabs ()
 102   "Editing block preserve tab characters."
 103   ;; With `org-src-preserve-indentation' set to nil.
 104   (should
 105    (equal "
 106 #+begin_src emacs-lisp
 107   This is a tab:\t.
 108 #+end_src"
 109           (org-test-with-temp-text
 110               "
 111 #+begin_src emacs-lisp
 112 <point>This is a tab:\t.
 113 #+end_src"
 114             (let ((org-edit-src-content-indentation 2)
 115                   (org-src-preserve-indentation nil))
 116               (org-edit-special)
 117               (org-edit-src-exit)
 118               (buffer-string)))))
 119   ;; With `org-src-preserve-indentation' set to t.
 120   (should
 121    (equal "
 122 #+begin_src emacs-lisp
 123 This is a tab:\t.
 124 #+end_src"
 125           (org-test-with-temp-text
 126               "
 127 #+begin_src emacs-lisp
 128 <point>This is a tab:\t.
 129 #+end_src"
 130             (let ((org-edit-src-content-indentation 2)
 131                   (org-src-preserve-indentation t))
 132               (org-edit-special)
 133               (org-edit-src-exit)
 134               (buffer-string))))))
 135
 136 (ert-deftest test-org-src/coderef-format ()
 137   "Test `org-src-coderef-format' specifications."
 138   ;; Regular tests in a src block, an example block and an edit
 139   ;; buffer.
 140   (should
 141    (equal "foo"
 142           (let ((org-coderef-label-format "foo"))
 143             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 144               (org-src-coderef-format)))))
 145   (should
 146    (equal "foo"
 147           (let ((org-coderef-label-format "foo"))
 148             (org-test-with-temp-text "#+BEGIN_EXAMPLE\n0\n#+END_EXAMPLE"
 149               (org-src-coderef-format)))))
 150   (should
 151    (equal "foo"
 152           (let ((org-coderef-label-format "foo") result)
 153             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 154               (org-edit-special)
 155               (setq result (org-src-coderef-format))
 156               (org-edit-src-exit)
 157               result))))
 158   ;; When a local variable in the source buffer is available, use it.
 159   (should
 160    (equal "bar"
 161           (let ((org-coderef-label-format "foo"))
 162             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 163               (setq-local org-coderef-label-format "bar")
 164               (org-src-coderef-format)))))
 165   (should
 166    (equal "bar"
 167           (let ((org-coderef-label-format "foo") result)
 168             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 169               (setq-local org-coderef-label-format "bar")
 170               (org-edit-special)
 171               (setq result (org-src-coderef-format))
 172               (org-edit-src-exit)
 173               result))))
 174   ;; Use provided local format even if in an edit buffer.
 175   (should
 176    (equal "bar"
 177           (let ((org-coderef-label-format "foo"))
 178             (org-test-with-temp-text
 179                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 180               (org-src-coderef-format)))))
 181   (should
 182    (equal "bar"
 183           (let ((org-coderef-label-format "foo") result)
 184             (org-test-with-temp-text
 185                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 186               (org-edit-special)
 187               (setq result (org-src-coderef-format))
 188               (org-edit-src-exit)
 189               result))))
 190   ;; Local format has precedence over local variables.
 191   (should
 192    (equal "bar"
 193           (let ((org-coderef-label-format "foo"))
 194             (org-test-with-temp-text
 195                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 196               (setq-local org-coderef-label-format "foo")
 197               (org-src-coderef-format)))))
 198   (should
 199    (equal "bar"
 200           (let ((org-coderef-label-format "foo") result)
 201             (org-test-with-temp-text
 202                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 203               (setq-local org-coderef-label-format "foo")
 204               (org-edit-special)
 205               (setq result (org-src-coderef-format))
 206               (org-edit-src-exit)
 207               result))))
 208   ;; When optional argument provides a coderef format string, use it.
 209   (should
 210    (equal "bar"
 211           (let ((org-coderef-label-format "foo")
 212                 (element (org-element-create 'src-block '(:label-fmt "bar"))))
 213             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 214               (org-src-coderef-format element)))))
 215   (should
 216    (equal "baz"
 217           (let ((org-coderef-label-format "foo")
 218                 (element (org-element-create 'src-block '(:label-fmt "baz"))))
 219             (org-test-with-temp-text
 220                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 221               (setq-local org-coderef-label-format "foo")
 222               (org-src-coderef-format element)))))
 223   ;; If it doesn't provide any label format string, fall back to
 224   ;; regular checks.
 225   (should
 226    (equal "foo"
 227           (let ((org-coderef-label-format "foo")
 228                 (element (org-element-create 'src-block)))
 229             (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n0\n#+END_SRC"
 230               (org-src-coderef-format element)))))
 231   (should
 232    (equal "bar"
 233           (let ((org-coderef-label-format "foo")
 234                 (element (org-element-create 'src-block)))
 235             (org-test-with-temp-text
 236                 "#+BEGIN_SRC emacs-lisp -l \"bar\"\n0\n#+END_SRC"
 237               (setq-local org-coderef-label-format "foo")
 238               (org-src-coderef-format element))))))
 239
 240 (ert-deftest test-org-src/coderef-regexp ()
 241   "Test `org-src-coderef-regexp' specifications."
 242   ;; Regular test.
 243   (should
 244    (string-match-p (org-src-coderef-regexp "; ref:%s")
 245                    "#+BEGIN_SRC emacs-lisp\n0; ref:label\n#+END_SRC"))
 246   ;; Ignore white space around the coderef.
 247   (should
 248    (string-match-p (org-src-coderef-regexp "; ref:%s")
 249                    "#+BEGIN_SRC emacs-lisp\n0 ; ref:label\n#+END_SRC"))
 250   (should
 251    (string-match-p (org-src-coderef-regexp "; ref:%s")
 252                    "#+BEGIN_SRC emacs-lisp\n0 ; ref:label  \n#+END_SRC"))
 253   ;; Only match regexp at the end of the line.
 254   (should-not
 255    (string-match-p (org-src-coderef-regexp "; ref:%s")
 256                    "#+BEGIN_SRC emacs-lisp\n0; ref:label (+ 1 2)\n#+END_SRC"))
 257   ;; Do not match an empty label.
 258   (should-not
 259    (string-match-p (org-src-coderef-regexp "; ref:%s")
 260                    "#+BEGIN_SRC emacs-lisp\n0; ref:\n#+END_SRC"))
 261   ;; When optional argument LABEL is provided, match given label only.
 262   (should
 263    (string-match-p (org-src-coderef-regexp "; ref:%s" "label")
 264                    "#+BEGIN_SRC emacs-lisp\n0; ref:label\n#+END_SRC"))
 265   (should-not
 266    (string-match-p (org-src-coderef-regexp "; ref:%s" "label2")
 267                    "#+BEGIN_SRC emacs-lisp\n0; ref:label\n#+END_SRC")))
 268
 269 (provide 'test-org-src)
 270 ;;; test-org-src.el ends here