\version "2.11.6"
-
#(use-modules (srfi srfi-13)
(ice-9 format))
%%%
%%% Testing utilities
%%%
-
+#(use-modules (scm display-lily))
+#(memoize-clef-names supported-clefs)
#(define (parse-lily-and-compute-lily-string chr port)
(let ((lily-string (call-with-output-string
(lambda (out)
(if result-info
result-info "BUG")
input output))
-
-
- (make-music 'SequentialMusic 'void #t)
-
- ))))
+ (make-music 'SequentialMusic 'void #t)))))
test =
#(define-music-function (parser location result-info strings) (string? pair?)
stderr of this run."
}
-\layout {
- raggedright = ##t
- indent = 0\cm
- \context {
- \Staff
- \override StaffSymbol #'line-count = #1
- \remove "Time_signature_engraver"
- \remove "Clef_engraver"
- }
- \context {
- \Score
- \remove "Bar_number_engraver"
- }
-}
-
%% Sequential music
\test "" ##[ { { a b } { c d } } #] % SequentialMusic
\test "" ##[ << { a b } { c d } >> #] % SimultaneousMusic