testing/lisp/test-org.el

   1 ;;; test-org.el
   2
   3 ;; Copyright (c) ߚ David Maus
   4 ;; Authors: David Maus
   5
   6 ;; Released under the GNU General Public License version 3
   7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
   8
   9 ;;;; Comments:
  10
  11 ;; Template test file for Org-mode tests
  12
  13 ;;; Code:
  14 (ert-deftest test-org/org-link-escape-ascii-character ()
  15   "Escape an ascii character."
  16   (should
  17    (string=
  18     "%5B"
  19     (org-link-escape "["))))
  20
  21 (ert-deftest test-org/org-link-escape-ascii-ctrl-character ()
  22   "Escape an ascii control character."
  23   (should
  24    (string=
  25     "%09"
  26     (org-link-escape "\t"))))
  27
  28 (ert-deftest test-org/org-link-escape-multibyte-character ()
  29   "Escape an unicode multibyte character."
  30   (should
  31    (string=
  32     "%E2%82%AC"
  33     (org-link-escape "€"))))
  34
  35 (ert-deftest test-org/org-link-escape-custom-table ()
  36   "Escape string with custom character table."
  37   (should
  38    (string=
  39     "Foo%3A%42ar%0A"
  40     (org-link-escape "Foo:Bar\n" '(?\: ?\B)))))
  41
  42 (ert-deftest test-org/org-link-escape-custom-table-merge ()
  43   "Escape string with custom table merged with default table."
  44   (should
  45    (string=
  46     "%5BF%6F%6F%3A%42ar%0A%5D"
  47     (org-link-escape "[Foo:Bar\n]" '(?\: ?\B ?\o) t))))
  48
  49 (ert-deftest test-org/org-link-unescape-ascii-character ()
  50   "Unescape an ascii character."
  51   (should
  52    (string=
  53     "["
  54     (org-link-unescape "%5B"))))
  55
  56 (ert-deftest test-org/org-link-unescape-ascii-ctrl-character ()
  57   "Unescpae an ascii control character."
  58   (should
  59    (string=
  60     "\n"
  61     (org-link-unescape "%0A"))))
  62
  63 (ert-deftest test-org/org-link-unescape-multibyte-character ()
  64   "Unescape unicode multibyte character."
  65   (should
  66    (string=
  67     "€"
  68     (org-link-unescape "%E2%82%AC"))))
  69
  70 (ert-deftest test-org/org-link-unescape-ascii-extended-char ()
  71   "Unescape old style percent escaped character."
  72   (should
  73    (string=
  74     "àâçèéêîôùû"
  75         (decode-coding-string (org-link-unescape "%E0%E2%E7%E8%E9%EA%EE%F4%F9%FB") 'latin-1))))
  76
  77 (ert-deftest test-org/org-link-escape-url-with-escaped-char ()
  78   "Escape and unscape a URL that includes an escaped char.
  79 http://article.gmane.org/gmane.emacs.orgmode/21459/"
  80   (should
  81    (string=
  82     "http://some.host.com/form?&id=blah%2Bblah25"
  83     (org-link-unescape (org-link-escape "http://some.host.com/form?&id=blah%2Bblah25")))))
  84
  85 (ert-deftest test-org/accumulated-properties-in-drawers ()
  86   "Ensure properties accumulate in subtree drawers."
  87   (org-test-at-id "75282ba2-f77a-4309-a970-e87c149fe125"
  88     (org-babel-next-src-block)
  89     (should (equal '(2 1) (org-babel-execute-src-block)))))
  90
  91
  92 \f
  93 ;;; Links
  94
  95 ;;;; Fuzzy links
  96
  97 ;; Fuzzy links [[text]] encompass links to a target (<<text>>), to
  98 ;; a target keyword (aka an invisible target: #+TARGET: text), to
  99 ;; a named element (#+name: text) and to headlines (* Text).
 100
 101 (ert-deftest test-org-export/fuzzy-links ()
 102   "Test fuzzy links specifications."
 103   ;; 1. Fuzzy link goes in priority to a matching target.
 104   (org-test-with-temp-text
 105       "#+TARGET: Test\n#+NAME: Test\n|a|b|\n<<Test>>\n* Test\n[[Test]]"
 106     (goto-line 6)
 107     (org-open-at-point)
 108     (should (looking-at "<<Test>>")))
 109   ;; 2. Fuzzy link should then go to a matching target keyword.
 110   (org-test-with-temp-text
 111       "#+NAME: Test\n|a|b|\n#+TARGET: Test\n* Test\n[[Test]]"
 112     (goto-line 5)
 113     (org-open-at-point)
 114     (should (looking-at "#\\+TARGET: Test")))
 115   ;; 3. Then fuzzy link points to an element with a given name.
 116   (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]"
 117     (goto-line 5)
 118     (org-open-at-point)
 119     (should (looking-at "#\\+NAME: Test")))
 120   ;; 4. A target still lead to a matching headline otherwise.
 121   (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]"
 122     (goto-line 4)
 123     (org-open-at-point)
 124     (should (looking-at "\\* Head2")))
 125   ;; 5. With a leading star in link, enforce heading match.
 126   (org-test-with-temp-text "#+TARGET: Test\n* Test\n<<Test>>\n[[*Test]]"
 127     (goto-line 4)
 128     (org-open-at-point)
 129     (should (looking-at "\\* Test"))))
 130
 131
 132 (provide 'test-org)
 133
 134 ;;; test-org.el ends here