From: Joe Neeman <joeneeman@gmail.com>
Date: Sun, 7 Jan 2007 09:25:32 +0000 (+0200)
Subject: Test more parts of Page_turn_engraver
X-Git-Tag: release/2.11.11-1~45^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eea610885f6fb119644954939af8eb08450639f6;p=lilypond.git

Test more parts of Page_turn_engraver
---

diff --git a/input/regression/page-turn-page-breaking-repeats.ly b/input/regression/page-turn-page-breaking-repeats.ly
new file mode 100644
index 0000000000..f43184dec3
--- /dev/null
+++ b/input/regression/page-turn-page-breaking-repeats.ly
@@ -0,0 +1,43 @@
+\version "2.10.0"
+
+\header {
+  texidoc = "The page-turn engraver will not count potential page
+turns if they occur in the middle of a repeat unless there is a
+long gap at the beginning or at the end of the repeat.
+"
+}
+
+\layout {
+  \context {
+    \Staff
+    \consists "Page_turn_engraver"
+  }
+}
+
+\book {
+  \paper {
+    #(define page-breaking ly:page-turn-breaking)
+    paper-height = #80
+    print-page-number = ##t
+    print-first-page-number = ##t
+  }
+
+  \score {
+    \relative {
+      \set Score.skipBars = ##t
+      % this should be kept on one page
+      \repeat volta 2 {
+	\repeat unfold 7 {a4 b c d16 d d d} R1*10
+	\repeat unfold 8 {a4 b c d16 d d d} \pageTurn
+      }
+      % use up a page
+      a4 b c d a b c d \pageBreak
+
+      % this should be allowed to have a page turn
+      \repeat volta 2 {
+	\repeat unfold 7 {a4 b c d16 d d d} R1*10
+	\repeat unfold 7 {a4 b c d16 d d d} R1*3
+      }
+    }
+  }
+}
\ No newline at end of file