nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix lint: make sure check-patches retrieves patch names. 

* guix/lint (check-patches): Test the output of origin-patches.
This commit is contained in:
Cyril Roelandt 2014-09-27 21:32:27 +02:00
parent 0c115d8c64
commit 90d104ba82
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/scripts/lint.scm
View File

@ -152,10 +152,15 @@ Run a set of checkers on the specified package; if none is specified, run the ch
(name (package-name package)) (name (package-name package))
(full-name (package-full-name package))) (full-name (package-full-name package)))
(if (and patches (if (and patches
(any (lambda (patch) (any (match-lambda
((? string? patch)
(let ((filename (basename patch))) (let ((filename (basename patch)))
(not (or (eq? (string-contains filename name) 0) (not (or (eq? (string-contains filename name) 0)
(eq? (string-contains filename full-name) 0))))) (eq? (string-contains filename full-name)
0)))))
(_
;; This must be an <origin> or something like that.
#f))
patches)) patches))
(emit-warning package (emit-warning package
"file names of patches should start with the package name" "file names of patches should start with the package name"