From 7d496a828e54ae3ecd0007094e845f1e7c52c5ca Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 2 Dec 2010 21:40:47 +0000
Subject: [PATCH] Tweak regression test to account for spacing changes/bug
 fixes.

---
 input/regression/stem-length-estimation.ly | 28 ++++++++++++++++++----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/input/regression/stem-length-estimation.ly b/input/regression/stem-length-estimation.ly
index 11d1bdd7b7..18697f726b 100644
--- a/input/regression/stem-length-estimation.ly
+++ b/input/regression/stem-length-estimation.ly
@@ -6,14 +6,32 @@ 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
-  system-system-spacing #'padding = #1.20
+  system-system-spacing = #'((padding . 1.2))
+  oddHeaderMarkup = \markup \on-the-fly #assert-single-page \null
 }
 
-\new Voice {
-  \voiceTwo
-  \override Staff.Stem #'length = #0
-  \repeat unfold 144 a
+\book {
+  \score {
+    \new Voice {
+      \voiceTwo
+      \override Stem #'length = #0
+      \repeat unfold 144 a4
+    }
+    \layout {
+      \context {
+        \Score
+        \remove "Bar_number_engraver"
+      }
+    }
+  }
 }
-- 
2.39.5