diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-07 19:10:46 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-07 19:10:46 +0200 |
commit | 379e2b1beaa4a6c83b3856ac5eb1256bb279a7be (patch) | |
tree | 997913b444fbc55634e6e99bb05ac05fc38e0731 | |
parent | 21b11071d3d8caeaf6ad3e79c427b9e5088239cb (diff) | |
parent | 2280ad5eca94ae3f8d91f854effca87dda732b4c (diff) | |
download | org-mode-379e2b1beaa4a6c83b3856ac5eb1256bb279a7be.tar.gz |
Merge branch 'maint'
-rw-r--r-- | testing/lisp/test-ox.el | 24 |
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." |