-\version "2.12.0"
+\version "2.13.20"
#(use-modules (srfi srfi-13)
(ice-9 format))
result-info "BUG")
input output))
(make-music 'SequentialMusic 'void #t)))))
-
+
test =
#(define-music-function (parser location result-info strings) (string? pair?)
(test-function parser location result-info strings))
\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 "" ##[ \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
%% \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 }
\test "" ##[ \cueDuring #"foo" #1 { c d } #]
\test "" ##[ \quoteDuring #"foo" { c d } #]
+%% \ottava
+\test "" ##[ \ottava #1 #] % OttavaMusic
%% end test.