From: David Kastrup <dak@gnu.org>
Date: Wed, 3 Jun 2015 14:15:06 +0000 (+0200)
Subject: Issue 4421/5: Add regression test
X-Git-Tag: release/2.19.22-1~60
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bc5c5914120bfa4013805ae97e37012f75341a15;p=lilypond.git

Issue 4421/5: Add regression test
---

diff --git a/input/regression/music-function-direct-call.ly b/input/regression/music-function-direct-call.ly
new file mode 100644
index 0000000000..545ad9facf
--- /dev/null
+++ b/input/regression/music-function-direct-call.ly
@@ -0,0 +1,18 @@
+\version "2.19.22"
+
+\header {
+  texidoc = "Music functions can be called directly from Scheme."
+}
+
+\new Staff {
+  #(relative
+    (make-sequential-music
+     (list
+      (time '(3 2) '(5 . 4)) #{ e'8 8 8 8 8 8 8 8 8 8 #}
+      (clef "bass")
+      (key #{ a #} major)
+      (time '(3 . 4))
+      (tuplet '(2 . 3) #{ 4. #} #{ d,8 e fis gis #})
+      (key *unspecified*)
+      #{ a2. #})))
+}