More collision tests.

diff --git a/input/regression/slur-script.ly b/input/regression/slur-script.ly
index bc861e76199a23ebb020b4f5cbf0f361a5c2f171..8ba56f913623e7e6c127906bb36a2745847602a6 100644 (file)
--- a/input/regression/slur-script.ly
+++ b/input/regression/slur-script.ly
@@ -1,22 +1,29 @@
 
 \header {
 
-    texidoc = "Slurs avoid collisions with scripts. If you want to
-have a different configuration, the scripts must be moved manually."
+    texidoc = "A slur avoids collisions with scripts.  Only articulations
+    go inside the slur, dynamic markings, fingerings texts etc. go outside
+    of slur.
 
+    For different configurations, the scripts can be moved manually."
     }
 
 \version "2.3.7"
 \paper { raggedright = ##t }
+\relative
 {
-    \once \override Script #'padding = #1.2
-    b8-.( b-.
-    \once \override Script #'padding = #1.2
-    b-.)
-    
-    b-.( b-. b-.)
+    b4-.( b-. b-.)
     b--( b-- b--)
     b->( b-> b->)
     b-.--( b-.-- b-.--)
     b---.( b---. b---.)
+
+    b_1( b b_1_2_3)
+    c-1_\markup { \italic {"cresc."}}( f c)
+    c-1( f\f c)
+    c-1( c\f c)
+    \once \override Script #'padding = #1.2
+    b-.( b-.
+    \once \override Script #'padding = #1.2
+    b-.)
 }