#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/mip6/CN_PingAfterIncorrectOptLen.seq,v 1.2.6.5 2002/01/07 08:19:03 akisada Exp $
#

BEGIN { $V6evalTool::TestVersion = '$Name:  $'; }

use V6evalTool;

$IF0 = Link0;

%pktdesc = (
	echorequest		=> '    Send Echo Request from MN to NUT (no Home Address Option)',
	echorequest_ex		=> '    Send Echo Request from MN to NUT (Home Address Option)',
	echoreply		=> '    Recv Echo Reply from NUT to MN (no Routing Header)',
	echoreply_no_bce	=> '    Recv Echo Reply from NUT to MN (no Binding Cache entry)',
	echoreply_bce		=> '    Recv Echo Reply from NUT to MN (with Binding Cache entry)',
	ra_r1			=> '    Send RA from R1',
	ns_r1_global		=> '    Recv NS from NUT to R1',
	na_r1_global		=> '    Send NA from R1 to NUT',
	na_r1_linklocal		=> '    Send NA from R1 to NUT',
	bindingupdate		=> '    Send Binding Update (Incorrect Option Length)',
	param_problem		=> '    Recv Parameter Problem',
);

vLogHTML("<B>####  ping test  ###############################################</B><BR>");

vCapture($IF0);

if($V6evalTool::NutDef{Type} eq 'host') {
	%ret = vSend($IF0, ra_r1);
	vSleep(3);
}

%ret = vSend($IF0, echorequest);

if($V6evalTool::NutDef{Type} eq 'host') {
	vLogHTML("Wait Echo Reply<BR>");
	%ret = vRecv($IF0, 5, 0, 0, echoreply);
	if($ret{status} != 0) {
		vLogHTML('No response from NUT<BR>');
		vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
		exit $V6evalTool::exitFail;
	}
} else {
	vLogHTML("Wait Neighbor Solicitation or Echo Reply<BR>");
	%ret = vRecv($IF0, 5, 0, 0, ns_r1_global, echoreply);
	if($ret{status} != 0) {
		vLogHTML('No response from NUT<BR>');
		vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
		exit $V6evalTool::exitFail;
	}

	if($ret{recvFrame} eq 'ns_r1_global') {
		%ret = vSend($IF0, na_r1_global);

		vLogHTML("Wait Echo Reply<BR>");
		%ret = vRecv($IF0, 5, 0, 0, echoreply);
		if($ret{status} != 0) {
			vLogHTML('No response from NUT<BR>');
			vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
			exit $V6evalTool::exitFail;
		}
	}
}

