From: Graham Percival <graham@percival-music.ca>
Date: Tue, 5 Jun 2007 07:32:40 +0000 (-0700)
Subject: Brown paper bag: undo accidently deletion of regtest.
X-Git-Tag: release/2.11.26-1~6^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f604d2f2f7f03cbbd43182c14ef20647d16f87d8;p=lilypond.git

Brown paper bag: undo accidently deletion of regtest.
---

diff --git a/input/regression/page-label.ly b/input/regression/page-label.ly
index e69de29bb2..9f40328cf4 100644
--- a/input/regression/page-label.ly
+++ b/input/regression/page-label.ly
@@ -0,0 +1,42 @@
+\version "2.11.25"
+
+\header {
+  texidoc = "Page labels may be placed inside music or at top-level,
+and refered to in markups."
+}
+
+#(set-default-paper-size "a6")
+
+#(define-markup-command (toc-line layout props label text) (symbol? markup?)
+  (interpret-markup layout props
+   (markup #:fill-line (text #:page-ref label "8" "?"))))
+
+\markup \huge \fill-line { \null "Title Page" \null }
+
+\pageBreak
+
+\markup \column {
+  \large \fill-line { \null "Table of contents" \null }
+  \toc-line #'toc "Table of contents"
+  \toc-line #'firstScore "First Score"
+  \toc-line #'markA "Mark A"
+  \toc-line #'markB "Mark B"
+  \toc-line #'markC "Mark C"
+  \toc-line #'unknown "Unknown label"
+} \label #'toc
+
+\pageBreak
+
+\score {
+  { c'2 c'
+    \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA 
+    c' c'
+    \pageBreak
+    \mark "B" \label #'markB
+    d' d'
+    d' d'
+    \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
+    \mark "C" \label #'markC
+  }
+  \header { piece = "First score" }
+} \label #'firstScore
\ No newline at end of file