From ce9929fadfcdb1426eec4ea228aaf68db7fd2db3 Mon Sep 17 00:00:00 2001 From: Romain GARBAGE Date: Wed, 18 Mar 2026 15:47:08 +0100 Subject: profiles: Add manifest generator based on build-system. * guix/profiles.scm (build-system->manifest): New procedure. * doc/guix.texi (Writing Manifests): Document it. * tests/profiles.scm: Test it. Merges: #7272 Change-Id: Iaba54d5d4a1a9ae304de45f91374098617adebfc Signed-off-by: Simon Tournier --- tests/profiles.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'tests') diff --git a/tests/profiles.scm b/tests/profiles.scm index f63c0773cb3..55e7146a7a0 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013-2023 Ludovic Courtès ;;; Copyright © 2014 Alex Kost +;;; Copyright © 2026 Simon Tournier ;;; ;;; This file is part of GNU Guix. ;;; @@ -271,6 +272,18 @@ (manifest-pattern (name name)))) '("gcc" "binutils" "glibc" "coreutils" "grep" "sed")))) +(test-assert "build-system->manifest" + (let* ((package packages:hello) + (development-manifest (package->development-manifest package)) + (build-system-manifest (build-system->manifest (package-build-system + package))) + (development-entries (manifest-entries development-manifest)) + (build-system-entries (manifest-entries build-system-manifest))) + (and (eqv? (length development-entries) + (length build-system-entries)) + (null? (lset-difference manifest-entry=? + development-entries build-system-entries))))) + (test-assertm "profile-derivation" (mlet* %store-monad ((entry -> (package->manifest-entry %bootstrap-guile)) -- cgit v1.2.3