From 99b48cf0c426cd89d74c931c35f388617039299d Mon Sep 17 00:00:00 2001 From: Rasmus Date: Sun, 29 Mar 2015 14:54:56 +0200 Subject: [PATCH] test-ox.el: Account for #+DESCRIPTION is not in ox * test-ox.el (test-org-export/get-inbuffer-options): Change to reflect that #+DESCRIPTION is non-standard keyword. --- testing/lisp/test-ox.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index d2a5e0795..c7906cb33 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -153,11 +153,15 @@ variable, and communication channel under `info'." (org-export--get-inbuffer-options)) '(:title ("Some title with spaces")))) ;; Test `newline' behaviour. - (should - (equal - (org-test-with-temp-text "#+DESCRIPTION: With\n#+DESCRIPTION: two lines" - (org-export--get-inbuffer-options)) - '(:description "With\ntwo lines"))) + (let (org-export--registered-backends) + (org-export-define-backend 'test nil + :options-alist + '((:description "DESCRIPTION" nil nil newline))) + (should + (equal + (org-test-with-temp-text "#+DESCRIPTION: With\n#+DESCRIPTION: two lines" + (org-export--get-inbuffer-options 'test)) + '(:description "With\ntwo lines")))) ;; Test `split' behaviour. (should (equal @@ -173,13 +177,12 @@ variable, and communication channel under `info'." #+SELECT_TAGS: a #+TITLE: a #+SETUPFILE: \"%s/examples/setupfile.org\" -#+DESCRIPTION: l3 #+LANGUAGE: fr #+SELECT_TAGS: c #+TITLE: c" org-test-dir) (org-export--get-inbuffer-options)) - '(:description "l1\nl2\nl3":language "fr" :select-tags ("a" "b" "c") + '(:language "fr" :select-tags ("a" "b" "c") :title ("a b c")))) ;; More than one property can refer to the same buffer keyword. (should