xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2026-10-02 08:51:44 +00:00
Code Issues Releases Wiki Activity

test: cover archive extraction in all dracut variants

Browse Source
This commit is contained in:
Vinícius Ferrão
2026-09-22 23:15:54 -03:00
parent 93b8399757
commit 85899df5d6
1 changed files with 51 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
xCAT-test/native/openeuler_xcatroot.t
+51 -48
View File
@@ -11,7 +11,7 @@ use Test::More;
plan skip_all => 'requires Linux root and private mount namespaces'
unless $^O eq 'linux' && $> == 0
&& system('unshare', '--mount', '--propagation', 'private', '/bin/true') == 0;
my $source = File::Spec->rel2abs("$FindBin::Bin/../../xCAT-server/share/xcat/netboot/rh/dracut_047/xcatroot");
my $netboot = File::Spec->rel2abs("$FindBin::Bin/../../xCAT-server/share/xcat/netboot/rh");
my $dir = tempdir(CLEANUP => 1);
my $wrapper = "$dir/run";
write_file($wrapper, <<'SH');
@@ -33,25 +33,27 @@ exec chroot "$root" /bin/bash -c '
SH
chmod 0755, $wrapper;
for my $method (qw(cpio tar)) {
for my $localdisk (qw(missing executable nonexecutable)) {
my $case = tempdir(DIR => $dir, CLEANUP => 1);
my $root = "$case/root";
my $payload = "$case/payload";
make_path(map { "$root/$_" } qw(usr lib etc tmp sysroot hooks/initqueue));
symlink('usr/bin', "$root/bin") or die $!;
symlink('usr/sbin', "$root/sbin") or die $!;
symlink('usr/lib64', "$root/lib64") or die $!;
make_path("$payload/etc/init.d", "$payload/etc/sysconfig/network-scripts", "$payload/var/lib/dhclient");
write_file("$payload/native-marker", "native payload\n");
write_file("$payload/etc/os-release", "ID=openEuler\nVERSION_ID=24.03\n");
if ($localdisk ne 'missing') {
write_file("$payload/etc/init.d/localdisk", "#!/bin/sh\ntouch /sysroot/localdisk-ran\n");
chmod($localdisk eq 'executable' ? 0755 : 0644, "$payload/etc/init.d/localdisk");
}
write_file("$root/etc/resolv.conf", "nameserver 192.0.2.1\n");
write_file("$root/tmp/dhclient.eth0.lease", "fixture lease\n");
write_file("$root/lib/dracut-lib.sh", <<'SH');
for my $variant (qw(dracut_047 dracut_105/stateless dracut_105/statelite)) {
my $source = "$netboot/$variant/xcatroot";
for my $method (qw(cpio tar)) {
for my $localdisk (qw(missing executable nonexecutable)) {
my $case = tempdir(DIR => $dir, CLEANUP => 1);
my $root = "$case/root";
my $payload = "$case/payload";
make_path(map { "$root/$_" } qw(usr lib etc tmp sysroot hooks/initqueue));
symlink('usr/bin', "$root/bin") or die $!;
symlink('usr/sbin', "$root/sbin") or die $!;
symlink('usr/lib64', "$root/lib64") or die $!;
make_path("$payload/etc/init.d", "$payload/etc/sysconfig/network-scripts", "$payload/var/lib/dhclient");
write_file("$payload/native-marker", "native payload\n");
write_file("$payload/etc/os-release", "ID=openEuler\nVERSION_ID=24.03\n");
if ($localdisk ne 'missing') {
write_file("$payload/etc/init.d/localdisk", "#!/bin/sh\ntouch /sysroot/localdisk-ran\n");
chmod($localdisk eq 'executable' ? 0755 : 0644, "$payload/etc/init.d/localdisk");
}
write_file("$root/etc/resolv.conf", "nameserver 192.0.2.1\n");
write_file("$root/tmp/dhclient.eth0.lease", "fixture lease\n");
write_file("$root/lib/dracut-lib.sh", <<'SH');
hookdir=/hooks
logger() { :; }
getarg()
@@ -67,34 +69,35 @@ getarg()
esac
}
SH
copy($source, "$root/xcatroot") or die $!;
my $archive = "$root/rootimg.$method.gz";
my @pack = $method eq 'cpio'
? ('/bin/bash', '-o', 'pipefail', '-c', 'cd "$1" && find . -print0 | cpio -0 -o -H newc | gzip > "$2"', 'pack', $payload, $archive)
: ('tar', '-C', $payload, '-czf', $archive, '.');
is(system(@pack), 0, "$method $localdisk fixture archive is valid");
my $pid = fork();
die "fork: $!" unless defined($pid);
if (!$pid) {
open(STDOUT, '>', "$case/output") or die $!;
open(STDERR, '>&', STDOUT) or die $!;
exec 'unshare', '--mount', '--propagation', 'private', $wrapper, $root;
die "exec: $!";
}
waitpid($pid, 0);
my $rc = $? >> 8;
open(my $file, '<', "$case/output") or die $!;
my $output = do { local $/; <$file> };
close($file);
my $label = "$method $localdisk localdisk";
is($rc, 0, "$label completes the production xcatroot script") or diag($output);
like($output, qr/^PAYLOAD=native payload$/m, "$label extracts the actual image payload");
like($output, qr/^INITQUEUE_READY$/m, "$label reaches the initqueue handoff");
unlike($output, qr{localdisk: (?:No such file|Permission denied)}, "$label avoids an invalid optional script invocation");
if ($localdisk eq 'executable') {
like($output, qr/^LOCALDISK_RAN$/m, "$label retains the legacy executable hook");
} else {
unlike($output, qr/^LOCALDISK_RAN$/m, "$label does not execute a missing or disabled hook");
copy($source, "$root/xcatroot") or die $!;
my $archive = "$root/rootimg.$method.gz";
my @pack = $method eq 'cpio'
? ('/bin/bash', '-o', 'pipefail', '-c', 'cd "$1" && find . -print0 | cpio -0 -o -H newc | gzip > "$2"', 'pack', $payload, $archive)
: ('tar', '-C', $payload, '-czf', $archive, '.');
is(system(@pack), 0, "$method $localdisk fixture archive is valid");
my $pid = fork();
die "fork: $!" unless defined($pid);
if (!$pid) {
open(STDOUT, '>', "$case/output") or die $!;
open(STDERR, '>&', STDOUT) or die $!;
exec 'unshare', '--mount', '--propagation', 'private', $wrapper, $root;
die "exec: $!";
}
waitpid($pid, 0);
my $rc = (($? & 127) ? 128 + ($? & 127) : $? >> 8);
open(my $file, '<', "$case/output") or die $!;
my $output = do { local $/; <$file> };
close($file);
my $label = "$variant $method $localdisk localdisk";
is($rc, 0, "$label completes the production xcatroot script") or diag($output);
like($output, qr/^PAYLOAD=native payload$/m, "$label extracts the actual image payload");
like($output, qr/^INITQUEUE_READY$/m, "$label reaches the initqueue handoff");
unlike($output, qr{localdisk: (?:No such file|Permission denied)}, "$label avoids an invalid optional script invocation");
if ($localdisk eq 'executable') {
like($output, qr/^LOCALDISK_RAN$/m, "$label retains the legacy executable hook");
} else {
unlike($output, qr/^LOCALDISK_RAN$/m, "$label does not execute a missing or disabled hook");
}
}
}
}