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>
This commit is contained in:
Dariqq 2024-11-06 10:46:48 +00:00 committed by Ludovic Courtès
parent 66b807fddc
commit f0aa6c45b6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1457,6 +1457,10 @@ password, provided REF's URI is HTTP or HTTPS."
(match delta (match delta
(`(replace 'check ,expression) (`(replace 'check ,expression)
(check-check-procedure 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) (define (check-phases-deltas deltas)
(append-map check-phases-delta deltas)) (append-map check-phases-delta deltas))