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 <zimon.toutoune@gmail.com>

1 files changed, 13 insertions, 0 deletions

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 <ludo@gnu.org>
 ;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
+;;; Copyright © 2026 Simon Tournier <zimon.toutoune@gmail.com>
 ;;;
 ;;; 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))