From 93309efdce72ac5028944d5c1f7b081a7f62b84a Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sun, 4 Dec 2022 00:50:28 -0500
Subject: [PATCH] tests: Fix guix-system.sh test.

The regression was introduce with commit
c7793b82efd3383a9f7adf0dfa82d71ee032e41b ("gnu: raspberry-pi: Add a
bootloader-chain for the Raspberry Pi and os examples.") due to the examples
needing to be built for the aarch64-linux system.

* tests/guix-system.sh: Invoke guix system build with '--system=aarch64-linux'
to build the Raspberry Pi systems.
---
 tests/guix-system.sh | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/guix-system.sh b/tests/guix-system.sh
index a59bd9a6b91..16c02e6e4c9 100644
--- a/tests/guix-system.sh
+++ b/tests/guix-system.sh
@@ -342,6 +342,10 @@ for example in gnu/system/examples/*.tmpl; do
 	    # 'asus-c201.tmpl' uses 'linux-libre-arm-generic', which is an
 	    # ARM-only package.
             options="--system=armhf-linux";;
+        *raspberry*)
+	    # The Raspberry Pi templates 'linux-libre-arm64-generic', which is
+	    # an ARM-only package.
+            options="--system=aarch64-linux";;
 	*vm-image*)
 	    # The VM image tries to build 'current-guix' as per 'guix pull'.
 	    # Skip it.