mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-09-04 20:17:55 +00:00
Vinícius Ferrão
35 lines
827 B
Perl
35 lines
827 B
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../../perl-xCAT";
|
|
use Test::More;
|
|
|
|
BEGIN {
|
|
package xCAT::Utils;
|
|
sub Version { return 'test'; }
|
|
}
|
|
|
|
{
|
|
local $INC{'xCAT/Utils.pm'} = __FILE__;
|
|
require xCAT::Usage;
|
|
}
|
|
|
|
my $usage = xCAT::Usage->parseCommand( 'rflash', '--help' );
|
|
|
|
like( $usage, qr/\QNeXtScale FPC specific:\E/x,
|
|
'rflash help identifies the NeXtScale FPC form' );
|
|
like(
|
|
$usage,
|
|
qr{\Qrflash <noderange> http://<server>/path/to/update.rom\E}x,
|
|
'rflash help gives the complete FPC firmware URL syntax'
|
|
);
|
|
|
|
like( $usage, qr/\QPPC (using Direct FSP Management) specific:\E/x,
|
|
'rflash help retains the Direct FSP form' );
|
|
like( $usage, qr/\QOpenPOWER BMC specific (using IPMI):\E/x,
|
|
'rflash help retains the OpenPOWER IPMI form' );
|
|
|
|
done_testing();
|