Test more parts of Page_turn_engraver

1 files changed, 43 insertions, 0 deletions

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