From acf95352b9668ca01e861c1ad6b6593c6db4bfad Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Sun, 23 Nov 2025 11:10:13 +0200
Subject: [PATCH] tests: debian-install: Fix debian-13 qcow2 image.

* gnu/tests/foreign.scm (debian-13-qcow2): Adjust source uri to point to
the same image.

Change-Id: I975140f2febcf0781e6a9c67981b3896629de050
---
 gnu/tests/foreign.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm
index 2d587953dd2d28a70cdb26ca50b168e615715ad4..fc55dcd63dee14a68e730e696523343d24f595b5 100644
--- a/gnu/tests/foreign.scm
+++ b/gnu/tests/foreign.scm
@@ -285,13 +285,16 @@ of DEB-FILES with 'dpkg -i'."
 (define debian-13-qcow2
   ;; Image taken from <https://www.debian.org/distrib/>.
   ;; XXX: Those images are periodically removed from debian.org.
-  (origin
-    (uri
-     "https://cloud.debian.org/images/cloud/trixie/latest/debian-13-nocloud-amd64.qcow2")
-    (method url-fetch)
-    (sha256
-     (base32
-      "0g7kcvz2yzr0xchlv5kc8d2rd2lzk4akh02i43i92cmys7q3r05c"))))
+  (let ((image-date "20251006-2257"))
+    (origin
+      (uri (string-append "https://cloud.debian.org/images/cloud/trixie/"
+                          image-date "/debian-13-nocloud-amd64-"
+                          image-date ".qcow2"))
+      (method url-fetch)
+      (file-name "debian-13-nocloud-amd64.qcow2")
+      (sha256
+       (base32
+        "0g7kcvz2yzr0xchlv5kc8d2rd2lzk4akh02i43i92cmys7q3r05c")))))
 
 (define debian-uidmap-deb-file
   ;; This package provides 'newgidmap' & co., used by the unprivileged daemon.