mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

compatibility fixes for fda70440f4

Browse source 
* testing/lisp/test-ob-lob.el (test-ob-lob/call-with-header-arguments):
  Replace `cl-letf' with `letf' for compatibility with older Emacsen.
* testing/lisp/test-org-timer.el (test-org-timer/other-timer-error):
  Also check for 'error since 'user-error is not used by older Emacsen.
This commit is contained in:
Achim Gratz 2015-01-25 11:20:02 +01:00
parent 61eedb852f
commit 6b24ffdad9
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
testing/lisp/test-ob-lob.el
View file

@ -39,7 +39,7 @@
(ert-deftest test-ob-lob/call-with-header-arguments ()
"Test the evaluation of a library of babel #+call: line."
(cl-letf (((symbol-function 'org-babel-insert-result)
(letf (((symbol-function 'org-babel-insert-result)
(symbol-function 'ignore)))
(org-test-at-id "fab7e291-fde6-45fc-bf6e-a485b8bca2f0"
(move-beginning-of-line 1)

4
testing/lisp/test-org-timer.el
View file

@ -263,13 +263,13 @@ Also, mute output from `message'."
(test-org-timer/with-temp-text ""
(org-timer-start)
(org-timer-set-timer 10))
:type 'user-error)
:type (list 'error 'user-error))
;; Countdown timer is running.
(should-error
(test-org-timer/with-temp-text ""
(org-timer-set-timer 10)
(org-timer-start))
:type 'user-error))
:type (list 'error 'user-error)))
(provide 'test-org-timer)
;;; test-org-timer.el end here