From: David Kastrup <dak@gnu.org>
Date: Tue, 8 Sep 2015 13:16:28 +0000 (+0200)
Subject: Issue 4609/6: Regtest for \once \revert
X-Git-Tag: release/2.19.28-1~5^2~8^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c7632cdcacc566dac0bd8a1382ae2fda5d33cda3;p=lilypond.git

Issue 4609/6: Regtest for \once \revert
---

diff --git a/input/regression/revert-once.ly b/input/regression/revert-once.ly
new file mode 100644
index 0000000000..e8cad6c9e8
--- /dev/null
+++ b/input/regression/revert-once.ly
@@ -0,0 +1,30 @@
+\version "2.19.28"
+
+\header {
+  texidoc = "@code{\\once \\revert} can be used for reverting a property
+once rather than permanently."
+}
+
+\layout {
+  ragged-right = ##t
+}
+
+\relative {
+  c'4-"b" d-"b"
+  \override NoteHead.color = #red
+  e4-"r" f-"r" |
+  \once \override NoteHead.color = #green
+  g4-"g" a-"r"
+  \once \revert NoteHead.color
+  b-"b" c-"r" |
+  \temporary \override NoteHead.color = #yellow
+  g-"y" e-"y"
+  \once \revert NoteHead.color
+  d-"r" c-"y" |
+  \revert NoteHead.color
+  d-"r" e-"r"
+  \once \revert NoteHead.color
+  f-"b" d-"r" |
+  \revert NoteHead.color
+  c1-"b"
+}