mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-09-09 05:00:44 +00:00
Vinícius Ferrão
276 lines
8.6 KiB
Perl
276 lines
8.6 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Path qw(make_path);
|
|
use File::Spec;
|
|
use File::Temp qw(tempdir);
|
|
use FindBin;
|
|
use Test::More;
|
|
|
|
my $repo_root = File::Spec->catdir( $FindBin::Bin, '..', '..' );
|
|
my $qeth_dir = File::Spec->catdir(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-connectivity xcat-genesis-qeth)
|
|
);
|
|
my $qeth_script = File::Spec->catfile( $qeth_dir, qw(files genesis-qeth) );
|
|
my $qeth_service = File::Spec->catfile( $qeth_dir, qw(files xcat-genesis-qeth.service) );
|
|
my $qeth_recipe = File::Spec->catfile( $qeth_dir, 'xcat-genesis-qeth_1.0.bb' );
|
|
my $s390_tools_recipe = File::Spec->catfile(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-support s390-tools
|
|
s390-tools-znetconf_2.41.0.bb)
|
|
);
|
|
|
|
sub write_file {
|
|
my ( $path, $contents, $mode ) = @_;
|
|
open( my $fh, '>', $path ) or die "Unable to write $path: $!";
|
|
print {$fh} $contents;
|
|
close($fh);
|
|
chmod( $mode, $path ) if defined($mode);
|
|
}
|
|
|
|
sub read_file {
|
|
my ($path) = @_;
|
|
open( my $fh, '<', $path ) or die "Unable to read $path: $!";
|
|
my $contents = do { local $/; <$fh> };
|
|
close($fh);
|
|
return $contents;
|
|
}
|
|
|
|
my $root = tempdir( CLEANUP => 1 );
|
|
my $bin = File::Spec->catdir( $root, 'bin' );
|
|
my $cmdline = File::Spec->catfile( $root, 'cmdline' );
|
|
my $configured = File::Spec->catfile( $root, 'configured' );
|
|
my $cio_settle = File::Spec->catfile( $root, 'cio_settle' );
|
|
my $unconfigured = File::Spec->catfile( $root, 'unconfigured' );
|
|
my $command_log = File::Spec->catfile( $root, 'commands.log' );
|
|
my $znetconf = File::Spec->catfile( $bin, 'znetconf' );
|
|
my $status = File::Spec->catfile( $bin, 'genesis-status' );
|
|
|
|
make_path($bin);
|
|
write_file(
|
|
$znetconf,
|
|
<<'SH', 0755
|
|
#!/bin/sh
|
|
printf 'znetconf %s\n' "$*" >>"$XCAT_TEST_LOG"
|
|
case "$1" in
|
|
-c)
|
|
cat "$XCAT_TEST_CONFIGURED"
|
|
exit "${XCAT_TEST_CONFIGURED_STATUS:-0}"
|
|
;;
|
|
-u)
|
|
cat "$XCAT_TEST_UNCONFIGURED"
|
|
exit "${XCAT_TEST_UNCONFIGURED_STATUS:-0}"
|
|
;;
|
|
-a)
|
|
[ "${XCAT_TEST_FAIL_CHANNELS:-}" != "$2" ]
|
|
;;
|
|
esac
|
|
SH
|
|
);
|
|
write_file(
|
|
$status,
|
|
<<'SH', 0755
|
|
#!/bin/sh
|
|
printf 'status %s\n' "$*" >>"$XCAT_TEST_LOG"
|
|
SH
|
|
);
|
|
write_file(
|
|
File::Spec->catfile( $bin, 'logger' ),
|
|
<<'SH', 0755
|
|
#!/bin/sh
|
|
printf 'logger %s\n' "$*" >>"$XCAT_TEST_LOG"
|
|
SH
|
|
);
|
|
|
|
my %base_environment = (
|
|
PATH => "$bin:$ENV{PATH}",
|
|
XCAT_CIO_SETTLE_FILE => $cio_settle,
|
|
XCAT_CMDLINE_FILE => $cmdline,
|
|
XCAT_STATUS_COMMAND => $status,
|
|
XCAT_TEST_CONFIGURED => $configured,
|
|
XCAT_TEST_LOG => $command_log,
|
|
XCAT_TEST_UNCONFIGURED => $unconfigured,
|
|
XCAT_ZNETCONF_COMMAND => $znetconf,
|
|
);
|
|
|
|
sub run_qeth {
|
|
my ( $command_line, $environment ) = @_;
|
|
write_file( $cmdline, "$command_line\n" );
|
|
write_file( $command_log, '' );
|
|
write_file( $cio_settle, '' );
|
|
write_file( $configured, $environment->{XCAT_TEST_CONFIGURED_OUTPUT} // '' );
|
|
write_file( $unconfigured, $environment->{XCAT_TEST_UNCONFIGURED_OUTPUT} // '' );
|
|
local %ENV = ( %ENV, %base_environment, %{$environment} );
|
|
return system( '/bin/bash', $qeth_script ) >> 8;
|
|
}
|
|
|
|
sub command_log {
|
|
return read_file($command_log);
|
|
}
|
|
|
|
is(
|
|
run_qeth( 'console=ttysclp0 xcatd=192.0.2.1',
|
|
{ XCAT_TEST_UNCONFIGURED_STATUS => 31 } ),
|
|
0,
|
|
'a system without ccwgroup devices needs no qeth setup'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -a /m, 'the no-device path activates nothing' );
|
|
is( read_file($cio_settle), "1\n", 'channel discovery waits for pending CIO work' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'console=ttysclp0 xcatd=192.0.2.1',
|
|
{
|
|
XCAT_TEST_CONFIGURED_OUTPUT =>
|
|
"0.0.0500,0.0.0501,0.0.0502 1731/01 OSA 10 qeth enc500 online\n"
|
|
}
|
|
),
|
|
0,
|
|
'configured qeth devices need no activation'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -a /m, 'configured devices are unchanged' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=qeth,0600,0.0.0601,0.0.0602,portno=1 xcatd=192.0.2.1', {}
|
|
),
|
|
0,
|
|
'an explicit qeth triplet is accepted'
|
|
);
|
|
like(
|
|
command_log(),
|
|
qr/^znetconf -a 0\.0\.0600,0\.0\.0601,0\.0\.0602 -d qeth -o portno=1 -o layer2=1$/m,
|
|
'explicit channels are normalized and default to layer 2'
|
|
);
|
|
like( command_log(), qr/^status network CONFIGURING_NETWORK qeth devices are ready$/m,
|
|
'successful activation is published' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=qeth,0.0.0600,0.0.0601,0.0.0602 '
|
|
. 'rd.znet=qeth,0.0.0600,0.0.0601,0.0.0602 xcatd=192.0.2.1',
|
|
{}
|
|
),
|
|
0,
|
|
'a duplicate qeth triplet is accepted once'
|
|
);
|
|
my @duplicate_activations =
|
|
command_log() =~ /^znetconf -a 0\.0\.0600,0\.0\.0601,0\.0\.0602 /mg;
|
|
is( scalar @duplicate_activations, 1, 'duplicate qeth channels are not regrouped' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=qeth,0.0.0610,0.0.0611,0.0.0612,layer2=0,portname=test '
|
|
. 'xcatd=192.0.2.1',
|
|
{}
|
|
),
|
|
0,
|
|
'explicit qeth options are accepted'
|
|
);
|
|
like(
|
|
command_log(),
|
|
qr/^znetconf -a 0\.0\.0610,0\.0\.0611,0\.0\.0612 -d qeth -o layer2=0 -o portname=test$/m,
|
|
'an explicit layer setting is not overridden'
|
|
);
|
|
|
|
my $configured_channels = '0.0.0620,0.0.0621,0.0.0622';
|
|
is(
|
|
run_qeth(
|
|
"rd.znet=qeth,$configured_channels xcatd=192.0.2.1",
|
|
{ XCAT_TEST_CONFIGURED_OUTPUT => "$configured_channels 1731/01 OSA 10 qeth enc600 online\n" }
|
|
),
|
|
0,
|
|
'an already configured triplet is left unchanged'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -a /m, 'configured qeth channels are not regrouped' );
|
|
|
|
my $automatic_channels = '0.0.0700,0.0.0701,0.0.0702';
|
|
is(
|
|
run_qeth(
|
|
'xcatd=192.0.2.1',
|
|
{
|
|
XCAT_TEST_UNCONFIGURED_OUTPUT =>
|
|
"Scanning for network devices...\n"
|
|
. "Device IDs Type Card Type CHPID Drv.\n"
|
|
. "0.0.0710,0.0.0711 3088/60 LCS OSA 20 lcs\n"
|
|
. "$automatic_channels 1731/01 OSA (QDIO) 10 qeth\n"
|
|
}
|
|
),
|
|
0,
|
|
'unconfigured qeth devices are discovered'
|
|
);
|
|
like(
|
|
command_log(),
|
|
qr/^znetconf -a \Q$automatic_channels\E -d qeth -o layer2=1$/m,
|
|
'discovered qeth devices are activated for DHCP'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -a 0\.0\.0710/m,
|
|
'other channel network types are not activated as qeth' );
|
|
|
|
is(
|
|
run_qeth( 'xcatd=192.0.2.1', { XCAT_TEST_UNCONFIGURED_STATUS => 9 } ),
|
|
9,
|
|
'a qeth discovery error is returned'
|
|
);
|
|
like( command_log(), qr/^status network DEGRADED Unable to inspect qeth devices/m,
|
|
'a discovery error is published' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=ctc,0.0.0800,0.0.0801 xcatd=192.0.2.1',
|
|
{ XCAT_TEST_UNCONFIGURED_OUTPUT => "$automatic_channels 1731/01 OSA 10 qeth\n" }
|
|
),
|
|
0,
|
|
'a non-qeth rd.znet entry is not handled'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -u$/m, 'explicit non-qeth setup disables qeth discovery' );
|
|
unlike( command_log(), qr/^znetconf -a /m, 'non-qeth channels are not activated as qeth' );
|
|
|
|
is(
|
|
run_qeth( 'rd.znet=qeth,0.0.0900,0.0.0901 xcatd=192.0.2.1', {} ),
|
|
1,
|
|
'an incomplete qeth triplet fails'
|
|
);
|
|
like( command_log(), qr/^status network DEGRADED One or more qeth devices/m,
|
|
'invalid boot parameters publish a degraded status' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=qeth,0.0.0910,0.0.0911,0.0.0912,bad?=1 xcatd=192.0.2.1', {}
|
|
),
|
|
1,
|
|
'an invalid qeth option fails'
|
|
);
|
|
unlike( command_log(), qr/^znetconf -a /m, 'invalid options are rejected before activation' );
|
|
|
|
is(
|
|
run_qeth(
|
|
'rd.znet=qeth,0.0.0a00,0.0.0a01,0.0.0a02 '
|
|
. 'rd.znet=qeth,0.0.0b00,0.0.0b01,0.0.0b02 xcatd=192.0.2.1',
|
|
{ XCAT_TEST_FAIL_CHANNELS => '0.0.0a00,0.0.0a01,0.0.0a02' }
|
|
),
|
|
1,
|
|
'failure of one qeth triplet is reported'
|
|
);
|
|
like( command_log(), qr/^znetconf -a 0\.0\.0b00,0\.0\.0b01,0\.0\.0b02 /m,
|
|
'remaining qeth triplets are still attempted' );
|
|
|
|
my $service_contents = read_file($qeth_service);
|
|
like( $service_contents, qr/^ConditionArchitecture=s390x$/m,
|
|
'the activation service is limited to s390x' );
|
|
like( $service_contents, qr/^ConditionKernelCommandLine=xcatd$/m,
|
|
'the activation service requires a Genesis boot' );
|
|
like( $service_contents, qr/^Before=.*\bNetworkManager\.service\b/m,
|
|
'qeth activation precedes NetworkManager' );
|
|
like( $service_contents, qr/^Before=.*\bxcat-genesis-network-state\.service\b/m,
|
|
'qeth activation precedes management network selection' );
|
|
like( $service_contents, qr/^TimeoutStartSec=120$/m,
|
|
'a stalled qeth command cannot block network startup indefinitely' );
|
|
|
|
ok( -f $qeth_recipe, 'the qeth service has an OpenEmbedded recipe' );
|
|
ok( -f $s390_tools_recipe, 'the minimal znetconf package has an OpenEmbedded recipe' );
|
|
|
|
done_testing();
|