input/regression/to-xml.ly

   1 \version "2.10.0"
   2
   3 testMusic =  { << c''4 \\ g'4 >> }
   4
   5 #(load-from-path "to-xml.scm")
   6
   7 #(ly:progress "\nXML:\n\n~A\n"
   8   (call-with-output-string
   9    (lambda (p) (music-to-xml testMusic p))))
  10
  11 \header {
  12   texidoc =
  13   "The input representation is generic, and may be translated to XML. "
  14 }
  15
  16
  17 { \testMusic }
  18