diff options
| author | Marius Bakke <marius@gnu.org> | 2020-10-13 23:39:27 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-10-13 23:39:27 +0200 |
| commit | f7175626ffce578be1bc6df4916a129f86557872 (patch) | |
| tree | 2eb0040522f2883764b3e09dc36595d68eeb14c1 /tests/packages.scm | |
| parent | 2b6ecdf41a09ab9ecae06d7c537583a2f0f28efc (diff) | |
| parent | e8c5533d26b4441c96e9ae92350efcb24d787c4b (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 5d5abcbd76..2d13d91344 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -1430,6 +1430,26 @@ (derivation-file-name (package-derivation %store coreutils)))))))) +(test-assert "package-with-c-toolchain" + (let* ((dep (dummy-package "chbouib" + (build-system gnu-build-system) + (native-inputs `(("x" ,grep))))) + (p0 (dummy-package "thingie" + (build-system gnu-build-system) + (inputs `(("foo" ,grep) + ("bar" ,dep))))) + (tc (dummy-package "my-toolchain")) + (p1 (package-with-c-toolchain p0 `(("toolchain" ,tc))))) + (define toolchain-packages + '("gcc" "binutils" "glibc" "ld-wrapper")) + + (match (bag-build-inputs (package->bag p1)) + ((("foo" foo) ("bar" bar) (_ (= package-name packages) . _) ...) + (and (not (any (cut member <> packages) toolchain-packages)) + (member "my-toolchain" packages) + (eq? foo grep) + (eq? bar dep)))))) + (test-equal "package-patched-vulnerabilities" '(("CVE-2015-1234") ("CVE-2016-1234" "CVE-2018-4567") |