- (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)))))