if($ret{recvFrame} ne 'echoreply') {
	vLogHTML('Can not receive Echo Reply<BR>');   
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

vLogHTML("<B>####  ping test (Home Address Option)  #########################</B><BR>");

if($V6evalTool::NutDef{Type} eq 'host') {
	%ret = vSend($IF0, na_r1_linklocal);
} else {
	%ret = vSend($IF0, na_r1_global);
}

vSleep(3);

vClear($IF0);

%ret = vSend($IF0, bindingupdate);

%ret = vRecv($IF0, 5, 0, 0, param_problem);
if($ret{recvFrame} eq 'param_problem') {
	vLogHTML('NUT does not support this function.<BR>');
	exit $V6evalTool::exitNS;
}

vClear($IF0);

%ret = vSend($IF0, echorequest_ex);

vLogHTML("Wait Echo Reply<BR>");
%ret = vRecv($IF0, 5, 0, 0, echoreply_no_bce);
if($ret{status} != 0) {
	vLogHTML('No response from NUT<BR>');
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

if($ret{recvFrame} ne 'echoreply_no_bce') {
	vLogHTML('Can not receive Echo Reply<BR>');
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

vLogHTML(OK);
exit $V6evalTool::exitPass;

################################################################
__END__

=head1 NAME

CN_PingAfterIncorrectOptLen - Ping after Incorrect Option Length

=head1 TARGET

=begin html
<PRE>
Host and Router
</PRE>

=end html

=head1 SYNOPSIS

=begin html
<PRE>
<A HREF="./CN_PingAfterIncorrectOptLen.seq">CN_PingAfterIncorrectOptLen.seq</A> [-tooloption ...] -pkt <A HREF="./CN_PingAfterIncorrectOptLen.def">CN_PingAfterIncorrectOptLen.def</A>
</PRE>
<BLOCKQUOTE>
<PRE>
-tooloption: v6eval tool option
</PRE>
</BLOCKQUOTE>

=end html

=head1 TOPOLOGY

=begin html
<PRE>
                                                      MN'
                                                      |
                                      --------+-------+------- LinkY
                                              |
                                              R2      MN
                                              |       |
Link1 --------+-------        --------+-------+-------+------- LinkX
              |                       |
             NUT                      R1
              |                       |
Link0 --------+-----------------------+-----------------------
</PRE>
<BLOCKQUOTE>
<TABLE BORDER>
<TR>
<TD><TT>Link0</TT></TD>
<TD><TT>3ffe:501:ffff:100::/64</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>Link1</TT></TD>
<TD><TT>3ffe:501:ffff:101::/64</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>LinkX</TT></TD>
<TD><TT>3ffe:501:ffff:102::/64</TT></TD>
<TD><TT>home link</TT></TD>
</TR>
<TR>
<TD><TT>LinkY</TT></TD>
<TD><TT>3ffe:501:ffff:103::/64</TT></TD>
<TD><TT>foreign link</TT></TD>
</TR>
<TR>
<TD><TT>R1(Link0)</TT></TD>
<TD><TT>3ffe:501:ffff:100:200:ff:fe00:a0a0</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>MN</TT></TD>
<TD><TT>3ffe:501:ffff:102:200:ff:fe00:000e</TT></TD>
<TD><TT>home address</TT></TD>
</TR>
<TR>
<TD><TT>MN'</TT></TD>
<TD><TT>3ffe:501:ffff:103:200:ff:fe00:000e</TT></TD>
<TD><TT>care-of address</TT></TD>
</TR>
</TABLE>
</BLOCKQUOTE>

=end html

=head1 TEST PROCEDURE

=begin html
<PRE>
       NUT      R1      MN      MN'
        |       |       |       |
        | <---- |       |       | RA
        |       |       |       |
        | <-------------------- | Echo Request
        | ----> |       |       | NS
        | <---- |       |       | NA
        | --------------------> | Echo Reply (*1)
        |       |       |       |
        | <---- |       |       | NA
        |       |       |       |
        | <-------------------- | Binding Update (Incorrect Option Length)
        |       |       |       |
        | <-------------------- | Echo Request (Home Address Option)
        | ------------> |       | Echo Reply (*2)
        |       |       |       |
</PRE>
<P>
<PRE>
1. check routing table - LinkY
	1.1. Host
		1.1.1. R1 sends RA
		1.1.2. MN' sends Echo Request
		1.2.3. Wait Echo Reply
		1.1.4. Receive Echo Reply
</PRE>
<PRE>
	1.2. Router
		1.2.1. MN' sends Echo Request
		1.2.2. Wait Echo Reply or NS
		1.2.3. If NS received then send NA, and wait Echo Reply again
		1.2.4. Receive Echo Reply
</PRE>
<PRE>
2. overwrite NCE on NUT
	2.1. R1 sends NA
</PRE>
<PRE>
3. check Binding Cache entry operation
	3.1. MN' sends incorrect Binding Update
	3.2. MN' sends Echo Request including Home Address Option
	3.3. Wait Echo Reply
	3.4. Receive Echo Reply
</PRE>

=end html

=head1 JUDGEMENT

=begin html
<PRE>
(*1) PASS: MN' receives Echo Reply
</PRE>
<PRE>
(*2) PASS: MN receives Echo Reply including Routing Header
</PRE>

=end html

=head1 REFERENCE

=begin html
<PRE>
&lt;draft-ietf-mobileip-ipv6-15.txt&gt;
</PRE>
<PRE>
8.2. Receiving Binding Updates
</PRE>
<PRE>
   Before accepting a Binding Update option received in any packet, the
   receiving node MUST validate the Binding Update according to the
   following tests:
</PRE>
<PRE>
    -  The packet meets the specific authentication requirements for
       Binding Updates, defined in Section 4.4.
</PRE>
<PRE>
    -  The packet MUST contain a Home Address option.
</PRE>
<PRE>
    -  <B>The Option Length field in the Binding Update option is greater</B>
       <B>than or equal to the length specified in Section 5.1.</B>
</PRE>
<PRE>
    -  The Sequence Number field in the Binding Update option is greater
       than the Sequence Number received in the previous Binding Update
       for this home address, if any.  As noted in Section 4.6, this
       Sequence Number comparison MUST be performed modulo 2**8.
</PRE>
<PRE>
   If the mobile node sends a sequence number which is not greater than
   the sequence number from the last successful Binding Update, then the
   receiving node MUST send back a Binding Acknowledgement with status
   code 141, and the last accepted sequence number in the Sequence
   Number field of the Binding Acknowledgement.
</PRE>
<PRE>
   <B>Any Binding Update which fails to satisfy all of these tests for any</B>
   <B>other reason (than insufficiency of the Sequence Number) <FONT COLOR="#FF0000">MUST</FONT> be</B>
   <B>silently ignored, and the packet carrying the Binding Update MUST be</B>
   <B>discarded.
</PRE>

=end html

=head1 SEE ALSO

=begin html
<PRE>
<A HREF="./CN_Common.def">CN_Common.def</A>
</PRE>

=end html

=cut