Merge branch 'stable/2.16' into staging

[lilypond.git] / input / regression / stem-length-estimation.ly

diff --git a/input/regression/stem-length-estimation.ly b/input/regression/stem-length-estimation.ly
index 9714f144ee0f57899eeb3def88e74305ce97f0bf..d7c50ba466a8cfa3a8af38804aa317fa201e2420 100644 (file)
--- a/input/regression/stem-length-estimation.ly
+++ b/input/regression/stem-length-estimation.ly
@@ -1,20 +1,39 @@
-\version "2.13.22"\r
-\r
-\header {\r
-  texidoc = "Stems with overridden 'length should not confuse height estimation.\r
-This example should fit snugly on one page.\r
-"\r
-}\r
-\r
-\paper { \r
-  #(set-paper-size "a6")\r
-  tagline = ##f\r
-  between-system-spacing #'padding = #1.20\r
-}   \r
-\r
-\r
-\new Voice {\r
-  \voiceTwo\r
-  \override Staff.Stem #'length = #0\r
-  \repeat unfold 144 a\r
-}\r
+\version "2.16.0"
+
+\header {
+  texidoc = "Stems with overridden 'Y-extent should
+not confuse height estimation.  This example should fit snugly
+on one page.
+"
+}
+
+#(define (assert-single-page layout props arg)
+   (if (and (= (chain-assoc-get 'page:page-number props -1)
+               (ly:output-def-lookup layout 'first-page-number))
+            (chain-assoc-get 'page:last? props -1))
+       (interpret-markup layout props arg)
+       (ly:error "failed to fit test on single page")))
+
+\paper {
+  #(set-paper-size "a6")
+  tagline = ##f
+  indent = #0
+  system-system-spacing = #'((padding . 1.2))
+  oddHeaderMarkup = \markup \on-the-fly #assert-single-page \null
+}
+
+\book {
+  \score {
+    \new Voice {
+      \voiceTwo
+      \override Stem #'Y-extent = #'(0.0 . 0.0)
+      \repeat unfold 144 a4
+    }
+    \layout {
+      \context {
+        \Score
+        \remove "Bar_number_engraver"
+      }
+    }
+  }
+}