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

org-export: Add test 

* testing/lisp/test-org-export.el: Add test for subtree options.
This commit is contained in:
Nicolas Goaziou 2012-07-25 12:25:58 +02:00
parent 8d98835a3c
commit 3df18bef9f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -132,7 +132,7 @@ Paragraph"
(forward-line) (forward-line)
(should (should
(= 2 (plist-get (org-export-get-environment nil t) :headline-levels)))) (= 2 (plist-get (org-export-get-environment nil t) :headline-levels))))
;; EXPORT DATE. ;; EXPORT_DATE.
(org-test-with-temp-text "#+DATE: today (org-test-with-temp-text "#+DATE: today
* Headline * Headline
:PROPERTIES: :PROPERTIES:
@ -140,6 +140,14 @@ Paragraph"
:END: :END:
Paragraph" Paragraph"
(forward-line) (forward-line)
(should (equal (plist-get (org-export-get-environment nil t) :date)
'("29-03-2012"))))
;; Export properties are case-insensitive.
(org-test-with-temp-text "* Headline
:PROPERTIES:
:EXPORT_Date: 29-03-2012
:END:
Paragraph"
(should (equal (plist-get (org-export-get-environment nil t) :date) (should (equal (plist-get (org-export-get-environment nil t) :date)
'("29-03-2012"))))) '("29-03-2012")))))