diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-07-25 12:25:58 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-07-25 12:25:58 +0200 |
commit | 3df18bef9fdff274685ae5975214ba26c443a387 (patch) | |
tree | 595ba97dc79838701a57ed4ad4b1acbac4dcdf47 | |
parent | 8d98835a3ccf98a2e79a68193fdb8f4d76b589a2 (diff) | |
download | org-mode-3df18bef9fdff274685ae5975214ba26c443a387.tar.gz |
org-export: Add test
* testing/lisp/test-org-export.el: Add test for subtree options.
-rw-r--r-- | testing/lisp/test-org-export.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/testing/lisp/test-org-export.el b/testing/lisp/test-org-export.el index bc4adcd..1c172c5 100644 --- a/testing/lisp/test-org-export.el +++ b/testing/lisp/test-org-export.el @@ -132,7 +132,7 @@ Paragraph" (forward-line) (should (= 2 (plist-get (org-export-get-environment nil t) :headline-levels)))) - ;; EXPORT DATE. + ;; EXPORT_DATE. (org-test-with-temp-text "#+DATE: today * Headline :PROPERTIES: @@ -141,6 +141,14 @@ Paragraph" Paragraph" (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) '("29-03-2012"))))) (ert-deftest test-org-export/handle-options () |