input/regression/loglevels.ly

   1 \version "2.19.22"
   2
   3 #(ly:set-option 'warning-as-error #f)
   4 #(ly:expect-warning (_ "Test warning\n"))
   5 #(ly:expect-warning (_ "already have slur"))
   6
   7 \header{
   8   texidoc="
   9 Test the different loglevels of lilypond. Run this file with --loglevel=NONE,
  10 ERROR, WARNING, PROGRESS, DEBUG to see the different loglevels. The errors
  11 are commented out. Comment them in to check the output manually.
  12 "
  13 }
  14
  15 %%%% message functions of the Input class:
  16 #(display "\nMessage functions of the Input class:\n" (current-error-port))
  17
  18 messageTest = #(define-music-function () ()
  19    (ly:input-message (*location*) "Test ly:input-message" )
  20    (make-music 'Music))
  21
  22 {
  23 %   #(display "-) Testing message\n" (current-error-port))
  24   \messageTest % message
  25 %   #(display "-) Testing warning\n" (current-error-port))
  26   c4( c( c) % warning
  27 %   #(display "-) Testing error\n" (current-error-port))
  28 %   sr  % error
  29 }
  30
  31 %%%% message functions in the warn.hh file:
  32 #(display "Message functions in the warn.hh file:\n" (current-error-port))
  33
  34 % #(display "-) Testing debug\n" (current-error-port))
  35 #(ly:debug "Test debug\n")
  36 % #(display "-) Testing progress\n" (current-error-port))
  37 #(ly:progress "Test progress\n")
  38 % #(display "-) Testing message\n" (current-error-port))
  39 #(ly:message "Test message\n")
  40 % #(display "-) Testing warning\n" (current-error-port))
  41 #(ly:warning "Test warning\n")
  42 % #(display "-) Testing error\n" (current-error-port))
  43 % #(ly:error "Test error\n" (current-error-port))