]> git.donarmstrong.com Git - lilypond.git/commitdiff
Remove test numbering in display-lily-tests
authorDavid Kastrup <dak@gnu.org>
Tue, 8 May 2012 13:30:05 +0000 (15:30 +0200)
committerDavid Kastrup <dak@gnu.org>
Fri, 11 May 2012 08:24:49 +0000 (10:24 +0200)
Numbering the tests made it impossible to extend the tests in logical order
without causing regtest output differences in unrelated output.  Failing
tests are now instead flagged using warnings, thus giving accurate
pointers to the problematic line numbers instead of numbers without
conclusive source info.  Passing tests with verbose output don't contain
any line number info.  This is a prerequisite for extending the test suite
without causing false positives.

input/regression/display-lily-tests.ly

index 22eaf893d3c2b8dc0c364aad924b061b04985961..fdec20519e816a79eb4c10c85d89a5176389114e 100644 (file)
    (make-column-markup (string-split str #\NewLine)))
 
 test =
-#(let ((test-number 0))
-  (define-void-function (parser location result-info strings)
-   ((string? "BUG") pair?)
-   (let ((input (car strings))
-        (output (cdr strings)))
-    (set! test-number (1+ test-number))
-    (if (not (equal? input output))
-     (ly:progress "Test ~a unequal: ~a. \nin  = ~a\nout = ~a\n"
-      test-number
-      result-info
+#(define-void-function (parser location harmless strings)
+  ((string?) pair?)
+  (let ((input (car strings))
+       (output (cdr strings))
+       (result-info (or harmless "BUG")))
+   (if (not (equal? input output))
+    (if harmless
+     (ly:progress "Test unequal: ~a.\nin  = ~a\nout = ~a\n"
+      harmless input output)
+     (ly:input-warning location "Test unequal: BUG.\nin  = ~a\nout = ~a\n"
       input output)))))
 
 %%%