tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

transformations: ‘package-with-upstream-version’ can preserve patches.

Browse Source 
* guix/transformations.scm (upstream-fetch): New procedure.
(package-with-upstream-version): Add #:preserve-patches? and honor it.

Change-Id: Ib56b84957d8bdad2eebe2551e2a6e477506fc55e
This commit is contained in:
Ludovic Courtès
2024-11-28 17:28:46 +01:00
parent c6050cce28
commit dbce5c2d47
2 changed files with 52 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
tests/transformations.scm
View File

@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016-2017, 2019-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016-2017, 2019-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2021 Marius Bakke <marius@gnu.org>
;;;
;;; This file is part of GNU Guix.
@@ -497,6 +497,35 @@
(let ((new (t coreutils)))
(assq-ref (package-properties new) 'transformations))))
(test-equal "package-with-upstream-version"
'("42.0" "42.0"
("http://example.org")
("a" "b") (do something))
(mock ((guix upstream) %updaters
(delay (list (upstream-updater
(name 'dummy)
(pred (const #t))
(description "")
(import (const (upstream-source
(package "foo")
(version "42.0")
(urls '("http://example.org")))))))))
(let* ((old (dummy-package "foo" (version "1.0")
(source (dummy-origin
(patches '("a" "b"))
(snippet '(do something))))))
(new (package-with-upstream-version old))
(new+patches (package-with-upstream-version
old #:preserve-patches? #t)))
(list (package-version new) (package-version new+patches)
;; Source of NEW is directly an <upstream-source>.
(upstream-source-urls (package-source new))
;; Check that #:preserve-patches? #t gave us an origin.
(origin-patches (package-source new+patches))
(origin-snippet (package-source new+patches))))))
(test-equal "options->transformation, with-latest"
"42.0"
(mock ((guix upstream) %updaters