diff --git a/testing/lisp/test-ob-lilypond.el b/testing/lisp/test-ob-lilypond.el index 1a60eabf1..379ffd298 100644 --- a/testing/lisp/test-ob-lilypond.el +++ b/testing/lisp/test-ob-lilypond.el @@ -18,10 +18,10 @@ (ert-deftest ob-lilypond/assert () (should t)) - + (ert-deftest ob-lilypond/feature-provision () (should (featurep 'ob-lilypond))) - + (ert-deftest ob-lilypond/check-lilypond-alias () (should (fboundp 'lilypond-mode))) @@ -33,7 +33,7 @@ (setq found t)) (setq list (cdr list))) (should found))) - + (ert-deftest ob-lilypond/org-babel-prep-session:lilypond () (should-error (org-babel-prep-session:lilypond nil nil)) :type 'error) @@ -45,7 +45,7 @@ "*lilypond*" ;buffer t ;display ,(if ly-gen-png "--png" "") ;&rest... - ,(if ly-gen-html "--html" "") + ,(if ly-gen-html "--html" "") ,(if ly-gen-pdf "--pdf" "") ,(if ly-use-eps "-dbackend=eps" "") ,(if ly-gen-svg "-dbackend=svg" "") @@ -162,7 +162,7 @@ (should (equal (+ 238 (length "line 25")) (point))) (kill-buffer "*lilypond*") (kill-buffer "ob-lilypond-broken.org")) - + (ert-deftest ob-lilypond/ly-mark-error-line () (let ((file-name (concat ly-here @@ -173,7 +173,7 @@ (find-file-other-window file-name) (ly-mark-error-line file-name line) (should (equal expected-point-min (point))) - + (exchange-point-and-mark) (should (= expected-point-max (point))) (kill-buffer (file-name-nondirectory file-name)))) @@ -187,7 +187,7 @@ (goto-char (point-min)) (search-forward "error:") (should (equal 25 (ly-parse-line-num (current-buffer)))))) - + (ert-deftest ob-lilypond/ly-parse-error-line () (let ((ly-file (concat ly-here @@ -195,7 +195,7 @@ (should (equal "line 20" (ly-parse-error-line ly-file 20))) (should (not (ly-parse-error-line ly-file 0))))) - + (ert-deftest ob-lilypond/ly-attempt-to-open-pdf () (let ((post-tangle ly-display-pdf-post-tangle) (ly-file (concat @@ -208,7 +208,7 @@ (when (not (file-exists-p pdf-file)) (set-buffer (get-buffer-create (file-name-nondirectory pdf-file))) (write-file pdf-file)) - (should (equal + (should (equal (concat (ly-determine-pdf-path) " " pdf-file) (ly-attempt-to-open-pdf ly-file t))) @@ -325,7 +325,7 @@ (should ly-gen-png) (ly-toggle-png-generation) (should (not ly-gen-png)))) - + (ert-deftest ob-lilypond/ly-toggle-html-generation-toggles-flag () (if ly-gen-html (progn @@ -373,8 +373,7 @@ (should (equal '((:results . "file") (:exports . "results")) org-babel-default-header-args:lilypond))) - + (provide 'test-ob-lilypond) ;;; test-ob-lilypond.el ends here -