summaryrefslogtreecommitdiff
path: root/input
diff options
context:
space:
mode:
authorThomas Morley <thomasmorley65@gmail.com>2016-08-27 00:32:30 +0200
committerThomas Morley <thomasmorley65@gmail.com>2016-09-02 22:38:28 +0200
commit46a056a27c59a31ed53f20e27f8e2772dcbea0d0 (patch)
treedb3e0007d7e68dc40d5ae5bb5536ca350dccebde /input
parentd6e93146b9f25e914373caeced7314237cc53e2f (diff)
Issue 4960 Fix micro-tones assigned to strings in TabStaff
This is an oversight from issue 4643 Also extending input/regression/tablature-micro-tone.ly to cover this case.
Diffstat (limited to 'input')
-rw-r--r--input/regression/tablature-micro-tone.ly17
1 files changed, 13 insertions, 4 deletions
diff --git a/input/regression/tablature-micro-tone.ly b/input/regression/tablature-micro-tone.ly
index 461dd2f824..a7f891c048 100644
--- a/input/regression/tablature-micro-tone.ly
+++ b/input/regression/tablature-micro-tone.ly
@@ -8,11 +8,17 @@ in @code{Score}-context.
@code{FretBoards} will print those micro-tones only if they can be found in the
chosen settings for @code{stringTunings}, otherwise a warning (surpressed here)
will be printed and an empty @code{FretBoard} returned. Which should be the
-case here for the first pitch: @code{gih}"
+case for the last four of the examples pitches.
+Micro-tones assigned to strings work nicely."
}
#(ly:set-option 'warning-as-error #f)
-#(ly:expect-warning (_ "No string for pitch ~a (given frets ~a)") #{ gih #} '())
+#(for-each
+ (lambda (pitch)
+ (ly:expect-warning (_ "No string for pitch "))
+ (ly:expect-warning (_ "Requested string for pitch requires negative fret"))
+ (ly:expect-warning (_ "Ignoring string request and recalculating.")))
+ (iota 4))
\layout {
\context {
@@ -24,8 +30,7 @@ case here for the first pitch: @code{gih}"
custom-tuning = \stringTuning <e, a, d ges beh eeh'>
mus = \relative {
- gih4
- eeses'
+ eeses'4
eeseh
ees
eeh
@@ -34,6 +39,10 @@ mus = \relative {
eis
eisih
eisis
+ geseh,,\6
+ geh\6
+ gih\6
+ gisih\6
}
<<