civodul pushed a commit to branch master
in repository guix.
commit 571f6e7f4f75a01746a0880c99e0cc33fbafbe2a
Author: Ludovic Courtès <[email protected]>
Date: Sat Jul 20 01:04:49 2019 +0200
lint: Update tests to (guix lint) migration.
This is a followup to f363c836e0b4c416dae594af4257459da592b35c.
* 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).
---
tests/lint.scm | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/tests/lint.scm b/tests/lint.scm
index 59be061..5127a84 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Cyril Roelandt <[email protected]>
;;; Copyright © 2014, 2015, 2016 Eric Bavier <[email protected]>
-;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <[email protected]>
+;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès
<[email protected]>
;;; Copyright © 2015, 2016 Mathieu Lirzin <[email protected]>
;;; Copyright © 2016 Hartmut Goebel <[email protected]>
;;; Copyright © 2017 Alex Kost <[email protected]>
@@ -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"
