From 2280ad5eca94ae3f8d91f854effca87dda732b4c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 7 Oct 2013 19:02:49 +0200 Subject: [PATCH] ox: Fix a test * testing/lisp/test-ox.el (test-org-export/with-backend): Fix test. --- testing/lisp/test-ox.el | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index d532eb540..7741e98fe 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."