X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Floglevels.ly;h=91b239a3e0c6309963d9b3ff99f7152689ccc2d9;hb=330a2873ed46f66d5abcefda22a633d1137cfb0e;hp=880c6375e0d0dd9d4b71d1e642cad7723a6aa2f9;hpb=a066a93ee74edebb9d238a1bac93c3bc7e8e6e4a;p=lilypond.git

diff --git a/input/regression/loglevels.ly b/input/regression/loglevels.ly
index 880c6375e0..91b239a3e0 100644
--- a/input/regression/loglevels.ly
+++ b/input/regression/loglevels.ly
@@ -1,6 +1,8 @@
-\version "2.15.9"
+\version "2.19.22"
 
 #(ly:set-option 'warning-as-error #f)
+#(ly:expect-warning (_ "Test warning\n"))
+#(ly:expect-warning (_ "already have slur"))
 
 \header{
   texidoc="
@@ -11,31 +13,31 @@ 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")
+#(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" )
+messageTest = #(define-music-function () ()
+   (ly:input-message (*location*) "Test ly:input-message" )
    (make-music 'Music))
 
 {
-%   #(display "-) Testing message\n")
+%   #(display "-) Testing message\n" (current-error-port))
   \messageTest % message
-%   #(display "-) Testing warning\n")
+%   #(display "-) Testing warning\n" (current-error-port))
   c4( c( c) % warning
-%   #(display "-) Testing error\n")
+%   #(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")
+#(display "Message functions in the warn.hh file:\n" (current-error-port))
 
-% #(display "-) Testing debug\n")
+% #(display "-) Testing debug\n" (current-error-port))
 #(ly:debug "Test debug\n")
-% #(display "-) Testing progress\n")
+% #(display "-) Testing progress\n" (current-error-port))
 #(ly:progress "Test progress\n")
-% #(display "-) Testing message\n")
+% #(display "-) Testing message\n" (current-error-port))
 #(ly:message "Test message\n")
-% #(display "-) Testing warning\n")
+% #(display "-) Testing warning\n" (current-error-port))
 #(ly:warning "Test warning\n")
-% #(display "-) Testing error\n")
-% #(ly:error "Test error\n")
+% #(display "-) Testing error\n" (current-error-port))
+% #(ly:error "Test error\n" (current-error-port))