summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-10-07 19:02:49 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2013-10-07 19:09:55 +0200
commit2280ad5eca94ae3f8d91f854effca87dda732b4c (patch)
tree40d5b91e1e93ff1a31d73c78be70510a18786090
parent655f62dbbb7bacd88984ab2d206f3426e1cd2f18 (diff)
downloadorg-mode-2280ad5eca94ae3f8d91f854effca87dda732b4c.tar.gz
ox: Fix a test
* testing/lisp/test-ox.el (test-org-export/with-backend): Fix test.
-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 d532eb5..7741e98 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -1086,14 +1086,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."