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

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2013-10-07 19:10:46 +02:00
parent 21b11071d3 2280ad5eca
commit 379e2b1bea
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
testing/lisp/test-ox.el
View File

@ -1119,14 +1119,22 @@ body\n")))
;; Provide correct back-end if transcoder needs to use recursive
;; calls anyway.
(should
(equal "Success"
(let (org-export--registered-backends)
(org-export-define-backend 'test
'((plain-text . (lambda (bold contents info) "Success"))
(headline . (lambda (headline contents info)
(org-export-data
(org-element-property :title headline))))))
(org-export-with-backend 'test "* Test")))))
(equal "Success\n"
(let ((test-back-end
(org-export-create-backend
:transcoders
'((headline . (lambda (headline contents info)
(org-export-data
(org-element-property :title headline)
info)))
(plain-text . (lambda (text info) "Success"))))))
(org-export-string-as
"* Test"
(org-export-create-backend
:transcoders
'((headline . (lambda (headline contents info)
(org-export-with-backend
test-back-end headline contents info))))))))))
(ert-deftest test-org-export/data-with-backend ()
"Test `org-export-data-with-backend' specifications."