test-ob-lilypond.el: Whitespace cleanup.

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
-