From 1d6ed6a4eb48c39c058a5a758ebd886e19e9cad2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Vin=C3=ADcius=20Ferr=C3=A3o?=
 <2031761+viniciusferrao@users.noreply.github.com>
Date: Mon, 27 Jul 2026 15:19:33 -0300
Subject: [PATCH] test(genesis): cover InfiniBand module packaging
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Vinícius Ferrão <2031761+viniciusferrao@users.noreply.github.com>
---
 xCAT-test/unit/genesis_ib_modules.t | 40 +++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 xCAT-test/unit/genesis_ib_modules.t

diff --git a/xCAT-test/unit/genesis_ib_modules.t b/xCAT-test/unit/genesis_ib_modules.t
new file mode 100644
index 000000000..ef2c3f36e
--- /dev/null
+++ b/xCAT-test/unit/genesis_ib_modules.t
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use File::Spec;
+use FindBin;
+use Test::More;
+
+my $repo_root = File::Spec->rel2abs(File::Spec->catdir($FindBin::Bin, '..', '..'));
+
+my $spec = read_file('xCAT-genesis-builder/xCAT-genesis-base.spec');
+like($spec, qr/^BuildRequires:\s+kernel-core$/m, 'genesis build installs the kernel core');
+like($spec, qr/^BuildRequires:\s+kernel-modules$/m, 'genesis build installs the standard kernel modules');
+like($spec, qr/^BuildRequires:\s+kernel-modules-extra$/m, 'genesis build installs the extra kernel modules');
+
+my $dracut_module = read_file('xCAT-genesis-builder/dracut_105/el/module-setup.sh');
+like(
+    $dracut_module,
+    qr/installkernel\(\) \{.*?modules_dep=.*?while IFS= read -r modfile;.*?instmods "\$modname".*?done < "\$modules_dep"/s,
+    'genesis dracut module installs every module available to the build'
+);
+
+my $doxcat = read_file('xCAT-genesis-scripts/usr/bin/doxcat');
+like($doxcat, qr/^modprobe ib_ipoib$/m, 'genesis loads the IP over InfiniBand module');
+like(
+    $doxcat,
+    qr/if \[ -z "\$bootnic" \]; then\s+bootnic=`ip link show\|grep -B1 infiniband/s,
+    'genesis checks InfiniBand addresses only after the Ethernet lookup misses'
+);
+
+done_testing();
+
+sub read_file {
+    my ($file) = @_;
+    my $path = File::Spec->catfile($repo_root, split m{/}, $file);
+    open(my $fh, '<', $path) or die "open $path: $!";
+    my $contents = do { local $/; <$fh> };
+    close($fh) or die "close $path: $!";
+    return $contents;
+}