mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-05-18 04:07:16 +00:00
Vinícius Ferrão
53 lines
1.2 KiB
Perl
53 lines
1.2 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../../xCAT-probe/lib/perl";
|
|
|
|
use Test::More;
|
|
|
|
require probe_utils;
|
|
|
|
ok(
|
|
probe_utils::dhcp_query_reply_matches(
|
|
'xcatmntest: ip-address = 10.10.0.254, hardware-address = aa:aa:aa:aa:aa:aa',
|
|
'xcatmntest',
|
|
'10.10.0.254',
|
|
'aa:aa:aa:aa:aa:aa',
|
|
),
|
|
'ISC-style makedhcp query output with comma matches'
|
|
);
|
|
|
|
ok(
|
|
probe_utils::dhcp_query_reply_matches(
|
|
'xcatmntest: ip-address = 10.10.0.254 hardware-address = aa:aa:aa:aa:aa:aa',
|
|
'xcatmntest',
|
|
'10.10.0.254',
|
|
'aa:aa:aa:aa:aa:aa',
|
|
),
|
|
'Kea-style makedhcp query output without comma matches'
|
|
);
|
|
|
|
is(
|
|
probe_utils::dhcp_query_reply_mac(
|
|
'node01: ip-address = 192.0.2.10 hardware-address = AA:BB:CC:DD:EE:FF',
|
|
'node01',
|
|
'192.0.2.10',
|
|
),
|
|
'AA:BB:CC:DD:EE:FF',
|
|
'DHCP query MAC is extracted without normalizing display case'
|
|
);
|
|
|
|
ok(
|
|
!probe_utils::dhcp_query_reply_matches(
|
|
'xcatmntest: ip-address = 10.10.0.99 hardware-address = aa:aa:aa:aa:aa:aa',
|
|
'xcatmntest',
|
|
'10.10.0.254',
|
|
'aa:aa:aa:aa:aa:aa',
|
|
),
|
|
'mismatched IP does not match'
|
|
);
|
|
|
|
done_testing();
|