-\version "2.11.6"
-
+\version "2.13.20"
#(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)
(let ((input (car strings))
(output (cdr strings)))
(set! test-number (1+ test-number))
- (if (string=? input output)
- (make-music 'SequentialMusic 'void #t)
- (make-music 'SequentialMusic
- 'elements
- (list (ly:parser-lookup parser 'fatText)
- (make-music 'EventChord
- 'elements (list (make-music 'LineBreakEvent
- 'break-permission 'force)))
- (make-music 'EventChord
- 'elements (list (make-music 'SkipEvent
- 'duration (ly:make-duration 0 0 1 1))
- (make-music 'TextScriptEvent
- 'direction -1
- 'text (markup #:column
- (#:simple (format #f "Test #~a " test-number)
- (if (string-null? result-info)
- (markup #:bold "BUG")
- (markup #:simple result-info))
- #:typewriter (lily-string->markup input)
- #:typewriter (lily-string->markup output)))))))))))))
-
+ (if (not (equal? input output))
+ (ly:progress "Test ~a unequal: ~a. \nin = ~a\nout = ~a\n"
+ test-number
+ (if result-info
+ result-info "BUG")
+ input output))
+ (make-music 'SequentialMusic 'void #t)))))
test =
#(define-music-function (parser location result-info strings) (string? pair?)
%%% Tests
%%%
\header {
- texidoc = \markup \column { \line { \typewriter display-lily-music unit tests }
- \line { Real bugs (regressions) are marked as \bold BUG. }
- \line { Known bugs are marked as TODO. } }
-}
-
-\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"
- }
+ texidoc = "This is a test of the display-lily-music unit. Problems are reported on the
+stderr of this run."
}
%% Sequential music
\test "" ##[ R1.*2/3 #] % MultiMeasureRestMusicGroup, MultiMeasureRestEvent
\test "" ##[ \skip 2.*3/4 #] % SkipMusic
\test "" ##[ < c\1 e\3 >4.*3/4-. #] % EventChord, NoteEvent, StringNumberEvent, ArticulationEvent
+\test "NOT A BUG" ##[ { < c e g c' > q8-. } #] % RepeatedChord
%% tags
\test "" ##[ { \tag #'foo { c4 d } } #]
\test "" ##[ \lyricmode { a -- b } #] % HyphenEvent
\test "" ##[ \lyricmode { a __ b } #] % ExtenderEvent
\test "" ##[ \lyricmode { "a " } #] % LyricEvent
-\test "" ##[ \lyricsto "foo" { bla bla } #] % LyricCombineMusic
+\test "" ##[ \lyricsto "foo" { bla bla } #] % LyricCombineMusic
\test "" ##[ { { c d }
- \addlyrics { bla bla } } #]
+ \addlyrics { bla bla } } #]
%% Drums
\test "" ##[ \drums { hihat } #]
\test "" ##[ { c-1 c^2 c_3 } #] % FingerEvent
\test "" ##[ { c-"foo" c^"foo" c_"foo" } #] % TextScriptEvent
\test "" ##[ { R1*4-"foo" R^"foo" R_"foo" } #] % MultiMeasureTextEvent
-\test "" ##[ { c4-\harmonic c^\harmonic c_\harmonic } #] % HarmonicEvent
+\test "" ##[ { < c\harmonic >4 < c e\harmonic > } #] % HarmonicEvent
\test "" ##[ { c-\glissando c^\glissando c_\glissando } #] % GlissandoEvent
\test "" ##[ { c-\arpeggio c^\arpeggio c_\arpeggio } #] % ArpeggioEvent
\test "" ##[ { c\p c^\ff c_\sfz } #] % AbsoluteDynamicEvent
\test "" ##[ { c( c) c^( c^) c_( c_) } #] % SlurEvent
\test "" ##[ { c\< c\! c^\< c^\! c_\< c_\! } #] % CrescendoEvent
\test "" ##[ { c\> c\! c^\> c^\! c_\> c_\! } #] % DecrescendoEvent
+\test "" ##[ { c\episemInitium c\episemFinis } #] % EpisemaEvent
\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 "" ##[ \breathe #]
\test "" ##[ { c \[ c \] } #] % LigatureEvent
\test "" ##[ \~ #] % PesOrFlexaEvent
+\test "" ##[ { c-\bendAfter #3 } #] % BendAfterEvent
\test "" ##[ \break #]
\test "" ##[ \noBreak #]
\test "" ##[ \noPageTurn #]
%% Checks
-\test "" ##[ \octave a' #] % RelativeOctaveCheck
+\test "" ##[ \octaveCheck a' #] % RelativeOctaveCheck
\test "" ##[ | #] % BarCheck
%% Marks
\test "" ##[ \mark \default #] % MarkEvent
\test "" ##[ \mark "Allegro" #]
\test "" ##[ \tempo 4 = 120 #] % MetronomeChangeEvent
+\test "" ##[ \tempo 4 = 108 ~ 116 #]
+\test "" ##[ \tempo "Allegro" 4 = 132 #]
+\test "" ##[ \tempo "Andante" #]
%% key, time, clef, bar
\test "" ##[ \key \default #] % KeyChangeEvent
%% 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 } } #] %
\test "" ##[ \unset autoBeaming #]
%% Layout properties
\test "" ##[ \override Staff . Stem #'thickness = #4.0 #] % OverrideProperty
-\test "" ##[ \once \override Beam #'thickness = #0.6 #]
+\test "" ##[ \once \override Beam #'beam-thickness = #0.6 #]
\test "" ##[ \revert Staff . Stem #'thickness #] % RevertProperty
-\test "" ##[ \revert Beam #'thickness #]
+\test "" ##[ \revert Beam #'beam-thickness #]
%% \applyOutput
\test "" ##[ \applyOutput #'Foo #(lambda (arg) (list)) #]
%% \partial
\test "" ##[ \partial 2 #]
\test "" ##[ \partial 8. #]
-\test #"TODO? exotic durations in \\partial" ##[ \partial 4*2/3 #]
+\test "" ##[ \partial 4*2/3 #]
%% \partcombine
\test "" ##[ \partcombine { c e }
%% Cue notes
\test "" ##[ \cueDuring #"foo" #1 { c d } #]
\test "" ##[ \quoteDuring #"foo" { c d } #]
+
+%% \ottava
+\test "" ##[ \ottava #1 #] % OttavaMusic
+
+%% end test.
+
+#(read-hash-extend #\[ #f) %{ ] %}
projects / lilypond.git / blobdiff