mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-05-05 16:49:08 +00:00
44 lines
1.2 KiB
Perl
44 lines
1.2 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../../xCAT-server/lib";
|
|
use lib "$FindBin::Bin/../../xCAT-server/lib/perl";
|
|
use lib "$FindBin::Bin/../../perl-xCAT";
|
|
|
|
use Test::More;
|
|
|
|
$ENV{XCATCFG} ||= 'SQLite:/tmp';
|
|
|
|
my $source_dhcp_plugin = "$FindBin::Bin/../../xCAT-server/lib/xcat/plugins/dhcp.pm";
|
|
if ( -f $source_dhcp_plugin ) {
|
|
require $source_dhcp_plugin;
|
|
} else {
|
|
require xCAT_plugin::dhcp;
|
|
}
|
|
|
|
my ($name, $ip, $mac) = xCAT_plugin::dhcp::_parse_omshell_host_output(
|
|
'node01',
|
|
'name = "node01"',
|
|
'ip-address = 0a:00:00:05',
|
|
'hardware-address = 00:11:22:33:44:55',
|
|
);
|
|
|
|
is($name, 'node01', 'host name is parsed');
|
|
is($ip, 'ip-address = 10.0.0.5', 'IPv4 OMAPI hex address is converted to dotted decimal');
|
|
is($mac, 'hardware-address = 00:11:22:33:44:55', 'hardware address is preserved');
|
|
|
|
($name, $ip, $mac) = xCAT_plugin::dhcp::_parse_omshell_host_output(
|
|
'nodev6',
|
|
'name = "nodev6"',
|
|
'ip-address = 2001:db8::50',
|
|
'hardware-address = 00:aa:bb:cc:dd:ee',
|
|
);
|
|
|
|
is($name, 'nodev6', 'IPv6 host name is parsed');
|
|
is($ip, 'ip-address = 2001:db8::50', 'IPv6 address is preserved');
|
|
is($mac, 'hardware-address = 00:aa:bb:cc:dd:ee', 'IPv6 hardware address is preserved');
|
|
|
|
done_testing();
|