-\version "2.17.25"
+\version "2.19.40"
#(use-modules (srfi srfi-13)
(ice-9 format))
(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) %{ ] %}
(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))
(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)))))
%%%
%% 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 #]
\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
%% pure rhythm
\test ##[ { 4 4 8 \tuplet 3/2 { 8[ 16] } 16 } #]
-%% \relative and \tranpose
-\test #"NOT A BUG" ##[ \relative c' { c4 b4 } #] % RelativeOctaveMusic
+%% \relative and \transpose
+\test #"NOT A BUG" ##[ \relative { c'4 b4 } #] % RelativeOctaveMusic
\test #"NOT A BUG" ##[ \transpose c d { c4 d4 } #] % TransposedMusic
%% Repeats
\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 #]
\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)) #]