Fix #339.

[lilypond.git] / input / regression / collision-dots-up-space-dotted.ly

diff --git a/input/regression/collision-dots-up-space-dotted.ly b/input/regression/collision-dots-up-space-dotted.ly
new file mode 100644 (file)
index 0000000..4175fba
--- /dev/null
+++ b/input/regression/collision-dots-up-space-dotted.ly
@@ -0,0 +1,19 @@
+\header {
+
+  texidoc = "For collisions where the upper note is dotted and in a
+  space, the upper is moved to right.  This behavior can be tuned by
+  prefer-dotted-right."
+
+  }
+
+\version "2.10.20"
+
+\paper{ ragged-right=##t }
+
+\new Staff \relative c' <<
+  { fis4.
+    \override Staff.NoteCollision #'prefer-dotted-right = ##f
+    fis4. }
+  \\
+  { \autoBeamOff e8 e e e e e e }
+>>