mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-08-27 09:06:39 +00:00
Vinícius Ferrão
104 lines
3.3 KiB
Perl
104 lines
3.3 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 $recipe = File::Spec->catfile(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-xcat xcat-genesis-bmcsetup xcat-genesis-bmcsetup_1.0.bb)
|
|
);
|
|
my $wrapper = File::Spec->catfile(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-xcat xcat-genesis-bmcsetup files genesis-bmcsetup)
|
|
);
|
|
my $credential_wait = File::Spec->catfile(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-xcat xcat-genesis-bmcsetup files genesis-credential-wait)
|
|
);
|
|
my $image_recipe = File::Spec->catfile(
|
|
$repo_root,
|
|
qw(xCAT-genesis-builder oe meta-xcat-genesis recipes-core images xcat-genesis-image.bb)
|
|
);
|
|
my $legacy_dir = File::Spec->catdir(
|
|
$repo_root, qw(xCAT-genesis-scripts usr bin)
|
|
);
|
|
|
|
sub read_file {
|
|
my ($path) = @_;
|
|
open( my $fh, '<', $path ) or die "Unable to read $path: $!";
|
|
my $contents = do { local $/; <$fh> };
|
|
close($fh);
|
|
return $contents;
|
|
}
|
|
|
|
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 );
|
|
}
|
|
|
|
for my $script (qw(bmcsetup getipmi remoteimmsetup)) {
|
|
is(
|
|
system(
|
|
'/bin/bash', '-n',
|
|
File::Spec->catfile( $legacy_dir, $script )
|
|
) >> 8,
|
|
0,
|
|
"$script is valid Bash"
|
|
);
|
|
}
|
|
is( system( '/bin/bash', '-n', $wrapper, $credential_wait ) >> 8,
|
|
0, 'BMC action helpers are valid Bash' );
|
|
|
|
my $root = tempdir( CLEANUP => 1 );
|
|
my $support_dir = File::Spec->catdir( $root, 'support' );
|
|
my $implementation = File::Spec->catfile( $root, 'implementation' );
|
|
my $log = File::Spec->catfile( $root, 'wrapper.log' );
|
|
make_path($support_dir);
|
|
write_file(
|
|
$implementation,
|
|
<<'SH', 0755
|
|
#!/bin/bash
|
|
printf 'path=%s\n' "$PATH" >"$XCAT_TEST_LOG"
|
|
printf 'arguments=%s\n' "$*" >>"$XCAT_TEST_LOG"
|
|
SH
|
|
);
|
|
local %ENV = (
|
|
%ENV,
|
|
XCAT_BMC_SUPPORT_DIR => $support_dir,
|
|
XCAT_BMC_SETUP_IMPLEMENTATION => $implementation,
|
|
XCAT_TEST_LOG => $log,
|
|
);
|
|
is( system( '/bin/bash', $wrapper, 'first', 'second' ) >> 8,
|
|
0, 'BMC action starts the packaged implementation' );
|
|
my $wrapper_log = read_file($log);
|
|
like( $wrapper_log, qr/^path=\Q$support_dir\E:/m,
|
|
'BMC support commands take precedence' );
|
|
like( $wrapper_log, qr/^arguments=first second$/m,
|
|
'BMC action preserves its arguments' );
|
|
|
|
my $recipe_text = read_file($recipe);
|
|
for my $source (qw(bmcsetup getipmi remoteimmsetup updateflag.awk)) {
|
|
like( $recipe_text, qr/file:\/\/\Q$source\E\b/,
|
|
"$source is sourced from the existing Genesis implementation" );
|
|
}
|
|
like( $recipe_text,
|
|
qr{\$\{libexecdir\}/xcat/genesis/actions/bmcsetup},
|
|
'bmcsetup is installed as an approved action' );
|
|
like( $recipe_text, qr/\bxcat-genesis-discovery\b/,
|
|
'the BMC action uses the credential callback socket' );
|
|
like( $recipe_text, qr/\bgawk\b/,
|
|
'the legacy status callback has its required awk implementation' );
|
|
like( read_file($image_recipe), qr/\bxcat-genesis-bmcsetup\b/,
|
|
'the base Genesis image includes BMC setup' );
|
|
|
|
done_testing();
|