From: Frederic Bron <frederic.bron@m4x.org>
Date: Wed, 11 Jul 2012 04:47:55 +0000 (+0200)
Subject: added test for beamExceptions that failed in 2.15.39 in 3/4 for 1/32nd notes
X-Git-Tag: release/2.15.42-1~67
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a2fcb88e9f4ffb1097d934f7ebb5dca0551687da;p=lilypond.git

added test for beamExceptions that failed in 2.15.39 in 3/4 for 1/32nd notes
---

diff --git a/input/regression/auto-beam-exceptions.ly b/input/regression/auto-beam-exceptions.ly
new file mode 100644
index 0000000000..c62e303121
--- /dev/null
+++ b/input/regression/auto-beam-exceptions.ly
@@ -0,0 +1,50 @@
+\version "2.15.42"
+
+\header {
+
+  doctitle = "beamExceptions"
+
+  texinfo = "beamExceptions is used to modify the automatic beaming for certain durations;
+  the expected grouping is given after the note duration"
+
+}
+
+\relative c' {
+  \time 2/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 16 c32
+  \time 3/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 24 c32
+  c8 c32 c32 c32 c32 c16 c16 c32 c32 c32 c32 c16 c32 c32 c32 c32 c32 c32
+  \time 4/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 32 c32
+  \time 6/8
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 24 c32
+}