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.
This commit is contained in:
Rasmus 2015-03-29 14:54:56 +02:00
parent 564673b766
commit 99b48cf0c4
1 changed files with 10 additions and 7 deletions

View File

@ -153,11 +153,15 @@ variable, and communication channel under `info'."
(org-export--get-inbuffer-options)) (org-export--get-inbuffer-options))
'(:title ("Some title with spaces")))) '(:title ("Some title with spaces"))))
;; Test `newline' behaviour. ;; Test `newline' behaviour.
(should (let (org-export--registered-backends)
(equal (org-export-define-backend 'test nil
(org-test-with-temp-text "#+DESCRIPTION: With\n#+DESCRIPTION: two lines" :options-alist
(org-export--get-inbuffer-options)) '((:description "DESCRIPTION" nil nil newline)))
'(:description "With\ntwo lines"))) (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. ;; Test `split' behaviour.
(should (should
(equal (equal
@ -173,13 +177,12 @@ variable, and communication channel under `info'."
#+SELECT_TAGS: a #+SELECT_TAGS: a
#+TITLE: a #+TITLE: a
#+SETUPFILE: \"%s/examples/setupfile.org\" #+SETUPFILE: \"%s/examples/setupfile.org\"
#+DESCRIPTION: l3
#+LANGUAGE: fr #+LANGUAGE: fr
#+SELECT_TAGS: c #+SELECT_TAGS: c
#+TITLE: c" #+TITLE: c"
org-test-dir) org-test-dir)
(org-export--get-inbuffer-options)) (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")))) :title ("a b c"))))
;; More than one property can refer to the same buffer keyword. ;; More than one property can refer to the same buffer keyword.
(should (should