1\version "2.21.0"
2
3#(ly:set-option 'warning-as-error #f)
4#(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 0)
5#(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
6#(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 1)
7#(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
8#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "a")
9#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "s")
10#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "d")
11#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "f")
12#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "x")
13
14
15\header {
16  texidoc = "Basic harp diagram functionality, including circled pedal boxes.
17The third diagram uses an empty string, the third contains invalid characters.
18Both cases will create warnings, but should still not fail with an error."
19}
20
21\relative {
22  c''1^\markup \harp-pedal "^v-|vv-^"
23  % circled boxes:
24  c1^\markup \harp-pedal "o^ovo-|vovo-o^"
25  % invalid pedal specifications, which still should be handled gracefully:
26  c1^\markup \harp-pedal ""
27  c1^\markup \harp-pedal "asfdvx" %\break
28}
29