ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-export: Fix tests 

* testing/lisp/test-org-export.el: Fix tests.
This commit is contained in:
Nicolas Goaziou 2012-07-12 23:36:01 +02:00
parent 620737757f
commit fd92868c13
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
testing/lisp/test-org-export.el
View File

@ -404,13 +404,14 @@ body\n")))
(org-export-read-attribute (org-export-read-attribute
:attr_html :attr_html
(org-test-with-temp-text "#+ATTR_HTML: :a 1 :b 2\nParagraph" (org-test-with-temp-text "#+ATTR_HTML: :a 1 :b 2\nParagraph"
(org-element-current-element))) (org-element-current-element (point-max))))
'(:a 1 :b 2))) '(:a 1 :b 2)))
;; Return nil on empty attribute. ;; Return nil on empty attribute.
(should-not (should-not
(org-export-read-attribute (org-export-read-attribute
:attr_html :attr_html
(org-test-with-temp-text "Paragraph" (org-element-current-element))))) (org-test-with-temp-text "Paragraph"
(org-element-current-element (point-max))))))
@ -996,17 +997,20 @@ Another text. (ref:text)
(let ((org-coderef-label-format "(ref:%s)")) (let ((org-coderef-label-format "(ref:%s)"))
;; 1. Code without reference. ;; 1. Code without reference.
(org-test-with-temp-text "#+BEGIN_EXAMPLE\n(+ 1 1)\n#+END_EXAMPLE" (org-test-with-temp-text "#+BEGIN_EXAMPLE\n(+ 1 1)\n#+END_EXAMPLE"
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("(+ 1 1)\n")))) '("(+ 1 1)\n"))))
;; 2. Code with reference. ;; 2. Code with reference.
(org-test-with-temp-text (org-test-with-temp-text
"#+BEGIN_EXAMPLE\n(+ 1 1) (ref:test)\n#+END_EXAMPLE" "#+BEGIN_EXAMPLE\n(+ 1 1) (ref:test)\n#+END_EXAMPLE"
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("(+ 1 1)\n" (1 . "test"))))) '("(+ 1 1)\n" (1 . "test")))))
;; 3. Code with user-defined reference. ;; 3. Code with user-defined reference.
(org-test-with-temp-text (org-test-with-temp-text
"#+BEGIN_EXAMPLE -l \"[ref:%s]\"\n(+ 1 1) [ref:test]\n#+END_EXAMPLE" "#+BEGIN_EXAMPLE -l \"[ref:%s]\"\n(+ 1 1) [ref:test]\n#+END_EXAMPLE"
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("(+ 1 1)\n" (1 . "test"))))) '("(+ 1 1)\n" (1 . "test")))))
;; 4. Code references keys are relative to the current block. ;; 4. Code references keys are relative to the current block.
(org-test-with-temp-text " (org-test-with-temp-text "
@ -1018,20 +1022,23 @@ Another text. (ref:text)
\(+ 3 3) (ref:one) \(+ 3 3) (ref:one)
#+END_EXAMPLE" #+END_EXAMPLE"
(goto-line 5) (goto-line 5)
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("(+ 2 2)\n(+ 3 3)\n" (2 . "one"))))) '("(+ 2 2)\n(+ 3 3)\n" (2 . "one")))))
;; 5. Free up comma-protected lines. ;; 5. Free up comma-protected lines.
;; ;;
;; 5.1. In an Org source block, every line is protected. ;; 5.1. In an Org source block, every line is protected.
(org-test-with-temp-text (org-test-with-temp-text
"#+BEGIN_SRC org\n,* Test\n,# comment\n,Text\n#+END_SRC" "#+BEGIN_SRC org\n,* Test\n,# comment\n,Text\n#+END_SRC"
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("* Test\n# comment\nText\n")))) '("* Test\n# comment\nText\n"))))
;; 5.2. In other blocks, only headlines, comments and keywords are ;; 5.2. In other blocks, only headlines, comments and keywords are
;; protected. ;; protected.
(org-test-with-temp-text (org-test-with-temp-text
"#+BEGIN_EXAMPLE\n,* Headline\n, * Not headline\n,Keep\n#+END_EXAMPLE" "#+BEGIN_EXAMPLE\n,* Headline\n, * Not headline\n,Keep\n#+END_EXAMPLE"
(should (equal (org-export-unravel-code (org-element-current-element)) (should (equal (org-export-unravel-code
(org-element-current-element (point-max)))
'("* Headline\n, * Not headline\n,Keep\n")))))) '("* Headline\n, * Not headline\n,Keep\n"))))))