Imported Upstream version 2.14.2

[lilypond.git] / input / regression / display-lily-tests.ly

diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly
index 516fbb4acbfa469b6c0438d7948c70b245e6b71a..c156234cb86b12fce2a3dbc4d59e3628a13843b2 100644 (file)
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -1,11 +1,12 @@
-\version "2.11.6"
+\version "2.14.2"
 #(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)
@@ -39,13 +40,9 @@
          (if result-info
              result-info "BUG")
           input output))
+     (make-music 'SequentialMusic 'void #t)))))
 
-
-     (make-music 'SequentialMusic 'void #t)
-    
-   ))))
-         
-test = 
+test =
 #(define-music-function (parser location result-info strings) (string? pair?)
    (test-function parser location result-info strings))
 
@@ -54,10 +51,9 @@ test =
 %%%
 \header {
   texidoc = "This is a test of the display-lily-music unit. Problems are reported on the
-stderr of this run." 
+stderr of this run."
 }
 
-
 %% Sequential music
 \test "" ##[ { { a b } { c d } } #]            % SequentialMusic
 \test "" ##[ << { a b } { c d } >> #]          % SimultaneousMusic
@@ -80,6 +76,8 @@ stderr of this run."
 \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 "" ##[ < c-1\4 >8 #]
+\test "NOT A BUG" ##[ { < c e g c' > q8-. } #] % RepeatedChord
 
 %% tags
 \test "" ##[ { \tag #'foo { c4 d } } #]
@@ -104,9 +102,9 @@ stderr of this run."
 \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 } #]
@@ -128,7 +126,7 @@ stderr of this run."
 \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
@@ -136,9 +134,10 @@ stderr of this run."
 \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
@@ -149,6 +148,8 @@ stderr of this run."
 \test "" ##[ \breathe #]
 \test "" ##[ { c \[ c \] } #]                  % LigatureEvent
 \test "" ##[ \~ #]                                     % PesOrFlexaEvent
+\test "" ##[ { c-\bendAfter #3  } #] % BendAfterEvent
+\test "" ##[ < c-\rightHandFinger #1 > #] % StrokeFingerEvent
 
 \test "" ##[ \break #]
 \test "" ##[ \noBreak #]
@@ -158,13 +159,16 @@ stderr of this run."
 \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
@@ -191,10 +195,9 @@ stderr of this run."
 %% 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 "" ##[ \repeat volta 2 { c4 d } \alternative { { c d } { e f } } #] %
 
 %% Context creation
 \test "" ##[ \new Staff { c d } #]                     % ContextSpeccedMusic
@@ -213,9 +216,9 @@ stderr of this run."
 \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)) #]
@@ -225,7 +228,7 @@ stderr of this run."
 %% \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 }
@@ -235,6 +238,14 @@ stderr of this run."
 \test "" ##[ \cueDuring #"foo" #1 { c d } #]
 \test "" ##[ \quoteDuring #"foo" { c d } #]
 
+%% \ottava
+\test "" ##[ \ottava #1 #] % OttavaMusic
+
+%% \tweak
+\test "" ##[ < \tweak #'duration-log #2 c > #]
+\test "" ##[ < c \tweak #'transparent ##t e > #]
+\test "" ##[ < \tweak #'color #'(1.0 0.0 0.0) \tweak #'duration-log #2 c > #]
+\test "" ##[ c-\tweak #'font-size #3 -> #]
 
 %% end test.