X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fharp-pedals-sanity-checks.ly;h=f3e8dd5e9f0c54f6e12bfcac1bb759bbfc5e0484;hb=16d46fb0995cc6d078617ada1e8fea7879dffe07;hp=38c4f450898801fe7c3be12f644cd1e2ab360a02;hpb=d664f5a7153ec2b1a1c4c9fba2d2174bf3140695;p=lilypond.git

diff --git a/input/regression/harp-pedals-sanity-checks.ly b/input/regression/harp-pedals-sanity-checks.ly
index 38c4f45089..f3e8dd5e9f 100644
--- a/input/regression/harp-pedals-sanity-checks.ly
+++ b/input/regression/harp-pedals-sanity-checks.ly
@@ -1,4 +1,11 @@
-\version "2.12.0"
+\version "2.19.21"
+
+#(ly:set-option 'warning-as-error #f)
+#(ly:expect-warning (_ "Harp pedal diagram contains dividers at positions ~a.  Normally, there is only one divider after the third pedal.") '(1 3 5))
+#(ly:expect-warning (_ "Harp pedal diagram contains dividers at positions ~a.  Normally, there is only one divider after the third pedal.") '(4))
+#(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 5)
+#(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
+
 
 \header {
   texidoc = "The harp-pedal markup function does some sanity checks. All 
@@ -6,9 +13,10 @@ the diagrams here violate the standard (7 pedals with divider after third), so
 a warning is printed out, but they should still look okay."
 }
 
-\relative c'' {
+\relative {
+  \override Score.PaperColumn.keep-inside-line = ##f
   % Sanity checks: #pedals != 7:
-  c1^\markup \harp-pedal #"^-v|--"
+  c''1^\markup \harp-pedal #"^-v|--"
   % Sanity checks: no divider, multiple dividers, divider on wrong position:
   c1^\markup \harp-pedal #"^-v--v^"
   c1^\markup \harp-pedal #"^|-v|--|v^"