From: David Kastrup <dak@gnu.org>
Date: Wed, 17 Apr 2013 16:53:44 +0000 (+0200)
Subject: Add rest-positioning regtest
X-Git-Tag: release/2.17.18-1~18^2~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=028ca52e641777e0eb12a4e44a0f662d1295a357;p=lilypond.git

Add rest-positioning regtest
---

diff --git a/input/regression/rest-positioning.ly b/input/regression/rest-positioning.ly
new file mode 100644
index 0000000000..a34b773586
--- /dev/null
+++ b/input/regression/rest-positioning.ly
@@ -0,0 +1,36 @@
+\version "2.17.16"
+
+\header {
+  texidoc = "This shows the single and multi voice rest positions for
+various standard and tab staffs."
+}
+
+
+\layout {
+  ragged-right = ##t
+}
+
+mus = { \mark "R1*7" R1*7 \mark "R1" R1 \mark "r1" r1 \mark "r2" r2 \mark "r4" r4*2 }
+
+\score {
+  {
+    \compressFullBarRests
+    \new StaffGroup <<
+      $@(map
+         (lambda (n)
+           #{
+    	 \new Staff \with { \override StaffSymbol.line-count = $n }
+    	 { \mus << \mus \\ \mus >> }
+           #})
+         (iota 8))
+      $@(map
+          (lambda (x)
+            #{
+	      \new TabStaff \with { stringTunings = #x }
+	      { \mus << \mus \\ \mus >> }
+	    #})
+          (list mandolin-tuning banjo-c-tuning guitar-tuning))
+    >>
+  }
+  \layout { \tabFullNotation }
+}