Help language development. Donate to The Perl Foundation
use v6.c;
use Test;
#
# Copyright © 2018-2019 Joelle Maslak
# All Rights Reserved - See License
#
use Net::BGP;
subtest 'Command' => {
subtest 'Parent Class' => {
my $msg = Net::BGP::Command.new();
ok $msg, "Created BGP Class";
is $msg.message-name, 'NOOP', 'Message type has proper default';
done-testing;
};
subtest 'BGP-Message' => {
my $bgp = Net::BGP::Message::Open.from-hash( {
:asn(65000),
:hold-time(0),
:identifier('1.2.3.4'),
} );
my $msg = Net::BGP::Command::BGP-Message.new(
:connection-id(1),
:message($bgp),
);
ok $msg, "Created BGP Class";
is $msg.message-name, 'BGP-Message', 'Proper BGP-Message message';
is $msg.message, $bgp, 'Payload is correct';
done-testing;
};
subtest 'Stop' => {
my $msg = Net::BGP::Command::Stop.new();
ok $msg, "Created BGP Class";
is $msg.message-name, 'Stop', 'Proper Stop message';
done-testing;
};
done-testing;
};
subtest 'Event' => {
subtest 'Parent Class' => {
my $msg = Net::BGP::Event.new(:connection-id(1));
ok $msg, "Created BGP Class";
is $msg.connection-id, 1, 'Connection ID is proper';
is $msg.message-name, 'NOOP', 'Message type has proper default';
is $msg.is-error, False, 'Message is not an error';
is-approx $msg.creation-date, DateTime.now.posix, 30, "Date time appears correct";
done-testing;
};
subtest 'BGP-Message-No-Opt' => {
my $bgp = Net::BGP::Message.from-raw( read-message-nohead('t/bgp-messages/open-message-no-opt.msg'), :asn32(False) );
my $msg = Net::BGP::Event::BGP-Message.new(
:message($bgp),
:connection-id(22),
:peer-asn(123)
);
ok $msg, "Created Event Class";
is $msg.message-name, 'BGP-Message', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, False, 'Message is not an error';
is $msg.message.message-code, 1, 'BGP message type is correct';
is $msg.message.message-name, 'OPEN', 'BGP message code is correct';
is $msg.message.parameters.elems, 0, "Proper number of parameter elements";
is-approx $msg.creation-date, DateTime.now.posix, 30, "Date time appears correct";
is $msg.peer-asn, 123, "Peer ASN is proper";
done-testing;
};
subtest 'BGP-Message-With-Opt' => {
my $bgp = Net::BGP::Message.from-raw( read-message-nohead('t/bgp-messages/open-message.msg'), :asn32(False) );
my $msg = Net::BGP::Event::BGP-Message.new(:message($bgp), :connection-id(22));
ok $msg, "Created Event Class";
is $msg.message-name, 'BGP-Message', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, False, 'Message is not an error';
is $msg.message.message-code, 1, 'BGP message type is correct';
is $msg.message.message-name, 'OPEN', 'BGP message code is correct';
is-approx $msg.creation-date, DateTime.now.posix, 30, "Date time appears correct";
my @p = $msg.message.parameters;
is @p.elems, 2, "Proper number of parameter elements";
is @p[0].parameter-code, 240, "240 Proper parameter-code";
is @p[0].parameter-name, "240", "240 Proper parameter-name";
is @p[0].parameter-length, 0, "240 Proper parameter-length";
is @p[0].parameter-value.bytes, 0, "240 Proper parameter-value length";
is @p[1].parameter-code, 241, "241 Proper parameter-code";
is @p[1].parameter-name, "241", "241 Proper parameter-name";
is @p[1].parameter-length, 1, "241 Proper parameter-length";
is @p[1].parameter-value.bytes, 1, "241 Proper parameter-value length";
is @p[1].parameter-value[0], 255, "241 Proper parameter-value";
done-testing;
};
subtest 'Closed-Connection' => {
my $msg = Net::BGP::Event::Closed-Connection.new(
:client-ip('192.0.2.1'),
:client-port(1500),
:connection-id(22),
);
ok $msg, "Created BGP Class";
is $msg.message-name, 'Closed-Connection', 'Proper Closed-Connection message';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.client-ip, '192.0.2.1', 'Client IP address';
is $msg.client-port, 1500, 'Client IP port';
is $msg.is-error, False, 'Message is not an error';
done-testing;
};
subtest 'New-Connection' => {
my $msg = Net::BGP::Event::New-Connection.new(
:client-ip('192.0.2.1'),
:client-port(1500),
:connection-id(22),
);
ok $msg, "Created BGP Class";
is $msg.message-name, 'New-Connection', 'Proper New-Connection message';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.client-ip, '192.0.2.1', 'Client IP address';
is $msg.client-port, 1500, 'Client IP port';
is $msg.is-error, False, 'Message is not an error';
done-testing;
};
done-testing;
};
subtest 'Error' => {
subtest 'Parent Class' => {
my $msg = Net::BGP::Error.new(:connection-id(1));
ok $msg, "Created BGP Class";
is $msg.message-name, 'NOOP', 'Message type has proper value';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'No-Op', 'Human readable type';
done-testing;
};
subtest 'Bad-Option-Length' => {
my $msg = Net::BGP::Error::Bad-Option-Length.new(:length(999), :connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Bad-Option-Length', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'Option Length in OPEN is invalid', 'Human readable type';
is $msg.length, 999, 'Length is valid';
done-testing;
};
subtest 'Bad-Parameter-Length' => {
my $msg = Net::BGP::Error::Bad-Parameter-Length.new(:length(999), :connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Bad-Parameter-Length', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'Parameter Length in OPEN is invalid', 'Human readable type';
is $msg.length, 999, 'Length is valid';
done-testing;
};
subtest 'Hold-Time-Too-Short' => {
my $msg = Net::BGP::Error::Hold-Time-Too-Short.new(:hold-time(1), :connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Hold-Time-Too-Short', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'Hold-Time in OPEN is too short (RFC4271)', 'Human readable type';
is $msg.hold-time, 1, 'Hold-Time is valid';
done-testing;
};
subtest 'Length-Too-Short' => {
my $msg = Net::BGP::Error::Length-Too-Short.new(:length(10), :connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Length-Too-Short', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'Length field in header is impossibly short (RFC4271)', 'Human readable type';
is $msg.length, 10, 'Length is valid';
done-testing;
};
subtest 'Marker-Format' => {
my $msg = Net::BGP::Error::Marker-Format.new(:connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Marker-Format', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'Invalid header marker format (RFC4271)', 'Human readable type';
done-testing;
};
subtest 'Unknown-Version' => {
my $msg = Net::BGP::Error::Unknown-Version.new(:version(3), :connection-id(22));
ok $msg, "Created Error Class";
is $msg.message-name, 'Unknown-Version', 'Message type has proper value';
is $msg.connection-id, 22, 'Connection ID is proper';
is $msg.is-error, True, 'Message is an error';
is $msg.message, 'BGP Version in OPEN is not supported', 'Human readable type';
is $msg.version, 3, 'Version is valid';
done-testing;
};
};
done-testing;
sub read-message($filename -->buf8) {
return slurp $filename, :bin;
}
sub read-message-nohead($filename -->buf8) {
return buf8.new(read-message($filename)[18..*]);
}