summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-10-07 17:10:46 (GMT)
committer Nicolas Goaziou <n.goaziou@gmail.com>2013-10-07 17:10:46 (GMT)
commit379e2b1beaa4a6c83b3856ac5eb1256bb279a7be (patch)
tree997913b444fbc55634e6e99bb05ac05fc38e0731
parent21b11071d3d8caeaf6ad3e79c427b9e5088239cb (diff)
parent2280ad5eca94ae3f8d91f854effca87dda732b4c (diff)
downloadorg-mode-379e2b1beaa4a6c83b3856ac5eb1256bb279a7be.zip
org-mode-379e2b1beaa4a6c83b3856ac5eb1256bb279a7be.tar.gz
Merge branch 'maint'
-rw-r--r--testing/lisp/test-ox.el24
1 files changed, 16 insertions, 8 deletions
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index ee3a3b9..5a066a5 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -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."