Merge branch 'master' of git://git.sv.gnu.org/lilypond

[lilypond.git] / input / regression / measure-grouping.ly

diff --git a/input/regression/measure-grouping.ly b/input/regression/measure-grouping.ly
index 2eca7d467f055904b486c56faba25805d7e6e83e..64a1e8153d4a2539b51fd70875bc9bc39016c656 100644 (file)
--- a/input/regression/measure-grouping.ly
+++ b/input/regression/measure-grouping.ly
@@ -1,25 +1,34 @@
+
 \header
 {
-texidoc = "The Measure_grouping_engraver adds triangles and brackets above beats
-when you set beatGrouping.
 
-(unfinished.)
-"
+  texidoc = "The @code{Measure_grouping_engraver} adds triangles and
+brackets above beats when the beats of a time signature are grouped.  "
+
 }
-\score { \notes
+
+\version "2.10.0"
+
+
+%% TODO: should have 2/4 + 5/8 time sig style.
+
 \context Staff
-        {
-            \time 8/4
-            \property Staff.beatGrouping = #'(3 3) 
-            c4 c c c
-            c4
-            \property Staff.beatGrouping = #'()
-            c c c
-            
-        }
-        \paper  {
-            \translator { \StaffContext
-                          \consists "Measure_grouping_engraver"
-                          }
-            }
-        }
+\relative c' {
+  #(set-time-signature 2 4) 
+  c8 a'4 a8~
+  #(set-time-signature 5 8 '(3 2)) 
+  a8 bes4 r8 bes8->
+  \time 2/4
+  c,8 g'4 g8~
+  #(set-time-signature 5 8 '(3 2)) 
+  g8 a4 g a4.->
+}
+\layout  {
+  ragged-right = ##t
+  \context {
+    \Staff
+    \consists "Measure_grouping_engraver"
+  }
+}
+
+