From 5e8d9233d3276215e643ebc414c1701308e03dad Mon Sep 17 00:00:00 2001
From: Dan Eble <nine.fierce.ballads@gmail.com>
Date: Thu, 6 Nov 2014 08:44:02 -0500
Subject: [PATCH] Add regtest for mensural and neomensural time signature
 styles.

Add regtest for "compound" time signatures that are merely simple
fractions and compound time signatures with simple-fraction
components.
---
 .../compound-time-signature-style.ly          | 14 ++++++++
 input/regression/time-signature-mensural.ly   | 35 +++++++++++++++++++
 2 files changed, 49 insertions(+)
 create mode 100644 input/regression/compound-time-signature-style.ly
 create mode 100644 input/regression/time-signature-mensural.ly

diff --git a/input/regression/compound-time-signature-style.ly b/input/regression/compound-time-signature-style.ly
new file mode 100644
index 0000000000..531536147d
--- /dev/null
+++ b/input/regression/compound-time-signature-style.ly
@@ -0,0 +1,14 @@
+\version "2.19.16"
+
+\header {
+    texidoc = "Simple-fraction components of a compound time signature are numeric regardless of the time signature style.
+"
+}
+
+\relative b' {
+  \compoundMeter #'(2 2) b1
+  \compoundMeter #'(4 4) b1
+  \compoundMeter #'((1 1) (2 2)) b\breve
+  \compoundMeter #'((2 2) (4 4)) b\breve
+  \compoundMeter #'((4 4) (3 3 2 8)) b\breve
+}
diff --git a/input/regression/time-signature-mensural.ly b/input/regression/time-signature-mensural.ly
new file mode 100644
index 0000000000..3f80eb2642
--- /dev/null
+++ b/input/regression/time-signature-mensural.ly
@@ -0,0 +1,35 @@
+\version "2.19.16"
+
+\header {
+  texidoc = "This test covers the mensural and neomensural time signature styles."
+}
+
+% N.B. It's strange that these warnings are doubled.
+#(ly:expect-warning "time signature symbol `mensural11' not found")
+#(ly:expect-warning "time signature symbol `mensural11' not found")
+#(ly:expect-warning "time signature symbol `neomensural11' not found")
+#(ly:expect-warning "time signature symbol `neomensural11' not found")
+
+\layout { indent = 0 }
+
+testMusic = \relative f' {
+    \time 4/4 \partial 4 f4
+    \time 2/2 \partial 4 f4
+    \time 6/4 \partial 4 f4
+    \time 6/8 \partial 4 f4
+    \time 3/2 \partial 4 f4
+    \time 3/4 \partial 4 f4
+    \time 9/4 \partial 4 f4
+    \time 9/8 \partial 4 f4
+    \time 4/8 \partial 4 f4
+    \time 2/4 \partial 4 f4
+    \time 1/1 \partial 4 f4
+}
+
+\new Staff {
+    \override Staff.TimeSignature.break-visibility = ##(#f #t #t)
+    \override Staff.TimeSignature.style = #'mensural
+    \testMusic \break
+    \override Staff.TimeSignature.style = #'neomensural
+    \testMusic \break
+}
-- 
2.39.2