Hey all,

looks like I’m having quite a few problems with ob-lilypond (Org-mode version 
8.2.7b). To ensure that my setup is correct I ran the tests mentioned on 
http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-lilypond.html#sec-9:

M-x load-file RET 
~/path/to/current/org-mode-git-repository/testing/lisp/test-ob-lilypond.el
M-x ert RET RET

And this is what I got (short version):

Selector: t
Passed: 6
Failed: 36 (36 unexpected)
Total:  42/42

Started at:   2015-03-25 13:32:19+0100
Finished.
Finished at:  2015-03-25 13:32:19+0100

...FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF…F

Am I missing something? How can I get this to work?

Thanks for any help!
patrick

Error message (long version):
Selector: t
Passed: 6
Failed: 36 (36 unexpected)
Total:  42/42

Started at:   2015-03-25 13:32:19+0100
Finished.
Finished at:  2015-03-25 13:32:19+0100

...FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF...F

F ob-lilypond/ly-arrange-mode
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-arrange-mode))
      :form
      (boundp org-babel-lilypond-arrange-mode)
      :value nil))

F ob-lilypond/ly-attempt-to-open-pdf
    (void-variable org-babel-lilypond-display-pdf-post-tangle)

F ob-lilypond/ly-attempt-to-play-midi
    (void-variable org-babel-lilypond-play-midi-post-tangle)

F ob-lilypond/ly-check-for-compile-error
    (void-function org-babel-lilypond-check-for-compile-error)

F ob-lilypond/ly-command-ly/bound
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-ly-command))
      :form
      (boundp org-babel-lilypond-ly-command)
      :value nil))

F ob-lilypond/ly-command-ly/stringp
    (void-variable org-babel-lilypond-ly-command)

F ob-lilypond/ly-command-midi/bound
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-midi-command))
      :form
      (boundp org-babel-lilypond-midi-command)
      :value nil))

F ob-lilypond/ly-command-midi/stringp
    (void-variable org-babel-lilypond-midi-command)

F ob-lilypond/ly-command-pdf/bound
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-pdf-command))
      :form
      (boundp org-babel-lilypond-pdf-command)
      :value nil))

F ob-lilypond/ly-command-pdf/stringp
    (void-variable org-babel-lilypond-pdf-command)

F ob-lilypond/ly-commands/customize
    (ert-test-failed
     ((should
       (equal
        (list org-babel-lilypond-ly-command org-babel-lilypond-pdf-command 
org-babel-lilypond-midi-command)
        (list "nonsense" "bla" "fasel")))
      :form
      (equal
       (nil nil nil)
       ("nonsense" "bla" "fasel"))
      :value nil :explanation
      (list-elt 0
                (different-types nil "nonsense"))))

F ob-lilypond/ly-commands/darwin
    (ert-test-failed
     ((should
       (equal
        (list org-babel-lilypond-ly-command org-babel-lilypond-pdf-command 
org-babel-lilypond-midi-command)
        (list "/Applications/lilypond.app/Contents/Resources/bin/lilypond" 
"open" "open")))
      :form
      (equal
       (nil nil nil)
       ("/Applications/lilypond.app/Contents/Resources/bin/lilypond" "open" 
"open"))
      :value nil :explanation
      (list-elt 0
                (different-types nil 
"/Applications/lilypond.app/Contents/Resources/bin/lilypond"))))

F ob-lilypond/ly-commands/other
    (ert-test-failed
     ((should
       (equal
        (list org-babel-lilypond-ly-command org-babel-lilypond-pdf-command 
org-babel-lilypond-midi-command)
        (list "lilypond" "xdg-open" "xdg-open")))
      :form
      (equal
       (nil nil nil)
       ("lilypond" "xdg-open" "xdg-open"))
      :value nil :explanation
      (list-elt 0
                (different-types nil "lilypond"))))

F ob-lilypond/ly-commands/windows-nt
    (ert-test-failed
     ((should
       (equal
        (list org-babel-lilypond-ly-command org-babel-lilypond-pdf-command 
org-babel-lilypond-midi-command)
        (list "lilypond" "" "")))
      :form
      (equal
       (nil nil nil)
       ("lilypond" "" ""))
      :value nil :explanation
      (list-elt 0
                (different-types nil "lilypond"))))

F ob-lilypond/ly-compile-lilyfile
    (void-variable org-babel-lilypond-ly-command)

F ob-lilypond/ly-compile-post-tangle
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-compile-post-tangle))
      :form
      (boundp org-babel-lilypond-compile-post-tangle)
      :value nil))

F ob-lilypond/ly-display-pdf-post-tangle
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-display-pdf-post-tangle))
      :form
      (boundp org-babel-lilypond-display-pdf-post-tangle)
      :value nil))

F ob-lilypond/ly-gen-html
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-gen-pdf))
      :form
      (boundp org-babel-lilypond-gen-pdf)
      :value nil))

F ob-lilypond/ly-gen-png
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-gen-png))
      :form
      (boundp org-babel-lilypond-gen-png)
      :value nil))

F ob-lilypond/ly-gen-svg
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-gen-svg))
      :form
      (boundp org-babel-lilypond-gen-svg)
      :value nil))

F ob-lilypond/ly-get-header-args
    (void-function org-babel-lilypond-set-header-args)

F ob-lilypond/ly-mark-error-line
    (void-function org-babel-lilypond-mark-error-line)

F ob-lilypond/ly-parse-error-line
    (void-function org-babel-lilypond-parse-error-line)

F ob-lilypond/ly-parse-line-num
    (void-function org-babel-lilypond-parse-line-num)

F ob-lilypond/ly-play-midi-post-tangle
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-play-midi-post-tangle))
      :form
      (boundp org-babel-lilypond-play-midi-post-tangle)
      :value nil))

F ob-lilypond/ly-process-compile-error
    (ert-test-failed
     ((should
       (equal 238
              (point)))
      :form
      (equal 238 1)
      :value nil :explanation
      (different-atoms
       (238 "#xee" "?î")
       (1 "#x1" "?"))))

F ob-lilypond/ly-set-header-args
    (void-function org-babel-lilypond-set-header-args)

F ob-lilypond/ly-switch-extension-with-extensions
    (void-function org-babel-lilypond-switch-extension)

F ob-lilypond/ly-switch-extension-with-paths
    (void-function org-babel-lilypond-switch-extension)

F ob-lilypond/ly-toggle-arrange-mode
    (void-variable org-babel-lilypond-arrange-mode)

F ob-lilypond/ly-toggle-html-generation-toggles-flag
    (void-variable org-babel-lilypond-gen-html)

F ob-lilypond/ly-toggle-midi-play-toggles-flag
    (void-variable org-babel-lilypond-play-midi-post-tangle)

F ob-lilypond/ly-toggle-pdf-display-toggles-flag
    (void-variable org-babel-lilypond-display-pdf-post-tangle)

F ob-lilypond/ly-toggle-pdf-generation-toggles-flag
    (void-variable org-babel-lilypond-gen-pdf)

F ob-lilypond/ly-toggle-png-generation-toggles-flag
    (void-variable org-babel-lilypond-gen-png)

F ob-lilypond/use-eps
    (ert-test-failed
     ((should
       (boundp 'org-babel-lilypond-use-eps))
      :form
      (boundp org-babel-lilypond-use-eps)
      :value nil))

Reply via email to