Release: bump Welcome versions.

[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 7368dfae34f53c847644ba8183e8aec7c6045ddd..55d86c3516f10c2ef955b7ebfe1ef463978c6a18 100644 (file)
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -1,4 +1,4 @@
-\version "2.19.21"
+\version "2.19.40"
 #(use-modules (srfi srfi-13)
               (ice-9 format))
 
@@ -15,10 +15,10 @@
                                   (char=? (peek-char port) #\]))
                              (read-char port))
                           (display c out))))))
-    `(let* ((parser-clone (ly:parser-clone parser))
+    `(let* ((parser-clone (ly:parser-clone))
             (input-str (string-trim-both ,lily-string))
             (music (ly:parse-string-expression parser-clone input-str))
-            (result-str (string-trim-both (music->lily-string music parser-clone))))
+            (result-str (string-trim-both (music->lily-string music))))
        (cons input-str result-str))))
 
 #(read-hash-extend #\[ parse-lily-and-compute-lily-string) %{ ] %}
@@ -27,7 +27,7 @@
    (make-column-markup (string-split str #\NewLine)))
 
 test =
-#(define-void-function (parser location harmless strings)
+#(define-void-function (harmless strings)
   ((string?) pair?)
   (let ((input (car strings))
        (output (cdr strings))
@@ -36,7 +36,7 @@ test =
     (if harmless
      (ly:progress "Test unequal: ~a.\nin  = ~a\nout = ~a\n"
       harmless input output)
-     (ly:input-warning location "Test unequal: BUG.\nin  = ~a\nout = ~a\n"
+     (ly:input-warning (*location*) "Test unequal: BUG.\nin  = ~a\nout = ~a\n"
       input output)))))
 
 %%%
@@ -157,6 +157,9 @@ stderr of this run."
 
 %% Marks
 \test ##[ \mark \default #]                    % MarkEvent
+\test ##[ \mark #3 #]
+\test ##[ \mark "Z" #]
+\test ##[ \mark \markup \italic "X" #]
 \test ##[ \mark "Allegro" #]
 \test ##[ \tempo 4 = 120 #]                    % MetronomeChangeEvent
 \test ##[ \tempo 4 = 108 - 116 #]
@@ -172,7 +175,7 @@ stderr of this run."
 \test ##[ \clef "bass^(15)" #]
 \test ##[ \clef "alto_3" #]
 \test ##[ \time 2/4 #]
-\test ##[ \time #'(3 2) 5/8 #]
+\test ##[ \time 3,2 5/8 #]
 \test ##[ \bar "|." #]
 
 %% staff switches
@@ -188,7 +191,7 @@ stderr of this run."
 %% pure rhythm
 \test ##[ { 4 4 8 \tuplet 3/2 { 8[ 16] } 16 } #]
 
-%% \relative and \tranpose
+%% \relative and \transpose
 \test #"NOT A BUG" ##[ \relative { c'4 b4 } #] % RelativeOctaveMusic
 \test #"NOT A BUG" ##[ \transpose c d { c4 d4 } #]     % TransposedMusic
 
@@ -212,12 +215,12 @@ stderr of this run."
   \remove "Clef_engraver"
 } { c4 d4 } #]
 %% Context properties
-\test ##[ \once \set Score . skipBars = ##t #]         % PropertySet
+\test ##[ \once \set Score.skipBars = ##t #]           % PropertySet
 \test ##[ \set autoBeaming = ##f #]
-\test ##[ \unset Score . skipBars #]           % PropertyUnset
+\test ##[ \unset Score.skipBars #]                     % PropertyUnset
 \test ##[ \unset autoBeaming #]
 %% Layout properties
-\test ##[ \override Staff.Stem.thickness = #4.0 #]             % OverrideProperty
+\test ##[ \override Staff.Stem.thickness = #4.0 #]     % OverrideProperty
 \test ##[ \once \override Beam.beam-thickness = #0.6 #]
 \test ##[ \revert Staff.Stem.thickness #]              % RevertProperty
 \test ##[ \revert Beam.beam-thickness #]
@@ -226,7 +229,8 @@ stderr of this run."
 \test ##[ \revert StaffGrouper.staff-staff-spacing.basic-distance #]    % nested properties
 
 %% \applyOutput
-\test ##[ \applyOutput #'Foo #(lambda (arg) (list)) #]
+\test ##[ \applyOutput Foo #(lambda (arg) (list)) #]
+\test ##[ \applyOutput Foo.NoteHead #(lambda (arg) (list)) #]
 %% \applyContext
 \test ##[ \applyContext #(lambda (arg) (list)) #]