me/guix
Archived
1
0
Fork 0
Code Activity

tests: Use 'dummy-origin' for lint tests when possible.

Browse source 
* guix/tests/lint.scm ("patches: file names", "patches: not found"): Use
'dummy-origin'.  'sha256' field was wrongly set to a string instead of a
bytevector.
This commit is contained in:
Mathieu Lirzin 2016-01-24 16:28:51 +01:00
parent 03675cad53
commit 052d53df1f
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/lint.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -308,10 +308,7 @@ requests."
(with-warnings (with-warnings
(let ((pkg (dummy-package "x" (let ((pkg (dummy-package "x"
(source (source
(origin (dummy-origin
(method url-fetch)
(uri "someurl")
(sha256 "somesha")
(patches (list "/path/to/y.patch"))))))) (patches (list "/path/to/y.patch")))))))
(check-patch-file-names pkg))) (check-patch-file-names pkg)))
"file names of patches should start with the package name"))) "file names of patches should start with the package name")))
@ -322,10 +319,7 @@ requests."
(with-warnings (with-warnings
(let ((pkg (dummy-package "x" (let ((pkg (dummy-package "x"
(source (source
(origin (dummy-origin
(method url-fetch)
(uri "someurl")
(sha256 "somesha")
(patches (patches
(list (search-patch "this-patch-does-not-exist!")))))))) (list (search-patch "this-patch-does-not-exist!"))))))))
(check-patch-file-names pkg))) (check-patch-file-names pkg)))