123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771 |
- (ert-deftest test-org/org-link-escape-ascii-character ()
- "Escape an ascii character."
- (should
- (string=
- "%5B"
- (org-link-escape "["))))
- (ert-deftest test-org/org-link-escape-ascii-ctrl-character ()
- "Escape an ascii control character."
- (should
- (string=
- "%09"
- (org-link-escape "\t"))))
- (ert-deftest test-org/org-link-escape-multibyte-character ()
- "Escape an unicode multibyte character."
- (should
- (string=
- "%E2%82%AC"
- (org-link-escape "€"))))
- (ert-deftest test-org/org-link-escape-custom-table ()
- "Escape string with custom character table."
- (should
- (string=
- "Foo%3A%42ar%0A"
- (org-link-escape "Foo:Bar\n" '(?\: ?\B)))))
- (ert-deftest test-org/org-link-escape-custom-table-merge ()
- "Escape string with custom table merged with default table."
- (should
- (string=
- "%5BF%6F%6F%3A%42ar%0A%5D"
- (org-link-escape "[Foo:Bar\n]" '(?\: ?\B ?\o) t))))
- (ert-deftest test-org/org-link-unescape-ascii-character ()
- "Unescape an ascii character."
- (should
- (string=
- "["
- (org-link-unescape "%5B"))))
- (ert-deftest test-org/org-link-unescape-ascii-ctrl-character ()
- "Unescpae an ascii control character."
- (should
- (string=
- "\n"
- (org-link-unescape "%0A"))))
- (ert-deftest test-org/org-link-unescape-multibyte-character ()
- "Unescape unicode multibyte character."
- (should
- (string=
- "€"
- (org-link-unescape "%E2%82%AC"))))
- (ert-deftest test-org/org-link-unescape-ascii-extended-char ()
- "Unescape old style percent escaped character."
- (should
- (string=
- "àâçèéêîôùû"
- (decode-coding-string (org-link-unescape "%E0%E2%E7%E8%E9%EA%EE%F4%F9%FB") 'latin-1))))
- (ert-deftest test-org/org-link-escape-url-with-escaped-char ()
- "Escape and unscape a URL that includes an escaped char.
- http://article.gmane.org/gmane.emacs.orgmode/21459/"
- (should
- (string=
- "http://some.host.com/form?&id=blah%2Bblah25"
- (org-link-unescape (org-link-escape "http://some.host.com/form?&id=blah%2Bblah25")))))
- (ert-deftest test-org/accumulated-properties-in-drawers ()
- "Ensure properties accumulate in subtree drawers."
- (org-test-at-id "75282ba2-f77a-4309-a970-e87c149fe125"
- (org-babel-next-src-block)
- (should (equal '(2 1) (org-babel-execute-src-block)))))
- (ert-deftest test-org/org-read-date ()
- "Test `org-read-date' specifications."
-
- (should (equal "2012-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "12-3-29 16:40"))))
-
- (should (equal "2012-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "29.03.2012 16:40"))))
-
- (should (string-match "2[0-9]\\{3\\}-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "29.03. 16:40")))))
- (ert-deftest test-org/fuzzy-links ()
- "Test fuzzy links specifications."
-
- (org-test-with-temp-text
- "#+TARGET: Test\n#+NAME: Test\n|a|b|\n<<Test>>\n* Test\n[[Test]]"
- (goto-line 6)
- (org-open-at-point)
- (should (looking-at "<<Test>>")))
-
- (org-test-with-temp-text
- "#+NAME: Test\n|a|b|\n#+TARGET: Test\n* Test\n[[Test]]"
- (goto-line 5)
- (org-open-at-point)
- (should (looking-at "#\\+TARGET: Test")))
-
- (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]"
- (goto-line 5)
- (org-open-at-point)
- (should (looking-at "#\\+NAME: Test")))
-
- (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]"
- (goto-line 4)
- (org-open-at-point)
- (should (looking-at "\\* Head2")))
-
- (org-test-with-temp-text "#+TARGET: Test\n* Test\n<<Test>>\n[[*Test]]"
- (goto-line 4)
- (org-open-at-point)
- (should (looking-at "\\* Test"))))
- (ert-deftest test-org/fill-paragraph ()
- "Test `org-fill-paragraph' specifications."
-
- (org-test-with-temp-text "|a|"
- (org-fill-paragraph)
- (should (equal (buffer-string) "| a |\n")))
-
- (org-test-with-temp-text "some \\\\\nlong\ntext"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string) "some \\\\\nlong text"))))
-
- (should
- (equal "A B"
- (org-test-with-temp-text "A\nB"
- (let ((fill-column 20))
- (goto-char (point-max))
- (org-fill-paragraph)
- (buffer-string)))))
-
- (should
- (equal "#+BEGIN_CENTER\n- 012345\n 789\n#+END_CENTER"
- (org-test-with-temp-text "#+BEGIN_CENTER\n- 012345 789\n#+END_CENTER"
- (let ((fill-column 8))
- (forward-line)
- (end-of-line)
- (org-fill-paragraph)
- (buffer-string)))))
-
- (should
- (equal "01234\n6"
- (org-test-with-temp-text "01234 6789"
- (let ((fill-column 5))
- (narrow-to-region 1 8)
- (org-fill-paragraph)
- (buffer-string)))))
-
-
- (should
- (equal "- A B"
- (org-test-with-temp-text "- A\n B"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- (should
- (equal "[fn:1] A B"
- (org-test-with-temp-text "[fn:1] A\nB"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- (org-test-with-temp-text "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string)
- "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"))))
-
- (should
- (equal
- (org-test-with-temp-text "#+BEGIN_COMMENT\nSome\ntext\n#+END_COMMENT"
- (let ((fill-column 20))
- (forward-line)
- (org-fill-paragraph)
- (buffer-string)))
- "#+BEGIN_COMMENT\nSome text\n#+END_COMMENT"))
-
- (should
- (equal " # A B"
- (org-test-with-temp-text " # A\n # B"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
-
- (org-test-with-temp-text "#+NAME: para\nSome\ntext."
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string) "#+NAME: para\nSome\ntext.")))))
- (ert-deftest test-org/auto-fill-function ()
- "Test auto-filling features."
-
- (should
- (equal "12345\n7890"
- (org-test-with-temp-text "12345 7890"
- (let ((fill-column 5))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should
- (equal "- 12345\n 7890"
- (org-test-with-temp-text "- 12345 7890"
- (let ((fill-column 7))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should
- (equal " # 12345\n # 7890"
- (org-test-with-temp-text " # 12345 7890"
- (let ((fill-column 10))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should
- (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
- (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
- (let ((fill-column 5))
- (forward-line)
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- (should
- (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
- (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
- (let ((fill-column 5))
- (forward-line)
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should-not
- (equal "12345\n- 90"
- (org-test-with-temp-text "12345 - 90"
- (let ((fill-column 5))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should-not
- (equal "123\\\\\n7890"
- (org-test-with-temp-text "123\\\\ 7890"
- (let ((fill-column 6))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
-
- (should-not
- (equal "#+ATTR_LATEX: ABC\nDEFGHIJKL"
- (org-test-with-temp-text "#+ATTR_LATEX: ABC DEFGHIJKL"
- (let ((fill-column 20))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string))))))
- (ert-deftest test-org/comment-dwim ()
- "Test `comment-dwim' behaviour in an Org buffer."
-
-
- (should
- (equal "# \nComment"
- (org-test-with-temp-text "Comment"
- (progn (call-interactively 'comment-dwim)
- (buffer-string)))))
-
-
- (should
- (equal "# \nParagraph"
- (org-test-with-temp-text "\nParagraph"
- (progn (call-interactively 'comment-dwim)
- (buffer-string)))))
-
- (should
- (equal "* Headline\n # Comment"
- (org-test-with-temp-text "* Headline\n# Comment"
- (progn (forward-line)
- (let ((org-adapt-indentation t))
- (call-interactively 'comment-dwim))
- (buffer-string)))))
-
- (should
- (equal "# Comment"
- (org-test-with-temp-text "# Comment"
- (progn (forward-line)
- (call-interactively 'comment-dwim)
- (buffer-string)))))
-
-
- (should
- (equal "Comment 1\n\nComment 2"
- (org-test-with-temp-text "# Comment 1\n\n# Comment 2"
- (progn
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (call-interactively 'comment-dwim)
- (buffer-string)))))
-
- (should
- (equal "# Comment 1\n\n# Comment 2"
- (org-test-with-temp-text "Comment 1\n\nComment 2"
- (progn
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (call-interactively 'comment-dwim)
- (buffer-string)))))
-
- (should
- (equal "# \n#+KEYWORD: value"
- (org-test-with-temp-text "#+KEYWORD: value"
- (progn (call-interactively 'comment-dwim)
- (buffer-string))))))
- (ert-deftest test-org/mark-subtree ()
- "Test `org-mark-subtree' specifications."
-
- (should-error
- (org-test-with-temp-text "Paragraph\n* Headline\nBody"
- (progn (transient-mark-mode 1)
- (org-mark-subtree))))
-
- (should
- (equal
- '(12 32)
- (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
- (progn (transient-mark-mode 1)
- (forward-line 2)
- (org-mark-subtree)
- (list (region-beginning) (region-end))))))
-
- (should
- (equal
- '(1 32)
- (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
- (progn (transient-mark-mode 1)
- (forward-line 2)
- (org-mark-subtree 1)
- (list (region-beginning) (region-end))))))
-
- (when (featurep 'org-inlinetask)
- (should
- (= 1
- (org-test-with-temp-text "* Headline\n*************** Task\nContents"
- (progn (transient-mark-mode 1)
- (forward-line 1)
- (let ((org-inlinetask-min-level 15)) (org-mark-subtree))
- (region-beginning)))))))
-
- (ert-deftest test-org/end-of-line ()
- "Test `org-end-of-line' specifications."
-
- (should
- (org-test-with-temp-text "Some text\nSome other text"
- (progn (org-end-of-line) (eolp))))
-
- (should
- (org-test-with-temp-text "* Headline :tag:"
- (let ((org-special-ctrl-a/e t))
- (and (progn (org-end-of-line) (looking-at " :tag:"))
- (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (looking-at " :tag:"))))))
-
- (should
- (org-test-with-temp-text "* Headline :tag:"
- (let ((org-special-ctrl-a/e nil))
- (and (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (eolp))))))
-
- (should
- (org-test-with-temp-text "* Headline :tag:"
- (let ((org-special-ctrl-a/e 'reversed)
- (this-command last-command))
- (and (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (looking-at " :tag:"))))))
-
- (should
- (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
- (progn (org-end-of-line) (eolp))))
-
- (should-not
- (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
- (progn (org-hide-block-toggle)
- (org-end-of-line)
- (eolp)))))
- (ert-deftest test-org/forward-element ()
- "Test `org-forward-element' specifications."
-
- (org-test-with-temp-text "Some text\n"
- (goto-char (point-max))
- (should-error (org-forward-element)))
-
- (org-test-with-temp-text "First paragraph.\n\n\nSecond paragraph."
- (org-forward-element)
- (should (looking-at "Second paragraph.")))
-
- (org-test-with-temp-text "
- * Head 1
- ** Head 1.1
- *** Head 1.1.1
- ** Head 1.2"
-
-
- (goto-line 3)
- (org-forward-element)
- (should (looking-at "** Head 1.2"))
-
-
- (goto-line 3)
- (org-forward-element)
- (should (looking-at "** Head 1.2")))
-
- (org-test-with-temp-text
- "#+BEGIN_CENTER\nInside.\n#+END_CENTER\n\nOutside."
-
- (org-forward-element)
- (should (looking-at "Outside."))
-
-
- (goto-line 2)
- (org-forward-element)
- (should (looking-at "Outside.")))
-
- (org-test-with-temp-text "
- - item1
- - sub1
- - sub2
- - sub3
- Inner paragraph.
- - item2
- Outside."
-
-
- (goto-line 2)
- (org-forward-element)
- (should (looking-at "Outside."))
-
-
- (goto-line 2)
- (forward-char)
- (org-forward-element)
- (should (looking-at "- item2"))
- (goto-line 4)
- (forward-char)
- (org-forward-element)
- (should (looking-at " - sub2"))
-
- (goto-line 4)
- (org-forward-element)
- (should (looking-at " Inner paragraph."))
-
- (goto-line 8)
- (org-forward-element)
- (should (looking-at " Inner paragraph."))
-
- (goto-line 6)
- (org-forward-element)
- (should (looking-at " - sub3"))))
- (ert-deftest test-org/backward-element ()
- "Test `org-backward-element' specifications."
-
- (org-test-with-temp-text " \nParagraph."
- (should-error (org-backward-element)))
-
- (should
- (org-test-with-temp-text "\n#+TITLE: test"
- (progn (forward-line)
- (org-backward-element)
- (bobp))))
-
- (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
- (goto-line 3)
- (end-of-line)
- (org-backward-element)
- (should (looking-at "Paragraph2.")))
-
- (org-test-with-temp-text "
- * Head 1
- ** Head 1.1
- *** Head 1.1.1
- ** Head 1.2"
-
-
- (goto-line 5)
- (org-backward-element)
- (should (looking-at "** Head 1.1"))
-
-
- (goto-line 3)
- (org-backward-element)
- (should (looking-at "* Head 1"))
-
- (goto-line 2)
- (should-error (org-backward-element)))
-
-
- (org-test-with-temp-text "Before.\n#+BEGIN_CENTER\nInside.\n#+END_CENTER"
- (goto-line 3)
- (org-backward-element)
- (should (looking-at "#\\+BEGIN_CENTER")))
-
-
- (should
- (org-test-with-temp-text "#+TITLE: test\n* Headline\n\nParagraph"
- (progn (goto-char (point-max))
- (beginning-of-line)
- (org-backward-element)
- (org-at-heading-p))))
-
- (org-test-with-temp-text "
- - item1
- - sub1
- - sub2
- - sub3
- Inner paragraph.
- - item2
- Outside."
-
-
- (goto-line 4)
- (org-backward-element)
- (should (looking-at "item1"))
-
- (goto-line 8)
- (org-backward-element)
- (should (looking-at " - sub2"))
- (goto-line 12)
- (org-backward-element)
- (should (looking-at "- item1"))
-
-
- (goto-line 10)
- (org-backward-element)
- (should (looking-at " - sub1"))
- (goto-line 15)
- (org-backward-element)
- (should (looking-at "- item1"))
-
-
- (goto-line 14)
- (org-backward-element)
- (should (looking-at "- item1"))))
- (ert-deftest test-org/up-element ()
- "Test `org-up-element' specifications."
-
- (org-test-with-temp-text "Paragraph."
- (should-error (org-up-element)))
- (org-test-with-temp-text "* Head1\n* Head2"
- (goto-line 2)
- (should-error (org-up-element)))
- (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
- (goto-line 3)
- (should-error (org-up-element)))
-
- (org-test-with-temp-text "* Head1\n** Sub-Head1\n** Sub-Head2"
- (goto-line 3)
- (org-up-element)
- (should (looking-at "\\* Head1")))
-
- (org-test-with-temp-text
- "Before.\n#+BEGIN_CENTER\nParagraph1\nParagraph2\n#+END_CENTER\n"
- (goto-line 3)
- (org-up-element)
- (should (looking-at "#\\+BEGIN_CENTER")))
-
- (org-test-with-temp-text "* Top
- - item1
- - sub1
- - sub2
- Paragraph within sub2.
- - item2"
-
- (goto-line 8)
- (org-up-element)
- (should (looking-at " - sub2"))
-
- (goto-line 4)
- (org-up-element)
- (should (looking-at "- item1"))
-
- (goto-line 10)
- (org-up-element)
- (should (looking-at "- item1"))
-
-
- (goto-line 2)
- (org-up-element)
- (should (looking-at "\\* Top"))))
- (ert-deftest test-org/down-element ()
- "Test `org-down-element' specifications."
-
- (org-test-with-temp-text "Paragraph."
- (should-error (org-down-element)))
-
- (org-test-with-temp-text "* Headline"
- (should-error (org-down-element)))
-
- (org-test-with-temp-text "- Item 1\n - Item 1.1\n - Item 2.2"
- (goto-line 2)
- (org-down-element)
- (should (looking-at " - Item 1.1")))
- (org-test-with-temp-text "#+NAME: list\n- Item 1"
- (org-down-element)
- (should (looking-at " Item 1")))
-
- (org-test-with-temp-text "#+NAME: table\n| a | b |"
- (org-down-element)
- (should (looking-at " a | b |")))
-
- (org-test-with-temp-text "#+BEGIN_CENTER\nParagraph.\n#+END_CENTER"
- (org-down-element)
- (should (looking-at "Paragraph"))))
- (ert-deftest test-org/drag-element-backward ()
- "Test `org-drag-element-backward' specifications."
-
- (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
- (should-error (org-drag-element-backward)))
-
- (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
- (forward-line)
- (should-error (org-drag-element-backward)))
-
-
- (org-test-with-temp-text "Test.\n* Head 1"
- (forward-line)
- (should-error (org-drag-element-backward)))
-
-
- (org-test-with-temp-text "Para1\n\n\nParagraph 2\n\nPara3"
- (search-forward "graph")
- (org-drag-element-backward)
- (should (equal (buffer-string) "Paragraph 2\n\n\nPara1\n\nPara3"))
- (should (looking-at " 2")))
-
- (org-test-with-temp-text "
- #+BEGIN_CENTER
- Text.
- #+END_CENTER
- - item 1
- #+BEGIN_QUOTE
- Text.
- #+END_QUOTE"
- (while (search-forward "BEGIN_" nil t) (org-cycle))
- (search-backward "- item 1")
- (org-drag-element-backward)
- (should
- (equal
- '((63 . 82) (26 . 48))
- (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
- (overlays-in (point-min) (point-max)))))))
- (ert-deftest test-org/drag-element-forward ()
- "Test `org-drag-element-forward' specifications."
-
- (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
- (goto-line 3)
- (should-error (org-drag-element-forward)))
-
- (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
- (forward-line)
- (should-error (org-drag-element-forward)))
-
-
- (org-test-with-temp-text "Test.\n* Head 1"
- (should-error (org-drag-element-forward)))
-
-
- (org-test-with-temp-text "Paragraph 1\n\n\nPara2\n\nPara3"
- (search-forward "graph")
- (org-drag-element-forward)
- (should (equal (buffer-string) "Para2\n\n\nParagraph 1\n\nPara3"))
- (should (looking-at " 1")))
-
- (org-test-with-temp-text "
- #+BEGIN_CENTER
- Text.
- #+END_CENTER
- - item 1
- #+BEGIN_QUOTE
- Text.
- #+END_QUOTE"
- (while (search-forward "BEGIN_" nil t) (org-cycle))
- (search-backward "#+BEGIN_CENTER")
- (org-drag-element-forward)
- (should
- (equal
- '((63 . 82) (26 . 48))
- (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
- (overlays-in (point-min) (point-max)))))))
- (provide 'test-org)
|