#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/mip6/CN_Ping.seq,v 1.6.4.4 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)',
	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',
	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, echorequest_ex);

vLogHTML("Wait Echo Reply<BR>");
%ret = vRecv($IF0, 5, 0, 0, param_problem, 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} eq 'param_problem') {
	vLogHTML('NUT does not support this function.<BR>');
	exit $V6evalTool::exitNS;
}

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_Ping - Ping from MN to NUT (no Binding Cache entry)

=head1 TARGET

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

=end html

=head1 SYNOPSIS

=begin html
<PRE>
<A HREF="./CN_Ping.seq">CN_Ping.seq</A> [-tooloption ...] -pkt <A HREF="./CN_Ping.def">CN_Ping.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:0001</TT></TD>
<TD><TT>home address</TT></TD>
</TR>
<TR>
<TD><TT>MN'</TT></TD>
<TD><TT>3ffe:501:ffff:103:200:ff:fe00:0001</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
        |       |       |       |
        | <-------------------- | 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 Home Address Option operation
        3.1. MN' sends Echo Request including Home Address Option
        3.2. Wait Echo Reply
        3.3. 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
</PRE>

=end html

=head1 REFERENCE

=begin html
<PRE>
&lt;draft-ietf-mobileip-ipv6-15.txt&gt;
</PRE>
<PRE>
8.1. Receiving Packets from a Mobile Node
</PRE>
<PRE>
   Packets sent by a mobile node while away from home generally include
   a Home Address option.  <B>When any node receives a packet containing</B>
   <B>a Home Address option, it <FONT COLOR="#FF0000">MUST</FONT> process the option in a manner</B>
   <B>consistent with exchanging the Home Address field from the Home</B>
   <B>Address option into the IPv6 header, replacing the original value of</B>
   <B>the Source Address field there.</B>  However, any actual modifications to
   the Source Address field in the packet's IPv6 header MUST be carried
   out in such a fashion that further processing of such a packet after
   all IPv6 options processing (e.g., at the transport layer) does not
   need to know that the original Source Address was a care-of address,
   or that the Home Address option was used in the packet.
</PRE>

=end html

=head1 SEE ALSO

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

=end html

=cut