Imported Upstream version 2.16.0

[lilypond.git] / input / regression / loglevels.ly

diff --git a/input/regression/loglevels.ly b/input/regression/loglevels.ly
new file mode 100644 (file)
index 0000000..23ff272
--- /dev/null
+++ b/input/regression/loglevels.ly
@@ -0,0 +1,43 @@
+\version "2.16.0"
+
+#(ly:set-option 'warning-as-error #f)
+#(ly:expect-warning (_ "Test warning\n"))
+#(ly:expect-warning (_ "already have slur"))
+
+\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" (current-error-port))
+
+messageTest = #(define-music-function (parser location) ()
+   (ly:input-message location "Test ly:input-message" )
+   (make-music 'Music))
+
+{
+%   #(display "-) Testing message\n" (current-error-port))
+  \messageTest % message
+%   #(display "-) Testing warning\n" (current-error-port))
+  c4( c( c) % warning
+%   #(display "-) Testing error\n" (current-error-port))
+%   sr  % error
+}
+
+%%%% message functions in the warn.hh file:
+#(display "Message functions in the warn.hh file:\n" (current-error-port))
+
+% #(display "-) Testing debug\n" (current-error-port))
+#(ly:debug "Test debug\n")
+% #(display "-) Testing progress\n" (current-error-port))
+#(ly:progress "Test progress\n")
+% #(display "-) Testing message\n" (current-error-port))
+#(ly:message "Test message\n")
+% #(display "-) Testing warning\n" (current-error-port))
+#(ly:warning "Test warning\n")
+% #(display "-) Testing error\n" (current-error-port))
+% #(ly:error "Test error\n" (current-error-port))