David Kastrup <[email protected]> writes: > Thomas Morley <[email protected]> writes: > >> (define (lily-string->markup str) ...) >> seems to be unused (same in display-lily-tests.ly) any reason not to >> delete it? > > Oh. That's the problem with copy&paste jobs. I'll take a look.
That's -- disconcerting. This was an oversight in
commit 3950ed69e317c3ecb5d4552f2da7232dd827288f Author: Han-Wen Nienhuys <[email protected]> Date: Sat Jan 6 19:55:38 2007 +0100 print display-lily-tests results with ly:progress diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly index a6b1dacac7..b492940ddf 100644 --- a/input/regression/display-lily-tests.ly +++ b/input/regression/display-lily-tests.ly @@ -34,28 +34,18 @@ (let ((input (car strings)) (output (cdr strings))) (set! test-number (1+ test-number)) - (if (string=? input output) - (make-music 'SequentialMusic 'void #t) - (make-music 'SequentialMusic - 'elements - (list (ly:parser-lookup parser 'fatText) - (make-music 'EventChord - 'elements (list (make-music 'LineBreakEvent - 'break-permission 'force))) - (make-music 'EventChord - 'elements (list (make-music 'SkipEvent - 'duration (ly:make-duration 0 0 1 1)) - (make-music 'TextScriptEvent - 'direction -1 - 'text (markup #:column - (#:simple (format #f "Test #~a " test-number) - (if (string-null? result-info) - (markup #:bold "BUG") - (markup #:simple result-info)) - #:typewriter (lily-string->markup input) - #:typewriter (lily-string->markup output))))))))))))) - + (if (not (equal? input output)) + (ly:progress "Test ~a unequal: ~a. \nin = ~a\nout = ~a\n" + test-number + (if result-info + result-info "BUG") + input output)) + + (make-music 'SequentialMusic 'void #t) + + )))) + test = #(define-music-function (parser location result-info strings) (string? pair?) (test-function parser location result-info strings)) @@ -64,9 +54,8 @@ test = %%% Tests %%% \header { - texidoc = \markup \column { \line { \typewriter display-lily-music unit tests } - \line { Real bugs (regressions) are marked as \bold BUG. } - \line { Known bugs are marked as TODO. } } + texidoc = "This is a test of the display-lily-music unit. Problems are reported on the +stderr of this run." } \layout { @@ -260,3 +249,8 @@ test = %% Cue notes \test "" ##[ \cueDuring #"foo" #1 { c d } #] \test "" ##[ \quoteDuring #"foo" { c d } #] + + +%% end test. + +#(read-hash-extend #\[ #f) %{ ] %}
which stops the regtest from producing useful printed output. -- David Kastrup
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
