From: Phil Holmes <mail@philholmes.net>
Date: Sat, 4 Feb 2012 15:09:22 +0000 (+0000)
Subject: Directs regtest output for last 2 files to stderr
X-Git-Tag: release/2.15.29-1~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6f058d910b1db70c7adf9cf4394c7c3aae8a648d;hp=eb472840de8a97a13dc3c2e5bd1af3279f88dc79;p=lilypond.git

Directs regtest output for last 2 files to stderr
---

diff --git a/input/regression/loglevels.ly b/input/regression/loglevels.ly
index 705ed3299d..93abbf00b2 100644
--- a/input/regression/loglevels.ly
+++ b/input/regression/loglevels.ly
@@ -13,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" )
    (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))
diff --git a/input/regression/scheme-engraver.ly b/input/regression/scheme-engraver.ly
index d5fefc6507..115429f90c 100644
--- a/input/regression/scheme-engraver.ly
+++ b/input/regression/scheme-engraver.ly
@@ -16,18 +16,18 @@
        (lambda (trans)
 	(display (list "initialize"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'start-translation-timestep
        (lambda (trans)
 	(display (list "start-trans"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'listeners
        (list
 	(cons 'rest-event (lambda (engraver event)
 			   (let*
 			    ((x (ly:engraver-make-grob engraver 'TextScript event)))
-			    (display (list "caught event" event "\ncreate:\n" x "\n"))
+			    (display (list "caught event" event "\ncreate:\n" x "\n") (current-error-port))
 			    (ly:grob-set-property! x 'text "hi"))
 			   ))
        ))
@@ -35,36 +35,36 @@
        (list
 	(cons 'note-head-interface
 	 (lambda (engraver grob source-engraver)
-	  (display (list "saw head: " grob " coming from " source-engraver))
+	  (display (list "saw head: " grob " coming from " source-engraver) (current-error-port))
 	  ))
 	))
       (cons 'end-acknowledgers
        (list
 	(cons 'beam-interface
 	 (lambda (engraver grob source-engraver)
-	  (display (list "saw end of beam: " grob " coming from " source-engraver))
+	  (display (list "saw end of beam: " grob " coming from " source-engraver) (current-error-port))
 	  ))
 	))
       (cons 'process-music
        (lambda (trans)
 	(display (list "process-music"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'process-acknowledged
        (lambda (trans)
 	(display (list "process-acknowledged"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'stop-translation-timestep
        (lambda (trans)
 	(display (list "stop-trans"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'finalize
        (lambda (trans)
 	(display (list "finalize"
 		  (ly:context-current-moment
-		   (ly:translator-context trans)) "\n"))))
+		   (ly:translator-context trans)) "\n") (current-error-port))))
     )
 
 		}}