]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/general-scheme-bindings.ly
Don't test ly:font-config-display-fonts
[lilypond.git] / input / regression / general-scheme-bindings.ly
index f4ebf049b3e60a120181e9c98c1a12e1809c0440..acbf4e0bd08d90f2960f9c15106035e2bd856a75 100644 (file)
@@ -8,9 +8,14 @@
 \version "2.11.8"
 
 %% todo : use macro, to show the statement tested. 
-#(ly:progress "~a" (ly:expand-environment "${HOME} $HOME $$ "))
-#(ly:font-config-display-fonts)
-#(ly:progress "~A" (ly:duration->string (ly:make-duration 2 2 3 7)))
+#(ly:progress "~a\n" (ly:expand-environment "${HOME} $HOME $$ "))
 
 
+%% very platform dependent.
+%% #(ly:font-config-display-fonts)
+
+#(ly:progress "~A\n" (ly:duration->string (ly:make-duration 2 2 3 7)))
 #(ly:parser-parse-string (ly:parser-clone parser) "foo  = #1 #(ly:progress \"hello there\n\")")
+
+#(ly:progress "~a\n" (ly:truncate-list! (iota 5) 10))
+#(ly:progress "~a\n" (ly:truncate-list! (iota 10) 5))