X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fto-xml.ly;h=1ac46ee0ef75b57c50b71f70292334b0541afac5;hb=9551796a06445e9570d5481a73aff11f1d259568;hp=036063fbdb594d981cd9dda33c1e9b36ddb2a71e;hpb=31b82cda2639591fd180f2c174ded1737b673336;p=lilypond.git

diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly
index 036063fbdb..1ac46ee0ef 100644
--- a/input/regression/to-xml.ly
+++ b/input/regression/to-xml.ly
@@ -1,27 +1,16 @@
-\version "2.10.0"
+\version "2.12.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 }