#!/usr/bin/perl
#
# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
# Yokogawa Electric Corporation.
# All rights reserved.
#
# Redistribution and use of this software in source and binary
# forms, with or without modification, are permitted provided that
# the following conditions and disclaimer are agreed and accepted
# by the user:
#
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in
# the documentation and/or other materials provided with
# the distribution.
#
# 3. Neither the names of the copyrighters, the name of the project
# which is related to this software (hereinafter referred to as
# "project") nor the names of the contributors may be used to
# endorse or promote products derived from this software without
# specific prior written permission.
#
# 4. No merchantable use may be permitted without prior written
# notification to the copyrighters.
#
# 5. The copyrighters, the project and the contributors may prohibit
# the use of this software at any time.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHTERS, THE PROJECT AND
# CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING
# BUT NOT LIMITED THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
# FOR A PARTICULAR PURPOSE, ARE DISCLAIMED. IN NO EVENT SHALL THE
# COPYRIGHTERS, THE PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# $TAHI: ct/icmp.p2/Err_Condition_Port_Unreachable.seq,v 1.6 2006/01/10 08:40:49 akisada Exp $
#----------------------------------------------------------------------
BEGIN { $V6evalTool::TestVersion = '$Name: V6LC_4_0_1 $'; }
use V6evalTool;
use icmp;
$IF = Link0;
%pktdesc = (
udp_pkt => 'Send UDP packet dst port = 9000 (Non-Unique Source address)',
dst_unreach => 'Receive Destination Unreachable (Port Unreachable)'
);
#----------------------------------------------------------------------
# Initialization
#----------------------------------------------------------------------
vLogHTML("Initialization
");
vCapture($IF);
$ret = setup();
if ($ret == $icmp::subFail){
goto error;
}
#----------------------------------------------------------------------
# Test
#----------------------------------------------------------------------
vLogHTML("Test
");
vSend($IF, udp_pkt);
#%ret = vRecv($IF, $icmp::wait_reply, 0, 0, dst_unreach);
%ret = icmp_vRecv_local($IF, $icmp::wait_reply, 0, 0, dst_unreach);
if ($ret{status} != 0) {
vLog("TN do not receive ICMPv6 error message from NUT");
vLog("OK");
cleanup();
vStop($IF);
exit($V6evalTool::exitPass);
}
elsif ($ret{recvFrame} eq 'dst_unreach') {
vLogHTML('TN receive ICMPv6 error message from NUT
');
goto error;
}
else {
vLogHTML('TN receive unexpected packets from NUT
');
goto error;
}
error:
vLogHTML('FAIL
');
cleanup();
vStop($IF);
exit($V6evalTool::exitFail);
sub
icmp_vRecv_local ($$$$@)
{
my($interface, $tout, $count, $seektime, @expect) = @_;
my($rcv_ns_local, $rcv_ns_global);
my $rcv_ns_local = 0;
my $rcv_ns_global = 0;
my $rcv_ns_local_for_udp_pkt = 0;
my $rcv_ns_global_for_udp_pkt = 0;
my %ret = ();
while(1) {
%ret = vRecv($interface, $tout, $count, $seektime,
@expect,
'global_ns_for_udp_pkt', 'linklocal_ns_for_udp_pkt',
'ns_local', 'ns_local_sll',
'ns_global', 'ns_global_sll');
if($ret{'recvFrame'} eq 'ns_local' ||
$ret{'recvFrame'} eq 'ns_local_sll') {
if($rcv_ns_local) {
last;
};
vSend($interface, na_local);
$rcv_ns_local = 1;
} elsif($ret{'recvFrame'} eq 'ns_global' ||
$ret{'recvFrame'} eq 'ns_global_sll') {
if($rcv_ns_global) {
last;
};
vSend($interface, na_global);
$rcv_ns_global = 1;
} elsif($ret{'recvFrame'} eq 'global_ns_for_udp_pkt') {
if($rcv_ns_global_for_udp_pkt) {
last;
};
vSend($interface, 'global_na_for_udp_pkt');
$rcv_ns_global_for_udp_pkt = 1;
} elsif($ret{'recvFrame'} eq 'linklocal_ns_for_udp_pkt') {
if($rcv_ns_local_for_udp_pkt) {
last;
};
vSend($interface, 'linklocal_na_for_udp_pkt');
$rcv_ns_local_for_udp_pkt = 1;
} else {
last;
};
};
return(%ret);
}
#----------------------------------------------------------------------
__END__
=head1 NAME
Err_Condition_Port_Unreachable.seq - check Message Processing Rules (ICMPv6
Destination Unreachable )
=head1 TARGET
Host/Router
=head1 SYNOPSIS
Err_Condition_Port_Unreachable.seq [-tooloption ...] -p Err_Condition_Port_*.def
=head1 INITIALIZATION
If the NUT is a host, send a Router Advertisment.
If the NUT is a router, configure a default route with TN as the next hop.
And make state of Neighbor Cashe Entry for TN's addresses reachable.
=head1 TEST PROCEDURE
This test verifies that the message processing rule,
An ICMPv6 error message MUST NOT be sent as a result of
receiving:
a packet whose source address does not uniquely identify
a single node -- e.g., the IPv6 Unspecified Address, an
IPv6 multicast address, or an address known by the ICMP
message sender to be an IPv6 anycast address.
TN NUT
---------------------------
1.
=== ICMPv6 Echo Request ===>
src address : does not identify a single node uniquely
dst address : NUT global address
port number is not used in NUT
2.
<< JUDGEMENT >>
<=== No pakcet ===
or
<=== ICMPv6 Destination Unreachable ===
Code is 4
=head1 JUDGEMENT
<< PASS >>
NUT do not send ICMPv6 Destination Unreachable.
<< FAIL >>
NUT send ICMPv6 Destination Unreachable.
=cut
# =head1 REFERENCE
#
# RFC2463
# 2.4 Message Processing Rules
#
# Implementations MUST observe the following rules when processing
# ICMPv6 messages (from [RFC-1122]):
#
# =begin html
#
# (e) An ICMPv6 error message MUST NOT be sent as a result of
# receiving:
# (e.1) an ICMPv6 error message, or
# (e.2) a packet destined to an IPv6 multicast address (there are
# two exceptions to this rule: (1) the Packet Too Big
# Message - Section 3.2 - to allow Path MTU discovery to
# work for IPv6 multicast, and (2) the Parameter Problem
# Message, Code 2 - Section 3.4 - reporting an unrecognized
# IPv6 option that has the Option Type highest-order two
# bits set to 10), or
# (e.3) a packet sent as a link-layer multicast, (the exception
# from e.2 applies to this case too), or
# (e.4) a packet sent as a link-layer broadcast, (the exception
# from e.2 applies to this case too), or
# (e.5) a packet whose source address does not uniquely identify
# a single node -- e.g., the IPv6 Unspecified Address, an
# IPv6 multicast address, or an address known by the ICMP
# message sender to be an IPv6 anycast address.
#
#
# =end html
#
=pod
=head1 REFERENCE
=begin html
RFC 2463 - ICMPv6 (ICMP for IPv6)
=end html
=head1 SEE ALSO
perldoc V6evalTool
=cut