Imported Upstream version 2.14.2

[lilypond.git] / input / regression / to-xml.ly

diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly
index 036063fbdb594d981cd9dda33c1e9b36ddb2a71e..2ade5476e337b32d93ae2fd5e7fc96504ca37ac8 100644 (file)
--- a/input/regression/to-xml.ly
+++ b/input/regression/to-xml.ly
@@ -1,27 +1,16 @@
-\version "2.10.0"
+\version "2.14.0"
 
-fooBar =  { << c''4 \\ g'4 >> }
+testMusic =  { << c''4 \\ g'4 >> }
 
-#(ly:set-option 'parse-protect #f)
-#(load-from-path "to-xml.scm")
+#(use-modules (scm to-xml))
 
-#(music-to-xml fooBar (current-output-port))
+#(ly:progress "\nXML:\n\n~A\n" (call-with-output-string (lambda (p) (music-to-xml testMusic p))))
 
-\header {
-    texidoc = "@cindex To XML"
-       texidoc = #(string-append
-      "The input representation is very generic. Therefore, it
-      should not be hard to convert it to XML or a similar format:\n\n"
 
-      "@example\n"
-       (call-with-output-string
-              (lambda (p) (music-to-xml fooBar p))
-      )
-    "@end example" )
+\header {
+  texidoc =
+  "The input representation is generic, and may be translated to XML. "
 }
 
 
-\score {
-\fooBar
-}
-
+{ \testMusic }