Imported Upstream version 2.16.0

[lilypond.git] / input / regression / push-to-tag.ly

diff --git a/input/regression/push-to-tag.ly b/input/regression/push-to-tag.ly
new file mode 100644 (file)
index 0000000..5b229c1
--- /dev/null
+++ b/input/regression/push-to-tag.ly
@@ -0,0 +1,26 @@
+\version "2.16.0"
+
+\header{
+  texidoc="
+Adding material to a tag in sequential and simultaneous expressions
+using @code{\\pushToTag} and @code{\\appendToTag}.  One should get the
+equivalent of
+@example
+@{ c' e' g' <<c' e' g' c''>> <<c'' g' e' c'>> g' e' c' @}
+@end example
+"
+}
+
+\layout { ragged-right = ##t }
+
+test = { \tag #'here { \tag #'here <<c''>> }}
+
+{
+  \pushToTag #'here c'
+  \pushToTag #'here e'
+  \pushToTag #'here g' \test
+  \appendToTag #'here c'
+  \appendToTag #'here e'
+  \appendToTag #'here g' \test
+}
+