diff --git a/test/jupyter-test.el b/test/jupyter-test.el index ae24d489..5fc83c8e 100644 --- a/test/jupyter-test.el +++ b/test/jupyter-test.el @@ -2106,15 +2106,19 @@ Image(filename='%s', width=300)" file) (ert-deftest jupyter-org-result () :tags '(org) (let ((req (jupyter-org-request))) - (should (equal (jupyter-org-result req (list :text/plain "foo")) - '(fixed-width (:value "foo")))) - (should (equal (jupyter-org-result req (list :text/html "foo")) - '(export-block (:type "html" :value "foo\n")))) + (let ((res (jupyter-org-result req (list :text/plain "foo")))) + (should (eq (org-element-type res) 'fixed-width)) + (should (equal (org-element-property :value res) "foo"))) + (let ((res (jupyter-org-result req (list :text/html "foo")))) + (should (eq (org-element-type res) 'export-block)) + (should (equal (org-element-property :type res) "html")) + (should (equal (org-element-property :value res) "foo\n"))) ;; Calls `org-babel-script-escape' for scalar data (should (equal (jupyter-org-result req (list :text/plain "[1, 2, 3]")) "| 1 | 2 | 3 |\n")) - (should (equal (jupyter-org-result req (list :text/plain "[1, 2, 3] Foo")) - '(fixed-width (:value "[1, 2, 3] Foo")))))) + (let ((res (jupyter-org-result req (list :text/plain "[1, 2, 3] Foo")))) + (should (eq (org-element-type res) 'fixed-width)) + (should (equal (org-element-property :value res) "[1, 2, 3] Foo"))))) (ert-deftest jupyter-org-request-at-point () :tags '(org)