diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-07 19:02:49 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-07 19:09:55 +0200 |
commit | 2280ad5eca94ae3f8d91f854effca87dda732b4c (patch) | |
tree | 40d5b91e1e93ff1a31d73c78be70510a18786090 | |
parent | 655f62dbbb7bacd88984ab2d206f3426e1cd2f18 (diff) | |
download | org-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.el | 24 |
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." |