Test against the newest version of org-mode

This commit is contained in:
Nathaniel Nicandro 2019-02-21 11:36:17 -06:00
parent 70f4b1b9a3
commit d927d3d58d
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
2 changed files with 43 additions and 27 deletions

2
Cask
View file

@ -1,5 +1,6 @@
(source gnu)
(source melpa)
(source org)
(package-file "jupyter.el")
@ -9,4 +10,5 @@
(development
(depends-on "ert-runner")
(depends-on "org-plus-contrib")
(depends-on "julia-mode"))

View file

@ -352,7 +352,8 @@ results instead of an equality match."
"#+END_SRC")))
(defun jupyter-org-test-src-block-1 (code test-result &optional regexp args)
(insert (jupyter-org-test-make-block code args))
(let ((src-block (jupyter-org-test-make-block code args)))
(insert src-block)
(let* ((info (org-babel-get-src-block-info))
(end (point-marker)))
(set-marker-insertion-type end t)
@ -376,9 +377,22 @@ results instead of an equality match."
(org-element-property :post-affiliated drawer)
(org-element-property :end drawer))))))
(if regexp (should (string-match-p test-result result))
(message "\
Testing src-block:
%s
Expected result:
%s
Result:
%s
"
src-block result test-result)
(should (eq (compare-strings
result nil nil test-result nil nil
'ignore-case)
t)))))))))
t))))))))))
;;; test-helper.el ends here