-\version "2.11.6"
+\version "2.12.0"
#(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."
}
-
%% Sequential music
\test "" ##[ { { a b } { c d } } #] % SequentialMusic
\test "" ##[ << { a b } { c d } >> #] % SimultaneousMusic
\test "" ##[ { c\< c\! c^\< c^\! c_\< c_\! } #] % CrescendoEvent
\test "" ##[ { c\> c\! c^\> c^\! c_\> c_\! } #] % DecrescendoEvent
\test "" ##[ { c\( c\) c^\( c^\) c_\( c_\) } #] % PhrasingSlurEvent
-\test "" ##[ { c\sustainDown c\sustainUp } #] % SustainEvent
-\test "" ##[ { c\sostenutoDown c\sostenutoUp } #] % SostenutoEvent
+\test "" ##[ { c\sustainOn c\sustainOff } #] % SustainEvent
+\test "" ##[ { c\sostenutoOn c\sostenutoOff } #] % SostenutoEvent
\test "" ##[ \melisma #]
\test "" ##[ \melismaEnd #]
\test "" ##[ { c\startTextSpan c\stopTextSpan } #] % TextSpanEvent
\test "" ##[ \noPageTurn #]
%% Checks
-\test "" ##[ \octave a' #] % RelativeOctaveCheck
+\test "" ##[ \octaveCheck a' #] % RelativeOctaveCheck
\test "" ##[ | #] % BarCheck
%% Marks
%% Repeats
\test "" ##[ \repeat volta 2 { c d } #] % VoltaRepeatedMusic
\test "" ##[ \repeat unfold 2 { c d } #] % UnfoldedRepeatedMusic
-\test "" ##[ \repeat fold 2 { c d } #] % FoldedRepeatedMusic
\test "" ##[ \repeat percent 2 { c d } #] % PercentRepeatedMusic
\test "" ##[ \repeat tremolo 4 { c16 d } #] % TremoloRepeatedMusic
\test "" ##[ \repeat volta 2 { c4 d } \alternative { { c d } { e f } } #] %