+#(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 0)
+#(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
+#(ly:expect-warning (_ "Harp pedal diagram contains ~a pedals rather than the usual 7.") 1)
+#(ly:expect-warning (_ "Harp pedal diagram does not contain a divider (usually after third pedal)."))
+#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "a")
+#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "s")
+#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "d")
+#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "f")
+#(ly:expect-warning (_ "Unhandled entry in harp-pedal: ~a" ) "x")
+