From 2fecabf3a5cb332c78b58b02f78c7c64d5c89c19 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sat, 24 Aug 2013 16:35:37 +0200
Subject: [PATCH] Add regression test add-grace-property.ly for issue 3505

---
 input/regression/add-grace-property.ly | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 input/regression/add-grace-property.ly

diff --git a/input/regression/add-grace-property.ly b/input/regression/add-grace-property.ly
new file mode 100644
index 0000000000..65940464d8
--- /dev/null
+++ b/input/regression/add-grace-property.ly
@@ -0,0 +1,25 @@
+\version "2.17.25"
+
+\header {
+  texidoc = "@code{\\add-grace-property} can be used at various
+context levels in order to override grace properties.  Overrides in
+different parallel contexts are independent."
+}
+
+<<
+ \new Staff = "1" \with { instrumentName =
+			  \markup \center-column { Voice mensural } }
+   \new Voice \with { $(add-grace-property 'Voice 'NoteHead 'style 'mensural)
+		      $(add-grace-property 'Score 'NoteHead 'style 'cross) }
+   { \grace d'8 c'1 \bar "|." }
+
+ \new Staff = "2" \with { instrumentName =
+			  \markup \center-column { Voice diamond } }
+   \new Voice \with { $(add-grace-property 'Voice 'NoteHead 'style 'diamond)   }
+   { \grace d'8 c'1 }
+
+ \new Staff = "3" \with { instrumentName =
+			  \markup \center-column { Score cross } }
+   \new Voice
+   { \grace d'8 c'1 }
+>>
-- 
2.39.2