input/regression/general-scheme-bindings.ly

   1 \header {
   2
   3   texidoc = "This file tests various Scheme utiliity functions."
   4
   5 }
   6
   7
   8 \version "2.11.8"
   9
  10 %% todo : use macro, to show the statement tested.
  11 #(ly:progress "~a\n" (ly:expand-environment "${HOME} $HOME $$ "))
  12
  13
  14 %% very platform dependent.
  15 %% #(ly:font-config-display-fonts)
  16
  17 #(ly:progress "~A\n" (ly:duration->string (ly:make-duration 2 2 3 7)))
  18 #(ly:parser-parse-string (ly:parser-clone parser) "foo  = #1 #(ly:progress \"hello there\n\")")
  19
  20 #(ly:progress "~a\n" (ly:truncate-list! (iota 5) 10))
  21 #(ly:progress "~a\n" (ly:truncate-list! (iota 10) 5))