Imported Upstream version 2.16.0

[lilypond.git] / input / regression / define-event-function.ly

diff --git a/input/regression/define-event-function.ly b/input/regression/define-event-function.ly
new file mode 100644 (file)
index 0000000..ce88d94
--- /dev/null
+++ b/input/regression/define-event-function.ly
@@ -0,0 +1,22 @@
+\version "2.16.0"
+
+\header{
+
+  texidoc= "Tests @code{define-event-function} by creating a trivial
+function converting a markup into a dynamic script post-event.  As
+opposed to music functions, a direction indicator is not required."
+
+}
+
+\layout { ragged-right = ##t }
+
+dynScript =
+#(define-event-function (parser location text) (markup?)
+   (make-dynamic-script text))
+
+\relative c' {
+  c1\dynScript pp
+  c^\dynScript "fp"
+  c_\dynScript "spz"
+}
+