From: David Kastrup <dak@gnu.org>
Date: Thu, 22 Sep 2011 00:55:05 +0000 (+0200)
Subject: Regtest for define-event-function
X-Git-Tag: release/2.15.13-1~28^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=75a65381fe069bcf98bfd5e5ea686ae83ff07681;p=lilypond.git

Regtest for define-event-function
---

diff --git a/input/regression/define-event-function.ly b/input/regression/define-event-function.ly
new file mode 100644
index 0000000000..0778c2121b
--- /dev/null
+++ b/input/regression/define-event-function.ly
@@ -0,0 +1,22 @@
+\version "2.15.13"
+
+\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"
+}
+