Browse Source

ox: Fix a test

* testing/lisp/test-ox.el (test-org-export/with-backend): Fix test.
Nicolas Goaziou 4 years ago
parent
commit
2280ad5eca
1 changed files with 16 additions and 8 deletions
  1. 16 8
      testing/lisp/test-ox.el

+ 16 - 8
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."