Index: input/regression/loglevels.ly |
diff --git a/input/regression/loglevels.ly b/input/regression/loglevels.ly |
new file mode 100644 |
index 0000000000000000000000000000000000000000..1c46e416d4fbf4e8d2de24b5995ba90f0cf9a48e |
--- /dev/null |
+++ b/input/regression/loglevels.ly |
@@ -0,0 +1,41 @@ |
+\version "2.15.7" |
+ |
+#(ly:set-option 'warning-as-error #f) |
+ |
+\header{ |
+ texidoc=" |
+Test the different loglevels of lilypond. Run this file with --loglevel=NONE, |
+ERROR, WARNING, PROGRESS, DEBUG to see the different loglevels. The errors |
+are commented out. Comment them in to check the output manually. |
+" |
+} |
+ |
+%%%% message functions of the Input class: |
+#(display "\nMessage functions of the Input class:\n") |
+ |
+messageTest = #(define-music-function (parser location) () |
+ (ly:input-message location "Test ly:input-message" ) |
+ (make-music 'Music)) |
+ |
+{ |
+% #(display "-) Testing message\n") |
+ \messageTest % message |
+% #(display "-) Testing warning\n") |
+ c4( c( c) % warning |
+% #(display "-) Testing error\n") |
+% sr % error |
+} |
+ |
+%%%% message functions in the warn.hh file: |
+#(display "Message functions in the warn.hh file:\n") |
+ |
+% #(display "-) Testing debug\n") |
+#(ly:debug "Test debug\n") |
+% #(display "-) Testing progress\n") |
+#(ly:progress "Test progress\n") |
+% #(display "-) Testing message\n") |
+#(ly:message "Test message\n") |
+% #(display "-) Testing warning\n") |
+#(ly:warning "Test warning\n") |
+% #(display "-) Testing error\n") |
+% #(ly:error "Test error\n") |