mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 13:48:38 +00:00
378 lines
13 KiB
EmacsLisp
378 lines
13 KiB
EmacsLisp
;;; test-ob-lilypond.el --- tests for ob-lilypond.el
|
|
|
|
;; Copyright (c) 2010-2012 Martyn Jago
|
|
;; Authors: Martyn Jago
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
(let ((load-path (cons (expand-file-name
|
|
".." (file-name-directory
|
|
(or load-file-name buffer-file-name)))
|
|
load-path)))
|
|
(require 'org-test)
|
|
(require 'org-test-ob-consts))
|
|
|
|
(require 'ob-lilypond)
|
|
|
|
(save-excursion
|
|
(set-buffer (get-buffer-create "test-ob-lilypond.el"))
|
|
(setq ly-here
|
|
(file-name-directory
|
|
(or load-file-name (buffer-file-name)))))
|
|
|
|
(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)))
|
|
|
|
(ert-deftest ob-lilypond/org-babel-tangle-lang-exts ()
|
|
(let ((found nil)
|
|
(list org-babel-tangle-lang-exts))
|
|
(while list
|
|
(when (equal (car list) '("LilyPond" . "ly"))
|
|
(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)
|
|
|
|
(ert-deftest ob-lilypond/ly-version-const ()
|
|
(should (boundp 'ly-version)))
|
|
|
|
(ert-deftest ob-lilypond/ly-version-command ()
|
|
(should (equal "ob-lilypond version 0.3" (ly-version)))
|
|
(with-temp-buffer
|
|
(ly-version t)
|
|
(should (equal "ob-lilypond version 0.3"
|
|
(buffer-substring (point-min) (point-max))))))
|
|
|
|
(ert-deftest ob-lilypond/ly-compile-lilyfile ()
|
|
(should (equal
|
|
`(,(ly-determine-ly-path) ;program
|
|
nil ;infile
|
|
"*lilypond*" ;buffer
|
|
t ;display
|
|
,(if ly-gen-png "--png" "") ;&rest...
|
|
,(if ly-gen-html "--html" "")
|
|
,(if ly-use-eps "-dbackend=eps" "")
|
|
,(if ly-gen-svg "-dbackend=svg" "")
|
|
"--output=test-file"
|
|
"test-file.ly")
|
|
(ly-compile-lilyfile "test-file.ly" t))))
|
|
|
|
(ert-deftest ob-lilypond/ly-compile-post-tangle ()
|
|
(should (boundp 'ly-compile-post-tangle)))
|
|
|
|
(ert-deftest ob-lilypond/ly-display-pdf-post-tangle ()
|
|
(should (boundp 'ly-display-pdf-post-tangle)))
|
|
|
|
(ert-deftest ob-lilypond/ly-play-midi-post-tangle ()
|
|
(should (boundp 'ly-play-midi-post-tangle)))
|
|
|
|
(ert-deftest ob-lilypond/ly-OSX-ly-path ()
|
|
(should (boundp 'ly-OSX-ly-path))
|
|
(should (stringp ly-OSX-ly-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-OSX-pdf-path ()
|
|
(should (boundp 'ly-OSX-pdf-path))
|
|
(should (stringp ly-OSX-pdf-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-OSX-midi-path ()
|
|
(should (boundp 'ly-OSX-midi-path))
|
|
(should (stringp ly-OSX-midi-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-nix-ly-path ()
|
|
(should (boundp 'ly-nix-ly-path))
|
|
(should (stringp ly-nix-ly-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-nix-pdf-path ()
|
|
(should (boundp 'ly-nix-pdf-path))
|
|
(should (stringp ly-nix-pdf-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-nix-midi-path ()
|
|
(should (boundp 'ly-nix-midi-path))
|
|
(should (stringp ly-nix-midi-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-win32-ly-path ()
|
|
(should (boundp 'ly-win32-ly-path))
|
|
(should (stringp ly-win32-ly-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-win32-pdf-path ()
|
|
(should (boundp 'ly-win32-pdf-path))
|
|
(should (stringp ly-win32-pdf-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-win32-midi-path ()
|
|
(should (boundp 'ly-win32-midi-path))
|
|
(should (stringp ly-win32-midi-path)))
|
|
|
|
(ert-deftest ob-lilypond/ly-gen-png ()
|
|
(should (boundp 'ly-gen-png)))
|
|
|
|
(ert-deftest ob-lilypond/ly-gen-svg ()
|
|
(should (boundp 'ly-gen-svg)))
|
|
|
|
(ert-deftest ob-lilypond/ly-gen-html ()
|
|
(should (boundp 'ly-gen-html)))
|
|
|
|
(ert-deftest ob-lilypond/use-eps ()
|
|
(should (boundp 'ly-use-eps)))
|
|
|
|
(ert-deftest ob-lilypond/ly-arrange-mode ()
|
|
(should (boundp 'ly-arrange-mode)))
|
|
|
|
;; (ert-deftest ob-lilypond/org-babel-default-header-args:lilypond ()
|
|
;; (should (equal '((:tangle . "yes")
|
|
;; (:noweb . "yes")
|
|
;; (:results . "silent")
|
|
;; (:comments . "yes"))
|
|
;; org-babel-default-header-args:lilypond)))
|
|
|
|
;;TODO finish...
|
|
(ert-deftest ob-lilypond/org-babel-expand-body:lilypond ()
|
|
(should (equal "This is a test"
|
|
(org-babel-expand-body:lilypond "This is a test" ()))))
|
|
|
|
;;TODO (ert-deftest ly-test-org-babel-execute:lilypond ())
|
|
(ert-deftest ob-lilypond/ly-check-for-compile-error ()
|
|
(set-buffer (get-buffer-create "*lilypond*"))
|
|
(erase-buffer)
|
|
(should (not (ly-check-for-compile-error nil t)))
|
|
(insert-file-contents (concat ly-here
|
|
"../examples/ob-lilypond-test.error")
|
|
nil nil nil t)
|
|
(goto-char (point-min))
|
|
(should (ly-check-for-compile-error nil t))
|
|
(kill-buffer "*lilypond*"))
|
|
|
|
(ert-deftest ob-lilypond/ly-process-compile-error ()
|
|
(find-file-other-window (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-broken.org"))
|
|
(set-buffer (get-buffer-create "*lilypond*"))
|
|
(insert-file-contents (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-test.error")
|
|
nil nil nil t)
|
|
(goto-char (point-min))
|
|
(search-forward "error:" nil t)
|
|
(should-error
|
|
(ly-process-compile-error (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-broken.ly"))
|
|
:type 'error)
|
|
(set-buffer "ob-lilypond-broken.org")
|
|
(should (equal 238 (point)))
|
|
(exchange-point-and-mark)
|
|
(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
|
|
"../examples/ob-lilypond-broken.org"))
|
|
(expected-point-min 198)
|
|
(expected-point-max 205)
|
|
(line "line 20"))
|
|
(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))))
|
|
|
|
(ert-deftest ob-lilypond/ly-parse-line-num ()
|
|
(with-temp-buffer
|
|
(insert-file-contents (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-test.error")
|
|
nil nil nil t)
|
|
(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
|
|
"../examples/ob-lilypond-broken.ly")))
|
|
(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
|
|
ly-here
|
|
"../examples/ob-lilypond-test.ly"))
|
|
(pdf-file (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-test.pdf")))
|
|
(setq ly-display-pdf-post-tangle t)
|
|
(when (not (file-exists-p pdf-file))
|
|
(set-buffer (get-buffer-create (file-name-nondirectory pdf-file)))
|
|
(write-file pdf-file))
|
|
(should (equal
|
|
(concat
|
|
(ly-determine-pdf-path) " " pdf-file)
|
|
(ly-attempt-to-open-pdf ly-file t)))
|
|
(delete-file pdf-file)
|
|
(kill-buffer (file-name-nondirectory pdf-file))
|
|
(should (equal
|
|
"No pdf file generated so can't display!"
|
|
(ly-attempt-to-open-pdf pdf-file)))
|
|
(setq ly-display-pdf-post-tangle post-tangle)))
|
|
|
|
(ert-deftest ob-lilypond/ly-attempt-to-play-midi ()
|
|
(let ((post-tangle ly-play-midi-post-tangle)
|
|
(ly-file (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-test.ly"))
|
|
(midi-file (concat
|
|
ly-here
|
|
"../examples/ob-lilypond-test.midi")))
|
|
(setq ly-play-midi-post-tangle t)
|
|
(when (not (file-exists-p midi-file))
|
|
(set-buffer (get-buffer-create (file-name-nondirectory midi-file)))
|
|
(write-file midi-file))
|
|
(should (equal
|
|
(concat
|
|
(ly-determine-midi-path) " " midi-file)
|
|
(ly-attempt-to-play-midi ly-file t)))
|
|
(delete-file midi-file)
|
|
(kill-buffer (file-name-nondirectory midi-file))
|
|
(should (equal
|
|
"No midi file generated so can't play!"
|
|
(ly-attempt-to-play-midi midi-file)))
|
|
(setq ly-play-midi-post-tangle post-tangle)))
|
|
|
|
(ert-deftest ob-lilypond/ly-determine-ly-path ()
|
|
(should (equal ly-OSX-ly-path
|
|
(ly-determine-ly-path "darwin")))
|
|
(should (equal ly-win32-ly-path
|
|
(ly-determine-ly-path "win32")))
|
|
(should (equal ly-nix-ly-path
|
|
(ly-determine-ly-path "nix"))))
|
|
|
|
(ert-deftest ob-lilypond/ly-determine-pdf-path ()
|
|
(should (equal ly-OSX-pdf-path
|
|
(ly-determine-pdf-path "darwin")))
|
|
(should (equal ly-win32-pdf-path
|
|
(ly-determine-pdf-path "win32")))
|
|
(should (equal ly-nix-pdf-path
|
|
(ly-determine-pdf-path "nix"))))
|
|
|
|
(ert-deftest ob-lilypond/ly-determine-midi-path ()
|
|
(should (equal ly-OSX-midi-path
|
|
(ly-determine-midi-path "darwin")))
|
|
(should (equal ly-win32-midi-path
|
|
(ly-determine-midi-path "win32")))
|
|
(should (equal ly-nix-midi-path
|
|
(ly-determine-midi-path "nix"))))
|
|
|
|
(ert-deftest ob-lilypond/ly-toggle-midi-play-toggles-flag ()
|
|
(if ly-play-midi-post-tangle
|
|
(progn
|
|
(ly-toggle-midi-play)
|
|
(should (not ly-play-midi-post-tangle))
|
|
(ly-toggle-midi-play)
|
|
(should ly-play-midi-post-tangle))
|
|
(ly-toggle-midi-play)
|
|
(should ly-play-midi-post-tangle)
|
|
(ly-toggle-midi-play)
|
|
(should (not ly-play-midi-post-tangle))))
|
|
|
|
(ert-deftest ob-lilypond/ly-toggle-pdf-display-toggles-flag ()
|
|
(if ly-display-pdf-post-tangle
|
|
(progn
|
|
(ly-toggle-pdf-display)
|
|
(should (not ly-display-pdf-post-tangle))
|
|
(ly-toggle-pdf-display)
|
|
(should ly-display-pdf-post-tangle))
|
|
(ly-toggle-pdf-display)
|
|
(should ly-display-pdf-post-tangle)
|
|
(ly-toggle-pdf-display)
|
|
(should (not ly-display-pdf-post-tangle))))
|
|
|
|
(ert-deftest ob-lilypond/ly-toggle-arrange-mode ()
|
|
(if ly-arrange-mode
|
|
(progn
|
|
(ly-toggle-arrange-mode)
|
|
(should (not ly-arrange-mode))
|
|
(ly-toggle-arrange-mode)
|
|
(should ly-arrange-mode))
|
|
(ly-toggle-arrange-mode)
|
|
(should ly-arrange-mode)
|
|
(ly-toggle-arrange-mode)
|
|
(should (not ly-arrange-mode))))
|
|
|
|
(ert-deftest ob-lilypond/ly-toggle-png-generation-toggles-flag ()
|
|
(if ly-gen-png
|
|
(progn
|
|
(ly-toggle-png-generation)
|
|
(should (not ly-gen-png))
|
|
(ly-toggle-png-generation)
|
|
(should ly-gen-png))
|
|
(ly-toggle-png-generation)
|
|
(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
|
|
(ly-toggle-html-generation)
|
|
(should (not ly-gen-html))
|
|
(ly-toggle-html-generation)
|
|
(should ly-gen-html))
|
|
(ly-toggle-html-generation)
|
|
(should ly-gen-html)
|
|
(ly-toggle-html-generation)
|
|
(should (not ly-gen-html))))
|
|
|
|
(ert-deftest ob-lilypond/ly-switch-extension-with-extensions ()
|
|
(should (equal "test-name.xyz"
|
|
(ly-switch-extension "test-name" ".xyz")))
|
|
(should (equal "test-name.xyz"
|
|
(ly-switch-extension "test-name.abc" ".xyz")))
|
|
(should (equal "test-name"
|
|
(ly-switch-extension "test-name.abc" ""))))
|
|
|
|
(ert-deftest ob-lilypond/ly-switch-extension-with-paths ()
|
|
(should (equal "/some/path/to/test-name.xyz"
|
|
(ly-switch-extension "/some/path/to/test-name" ".xyz"))))
|
|
|
|
(ert-deftest ob-lilypond/ly-get-header-args ()
|
|
(should (equal '((:tangle . "yes")
|
|
(:noweb . "yes")
|
|
(:results . "silent")
|
|
(:comments . "yes"))
|
|
(ly-set-header-args t)))
|
|
(should (equal '((:results . "file")
|
|
(:exports . "results"))
|
|
(ly-set-header-args nil))))
|
|
|
|
(ert-deftest ob-lilypond/ly-set-header-args ()
|
|
(ly-set-header-args t)
|
|
(should (equal '((:tangle . "yes")
|
|
(:noweb . "yes")
|
|
(:results . "silent")
|
|
(:comments . "yes"))
|
|
org-babel-default-header-args:lilypond))
|
|
(ly-set-header-args nil)
|
|
(should (equal '((:results . "file")
|
|
(:exports . "results"))
|
|
org-babel-default-header-args:lilypond)))
|
|
|
|
(provide 'test-ob-lilypond)
|
|
|
|
;;; test-ob-lilypond.el ends here
|
|
|