From 6277246a74884373c0ad68f58bcc475c8b22ceaa Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 25 Jul 2016 16:14:17 +0200 Subject: [PATCH] test-ob: Fix test * testing/lisp/test-ob.el (test-ob/multi-line-header-arguments): Fix test. --- testing/lisp/test-ob.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 858a85ff3..943e60be4 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 " -- 2.11.4.GIT