]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/display-lily-tests.ly
Issue 4422/5: Run scripts/auxiliar/update-with-convert-ly.sh
[lilypond.git] / input / regression / display-lily-tests.ly
index 7368dfae34f53c847644ba8183e8aec7c6045ddd..8a6a1a5c943749a7e454da080cdbbf18e71b121b 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.19.21"
+\version "2.19.22"
 #(use-modules (srfi srfi-13)
               (ice-9 format))
 
@@ -27,7 +27,7 @@
    (make-column-markup (string-split str #\NewLine)))
 
 test =
-#(define-void-function (parser location harmless strings)
+#(define-void-function (harmless strings)
   ((string?) pair?)
   (let ((input (car strings))
        (output (cdr strings))
@@ -36,7 +36,7 @@ test =
     (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"
+     (ly:input-warning (*location*) "Test unequal: BUG.\nin  = ~a\nout = ~a\n"
       input output)))))
 
 %%%