Issue 4561/2: Add regtest for \inherit-acceptability

[lilypond.git] / input / regression / slur-multiple.ly

diff --git a/input/regression/slur-multiple.ly b/input/regression/slur-multiple.ly
index 21cb4440717165706ee91b35c3a370d4c0705f1c..a5e8b38c6061885d878f8fa49eb7a222b1adef94 100644 (file)
--- a/input/regression/slur-multiple.ly
+++ b/input/regression/slur-multiple.ly
@@ -1,6 +1,9 @@
-\version "2.15.5"
+\version "2.19.22"
 
 #(ly:set-option 'warning-as-error #f)
+#(ly:expect-warning (_ "already have slur"))
+#(ly:expect-warning (_ "cannot end slur"))
+#(ly:expect-warning (_ "unterminated slur"))
 
 \header {
   texidoc = "LilyPond does not support multiple concurrent slurs with the 
@@ -9,13 +12,14 @@ slur will not be generated.  However, one can can create a second slur with
 a different spanner-id."
 }
 
-altSlur = #(make-music 'SlurEvent 'span-direction START 'spanner-id "alt")
-altSlurEnd = #(make-music 'SlurEvent 'span-direction STOP 'spanner-id "alt")
+sp=#(define-event-function (n e) (index? ly:event?)
+     (set! (ly:music-property e 'spanner-id) (format "sp~a" n))
+     e)
 
-\relative c'' { 
+\relative { 
   % This will give warnings ("Already have slur" and "Cannot end slur")
-  c4(( d4)( e4) f) |
-  % This will give two overlapping slurs:
-  d(  d\altSlur e) f\altSlurEnd |
+  c''4((\sp1( d4)(\sp1( e4) f) |
+  % This will give two overlapping slurs and "unterminated slur" from above
+  d(  d\sp2( e) f\sp2) |
   
 }