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 (file)
index 0000000..545ad9f
--- /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. #})))
+}