~ruther/guix-local: lint: Check for more types of custom 'check phases.

f0aa6c45b6ef15a79be3320fb3df9ac83418634d — Dariqq 1 year, 8 months ago 66b807f

lint: Check for more types of custom 'check phases.

* guix/lint.scm (check-optional-tests): Also check for add-before and
add-after when adding custom 'check phases.

Change-Id: Idc959f90d7e9aa9d5001f34e00f88b41aa20fb2a
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

patch browse .tar.gz .zip

1 files changed, 4 insertions(+), 0 deletions(-)

M guix/lint.scm

M guix/lint.scm => guix/lint.scm +4 -0

@@ 1457,6 1457,10 @@ password, provided REF's URI is HTTP or HTTPS."
     (match delta
       (`(replace 'check ,expression)
        (check-check-procedure expression))
+      (`(add-after ,_ 'check ,expression)
+       (check-check-procedure expression))
+      (`(add-before ,_ 'check ,expression)
+       (check-check-procedure expression))
       (_ '())))
   (define (check-phases-deltas deltas)
     (append-map check-phases-delta deltas))