diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 16:14:17 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 16:14:17 +0200 |
commit | 6277246a74884373c0ad68f58bcc475c8b22ceaa (patch) | |
tree | a42f2a538201b1ac80a875fa8bb008ff362dc15b | |
parent | 14c51bae5f196269612c816334cf5cd63b091aae (diff) | |
download | org-mode-6277246a74884373c0ad68f58bcc475c8b22ceaa.tar.gz |
test-ob: Fix test
* testing/lisp/test-ob.el (test-ob/multi-line-header-arguments): Fix test.
-rw-r--r-- | testing/lisp/test-ob.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 858a85f..943e60b 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -182,17 +182,13 @@ should still return the link." #+headers: :var letters='(a b c d e f g) #+begin_src emacs-lisp :var numbers='(1 2 3 4 5 6 7) - (require 'cl) - (defalias 'my-map (if (org-version-check \"24.2.50\" \"cl\" :predicate) - 'cl-map - 'map)) - (my-map 'list #'list numbers letters) + (require 'cl-lib) + (cl-map 'list #'list numbers letters) #+end_src" - (org-babel-next-src-block) (let ((results (org-babel-execute-src-block))) - (should(equal 'a (cadr (assoc 1 results)))) - (should(equal 'd (cadr (assoc 4 results))))))) + (should (eq 'a (cadr (assoc 1 results)))) + (should (eq 'd (cadr (assoc 4 results))))))) (ert-deftest test-ob/parse-header-args () (org-test-with-temp-text-in-file " |