summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-03-21 15:27:23 +0100
committerBastien Guerry <bzg@altern.org>2012-03-21 15:27:23 +0100
commiteb5a450686355560ce7b95b780f64df061715ea9 (patch)
tree9292265dee8b4bf2c6a8662f8a5fc24b4c7bb14f
parent72ca335e6cf304c719e53f7294910e4523f4cafa (diff)
downloadorg-mode-eb5a450686355560ce7b95b780f64df061715ea9.tar.gz
test-ob-lilypond.el: Whitespace cleanup.
-rw-r--r--testing/lisp/test-ob-lilypond.el23
1 files changed, 11 insertions, 12 deletions
diff --git a/testing/lisp/test-ob-lilypond.el b/testing/lisp/test-ob-lilypond.el
index 1a60eab..379ffd2 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
-