ob-lilypond: Fix failing tests

* testing/lisp/test-ob-lilypond.el (ob-lilypond/ly-attempt-to-open-pdf):
(ob-lilypond/ly-attempt-to-play-midi): Fix failing tests due to quote
mismatch in Emacs 25.
This commit is contained in:
Nicolas Goaziou 2015-11-08 17:31:34 +01:00
parent 24aaa53573
commit 5204e000e5
1 changed files with 4 additions and 5 deletions

View File

@ -269,9 +269,8 @@
(org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-file t))) (org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-file t)))
(delete-file pdf-file) (delete-file pdf-file)
(kill-buffer (file-name-nondirectory pdf-file)) (kill-buffer (file-name-nondirectory pdf-file))
(should (equal (should (string-prefix-p "No pdf file generated"
"No pdf file generated so can't display!" (org-babel-lilypond-attempt-to-open-pdf pdf-file)))
(org-babel-lilypond-attempt-to-open-pdf pdf-file)))
(setq org-babel-lilypond-display-pdf-post-tangle post-tangle))) (setq org-babel-lilypond-display-pdf-post-tangle post-tangle)))
(ert-deftest ob-lilypond/ly-attempt-to-play-midi () (ert-deftest ob-lilypond/ly-attempt-to-play-midi ()
@ -292,8 +291,8 @@
(org-babel-lilypond-attempt-to-play-midi org-babel-lilypond-file t))) (org-babel-lilypond-attempt-to-play-midi org-babel-lilypond-file t)))
(delete-file midi-file) (delete-file midi-file)
(kill-buffer (file-name-nondirectory midi-file)) (kill-buffer (file-name-nondirectory midi-file))
(should (equal (should (string-prefix-p
"No midi file generated so can't play!" "No midi file generated"
(org-babel-lilypond-attempt-to-play-midi midi-file))) (org-babel-lilypond-attempt-to-play-midi midi-file)))
(setq org-babel-lilypond-play-midi-post-tangle post-tangle))) (setq org-babel-lilypond-play-midi-post-tangle post-tangle)))