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

lint: Update tests to (guix lint) migration. 

This is a followup to f363c836e0.

* tests/lint.scm ("cve")
("cve: one vulnerability")
("cve: one patched vulnerability")
("cve: known safe from vulnerability")
("cve: vulnerability fixed in replacement version")
("cve: patched vulnerability in replacement"): Refer to
'package-vulnerabilities' from (guix lint), not (guix scripts lint).
master
Ludovic Courtès 2019-07-20 01:04:49 +02:00
parent dd3779c276
commit 571f6e7f4f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/lint.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017 Alex Kost <alezost@gmail.com>
@ -710,12 +710,12 @@
(test-equal "cve"
'()
(mock ((guix scripts lint) package-vulnerabilities (const '()))
(mock ((guix lint) package-vulnerabilities (const '()))
(check-vulnerabilities (dummy-package "x"))))
(test-equal "cve: one vulnerability"
"probably vulnerable to CVE-2015-1234"
(mock ((guix scripts lint) package-vulnerabilities
(mock ((guix lint) package-vulnerabilities
(lambda (package)
(list (make-struct (@@ (guix cve) <vulnerability>) 0
"CVE-2015-1234"
@ -726,7 +726,7 @@
(test-equal "cve: one patched vulnerability"
'()
(mock ((guix scripts lint) package-vulnerabilities
(mock ((guix lint) package-vulnerabilities
(lambda (package)
(list (make-struct (@@ (guix cve) <vulnerability>) 0
"CVE-2015-1234"
@ -742,7 +742,7 @@
(test-equal "cve: known safe from vulnerability"
'()
(mock ((guix scripts lint) package-vulnerabilities
(mock ((guix lint) package-vulnerabilities
(lambda (package)
(list (make-struct (@@ (guix cve) <vulnerability>) 0
"CVE-2015-1234"
@ -755,7 +755,7 @@
(test-equal "cve: vulnerability fixed in replacement version"
'()
(mock ((guix scripts lint) package-vulnerabilities
(mock ((guix lint) package-vulnerabilities
(lambda (package)
(match (package-version package)
("0"
@ -772,7 +772,7 @@
(test-equal "cve: patched vulnerability in replacement"
'()
(mock ((guix scripts lint) package-vulnerabilities
(mock ((guix lint) package-vulnerabilities
(lambda (package)
(list (make-struct (@@ (guix cve) <vulnerability>) 0
"CVE-2015-1234"