]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/general-scheme-bindings.ly
Merge commit '25c91d5'
[lilypond.git] / 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))