mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-09-05 20:47:55 +00:00
Vinícius Ferrão
1f56331435
Signed-off-by: Vinícius Ferrão <2031761+viniciusferrao@users.noreply.github.com>
52 lines
2.4 KiB
Perl
52 lines
2.4 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
|
|
my $xnba_path = defined $ENV{XCATROOT} ? "$ENV{XCATROOT}/lib/perl/xCAT_plugin/xnba.pm" : '';
|
|
$xnba_path = "xCAT-server/lib/xcat/plugins/xnba.pm"
|
|
unless -f $xnba_path;
|
|
|
|
plan skip_all => "xnba.pm not found" unless -f $xnba_path;
|
|
|
|
my $src = do { local $/; open my $fh, '<', $xnba_path or die $!; <$fh> };
|
|
|
|
# iPXE only treats a standalone ; token as a command separator.
|
|
# A ; embedded inside an argument value (e.g. ds=nocloud-net;s=...)
|
|
# is NOT split by iPXE's parser. Therefore xnba.pm must NOT escape
|
|
# the semicolon — doing so (e.g. \;) would corrupt the value and
|
|
# prevent cloud-init from parsing the NoCloud seed URL.
|
|
unlike($src, qr/kcmd.*=~.*s\/;/, 'BIOS path does not escape semicolons');
|
|
unlike($src, qr/ucmd.*=~.*s\/;/, 'UEFI path does not escape semicolons');
|
|
|
|
# The kcmdline is passed directly to imgargs without modification
|
|
like($src, qr/imgargs kernel.*\$kern->\{kcmdline\}/, 'BIOS kcmdline passed directly to imgargs');
|
|
|
|
# UEFI nodes must not keep a stale install script when the node moves
|
|
# back to boot/standby; otherwise they PXE back into the installer.
|
|
like($src, qr/sub _write_uefi_exit_script\b/, 'UEFI local boot helper exists');
|
|
like($src, qr/_write_uefi_exit_script\(\$bootloader_root, \$node, \$cref->\{currstate\}\);/, 'boot/local states rewrite UEFI xNBA script');
|
|
like($src, qr/print \$ucfg "exit\\n";/, 'UEFI local boot script exits iPXE to firmware');
|
|
|
|
# SLES 11 advertises EFI stub support, but the live UEFI xNBA path corrupts
|
|
# the legacy initrd/root image handoff. It must keep using elilo.
|
|
like($src, qr/sub _use_efistub_for_uefi\b/, 'UEFI EFI-stub selection helper exists');
|
|
like($src, qr/sles\?11/, 'SLES 11 UEFI compatibility rule matches sle11 and sles11 images');
|
|
like($src, qr/if \(_use_efistub_for_uefi\(\$kern\)\)/, 'UEFI boot path uses compatibility helper before direct EFI-stub boot');
|
|
|
|
# pxelinux is only needed for multiboot, COMBOOT, and memdisk configurations.
|
|
# Missing syslinux must not warn for ordinary direct-kernel nodeset requests.
|
|
like($src, qr/sub _requires_pxelinux\b/, 'pxelinux requirement helper exists');
|
|
like(
|
|
$src,
|
|
qr/\$::XNBA_pxelinux_required = 1 if \(_requires_pxelinux\(\$kern\)\)/,
|
|
'generated boot configuration records when pxelinux is required'
|
|
);
|
|
like(
|
|
$src,
|
|
qr/if \(\$::XNBA_pxelinux_required\) \{.*?Unable to find pxelinux\.0/s,
|
|
'missing pxelinux warning is limited to requests that generate a pxelinux chain'
|
|
);
|
|
|
|
done_testing();
|