input/regression/harp-pedals-sanity-checks.ly

   1 \version "2.16.0"
   2
   3 #(ly:set-option 'warning-as-error #f)
   4 #(ly:expect-warning (_ "Harp pedal diagram contains dividers at positions ~a.  Normally, there is only one divider after the third pedal.") '(1 3 5))
   5 #(ly:expect-warning (_ "Harp pedal diagram contains dividers at positions ~a.  Normally, there is only one divider after the third pedal.") '(4))
   6 #(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 5)
   7 #(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
   8
   9
  10 \header {
  11   texidoc = "The harp-pedal markup function does some sanity checks. All
  12 the diagrams here violate the standard (7 pedals with divider after third), so
  13 a warning is printed out, but they should still look okay."
  14 }
  15
  16 \relative c'' {
  17   \override Score.PaperColumn #'keep-inside-line = ##f
  18   % Sanity checks: #pedals != 7:
  19   c1^\markup \harp-pedal #"^-v|--"
  20   % Sanity checks: no divider, multiple dividers, divider on wrong position:
  21   c1^\markup \harp-pedal #"^-v--v^"
  22   c1^\markup \harp-pedal #"^|-v|--|v^"
  23   c1^\markup \harp-pedal #"^-v-|-v^"
  24 }