diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-11-08 17:31:34 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-11-08 17:31:34 +0100 |
| commit | 5204e000e507ef331440c0f554013bb5f7106c5f (patch) | |
| tree | faf238c05e962199192eb8cdd9a63cb95d3c99d0 | |
| parent | 24aaa535737bd95ccf7e98dcc78f424ad276fbb2 (diff) | |
| download | org-mode-5204e000e507ef331440c0f554013bb5f7106c5f.tar.gz | |
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.
| -rw-r--r-- | testing/lisp/test-ob-lilypond.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/testing/lisp/test-ob-lilypond.el b/testing/lisp/test-ob-lilypond.el index 355f91f..b59b2c4 100644 --- a/testing/lisp/test-ob-lilypond.el +++ b/testing/lisp/test-ob-lilypond.el @@ -269,9 +269,8 @@ (org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-file t))) (delete-file pdf-file) (kill-buffer (file-name-nondirectory pdf-file)) - (should (equal - "No pdf file generated so can't display!" - (org-babel-lilypond-attempt-to-open-pdf pdf-file))) + (should (string-prefix-p "No pdf file generated" + (org-babel-lilypond-attempt-to-open-pdf pdf-file))) (setq org-babel-lilypond-display-pdf-post-tangle post-tangle))) (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))) (delete-file midi-file) (kill-buffer (file-name-nondirectory midi-file)) - (should (equal - "No midi file generated so can't play!" + (should (string-prefix-p + "No midi file generated" (org-babel-lilypond-attempt-to-play-midi midi-file))) (setq org-babel-lilypond-play-midi-post-tangle post-tangle))) |