#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/mip6/CN_LifetimeExpire.seq,v 1.1.2.5 2002/02/27 07:35:02 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 (A bit is not set)',
	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>####  Binding Update test  #####################################</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_bce, echoreply_no_bce, echoreply_with_binding_req);
if($ret{status} != 0) {
	vLogHTML('No response from NUT<BR>');
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

if($ret{recvFrame} eq 'echoreply_no_bce') {
	vLogHTML('NUT <FONT COLOR="#00FF00">SHOULD</FONT> use a Routing header<BR>');
	vLogHTML('<FONT COLOR="#00FF00">WARN</FONT><BR>');
	exit $V6evalTool::exitWarn;
}

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

vLogHTML(OK);

vSleep(10);

vClear($IF0);

%ret = vSend($IF0, echorequest_ex);

vLogHTML("Wait Echo Reply<BR>");
%ret = vRecv($IF0, 5, 0, 0, echoreply_bce, 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 'echoreply_bce') {
	vLogHTML('NUT uses a Routing header<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_LifetimeExpire - Lifetime expires

=head1 TARGET

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

=end html

=head1 SYNOPSIS

=begin html
<PRE>
<A HREF="./CN_LifetimeExpire.seq">CN_LifetimeExpire.seq</A> [-tooloption ...] -pkt <A HREF="./CN_LifetimeExpire.def">CN_LifetimeExpire.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:0010</TT></TD>
<TD><TT>home address</TT></TD>
</TR>
<TR>
<TD><TT>MN'</TT></TD>
<TD><TT>3ffe:501:ffff:103:200:ff:fe00:0010</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 (Lifetime is 10 sec.)
        |       |       |       |
        |       |       |       | Wait 5 sec.
        |       |       |       |
        | <-------------------- | Echo Request (Home Address Option)
        | --------------------> | Echo Reply (*2)
        |       |       |       |
        |       |       |       | Wait 10 sec.
        |       |       |       |
        | <-------------------- | Echo Request (Home Address Option)
        | ------------> |       | Echo Reply (*3)
        |       |       |       |
</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 Binding Update (Lifetime is 10 sec.)
	3.2. Wait 5 sec.
	3.3. MN' sends Echo Request including Home Address Option
	3.4. Wait Echo Reply
	3.5. MN' receives Echo Reply
	3.6. Wait 10 sec.
	3.7. MN' sends Echo Request including Home Address Option
	3.8. Wait Echo Reply
	3.9. MN receives 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>
<PRE>
     WARN: MN receives Echo Reply
</PRE>
<PRE>
(*3) PASS: MN receives Echo Reply
</PRE>

=end html

=head1 REFERENCE

=begin html
<PRE>
&lt;draft-ietf-mobileip-ipv6-15.txt&gt;
</PRE>
<PRE>
8.3. Requests to Cache a Binding
</PRE>
<PRE>
   In this case, the receiving node SHOULD create a new entry in its
   Binding Cache for this mobile node (or update its existing Binding
   Cache entry for this mobile node, if such an entry already exists).
   The new Binding Cache entry records the association between this
   home address and the care-of address for the binding.  The lifetime
   for the Binding Cache entry is initialized from the Lifetime field
   specified in the Binding Update, although this lifetime MAY be
   reduced by the node caching the binding; the lifetime for the Binding
   Cache entry MUST NOT be greater than the Lifetime value specified in
   the Binding Update.  <B>Any Binding Cache entry <FONT COLOR="#FF0000">MUST</FONT> be deleted after</B>
   <B>the expiration of this lifetime in the Binding Cache entry.</B>
</PRE>

=end html

=head1 SEE ALSO

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

=end html

=cut