-\version "2.15.9"
+\version "2.19.22"
#(ly:set-option 'warning-as-error #f)
#(ly:expect-warning (_ "Test warning\n"))
}
%%%% 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))