#!/usr/bin/perl
#
# Copyright (C) 2003 Yokogawa Electric Corporation,
# INTAP(Interoperability Technology Association
# for Information Processing, Japan). 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. However, using this software for the
# purpose of testing or evaluating any products including merchantable
# products may be permitted without any notification to the copyrighters.
#
#
#
# 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/default-addr-select/DstSelectRule3.seq,v 1.3 2003/04/22 03:57:45 akisada Exp $
#
######################################################################
BEGIN {
$V6evalTool::TestVersion = '$Name: REL_2_1_1 $';
}
use V6evalTool;
if ($V6evalTool::NutDef{Type} ne 'host') {
vLogHTML("This test is for the Host only
");
exit $V6evalTool::exitHostOnly;
}
use ADDR_SELECT;
$TRUE = $ADDR_SELECT::TRUE;
$FALSE = $ADDR_SELECT::FALSE;
$IF = $ADDR_SELECT::IF;
$NUT_LLA = nutLLA($IF);
$TEST_STRING = "Test for Default Destination Address Selection Rule3(Avoid deprecated addresses)";
$C_BLUE = $ADDR_SELECT::C_BLUE;
$DST_FQDN = $ADDR_SELECT::DST_FQDN;
@RESULT;
$RESULT_TABLE = "
| Destination List & Candidate Source | Judgment |
";
$RESULT_TEST = $TRUE;
#====== Test #======
vLogHTML("#### $TEST_STRING ####
");
vLogHTML("#### Jump to Test Result ####
");
$RESULT[@RESULT] = check_Deprecated("01",$TRUE,"fec0::2","fec0::1","3ffe::","fec0::3","3ffe::3","3fff::2","fec0::2","fec0::9");
$RESULT[@RESULT] = check_Deprecated("02",$FALSE,"3fff::2","3ffe::1","fec0::","3ffe::3","fec0::3","fec0::2","3fff::2","3ffe::9");
#====== Test Result #======
vLogHTML("
#### Test ($TEST_STRING) Result ####
");
$RESULT_TABLE .= "
";
vLogHTML("$RESULT_TABLE");
foreach $RESULT_CHECK (@RESULT){
if(!$RESULT_CHECK){
$RESULT_TEST = $FALSE;
}
}
if($RESULT_TEST){
vLogHTML("#### All Check: PASS ####
");
exit $V6evalTool::exitPass;
}else{
vLogHTML('#### Some Checks are Fail: NG ####
');
exit $V6evalTool::exitFail;
}
#======================================================================
# check_Deprecated($CHECK_NUM,$NEED_NCE_DST,$DESTINATION,$SOURCE1,$G_PREFIX,$TEST_DST1,$TEST_DST2,$DESTINATION1,$DESTINATION2)
# $CHECK_NUM : check number
# $NEED_NCE_DST : need nutMakeNCE_Destination() flag
# $DESTINATION : expected destination address
# $SOURCE1 : expected source address
# $G_PREFIX : (to make deprecated address $SOURCE2)
# $TEST_DST1 : destination of SOURCE1 at checkNUT_SrcAddr
# $TEST_DST2 : destination of SOURCE2 at checkNUT_SrcAddr
# $DESTINATION1
# $DESTINATION2
#======================================================================
sub check_Deprecated($$$$$$$$$) {
my ($CHECK_NUM,$NEED_NCE_DST,$DESTINATION,$SOURCE1,$G_PREFIX,$TEST_DST1,$TEST_DST2,$DESTINATION1,$DESTINATION2,$DNS_ADDR) = @_;
$SOURCE2 = prefix2G_ADDR_NUT($G_PREFIX,$IF);
my $SOURCE3 = $NUT_LLA;
my $CHECK_TXT = "Destination List = $DESTINATION1, $DESTINATION2
Candidate Source = $SOURCE1, $SOURCE2(deprecated), $SOURCE3
Expected Destination(Source) = $DESTINATION($SOURCE1)";
my $RESULT_LINE = "$CHECK_NUM | $CHECK_TXT | ";
my $RESULT = $TRUE;
#====== Check : Initialize Add source address & NCE in NUT #======
vLogHTML(" #### Check $CHECK_NUM: Start ($CHECK_TXT) #### ");
nutInitialize() || exit $V6evalTool::exitFatal;
nutDnsSet($DNS_ADDR) || exit $V6evalTool::exitFatal;
$CPP = "-DSOURCE1=\\\"$SOURCE1\\\" -DSOURCE2=\\\"$SOURCE2\\\" -DSOURCE3=\\\"$SOURCE3\\\" -DDESTINATION=\\\"$DESTINATION\\\" -DDESTINATION1=\\\"$DESTINATION1\\\" -DDESTINATION2=\\\"$DESTINATION2\\\" -DDST_FQDN=\\\"$DST_FQDN\\\" -DDNS_ADDR=\\\"$DNS_ADDR\\\"";
vCPP($CPP);
nutIPv6AddrAdd($SOURCE1,"64") || exit $V6evalTool::exitFatal;
nutDeprecatedIPv6AddrAdd($G_PREFIX,$CPP);
$ret = checkNUT_SrcAddr($CPP,$SOURCE1,$TEST_DST1,$SOURCE2,$TEST_DST2);
if (!$ret) {
vLogHTML("#### Check $CHECK_NUM: Fail #### ");
nutReboot() || exit $V6evalTool::exitFatal;
$RESULT_LINE .= "Fail |
";
$RESULT_TABLE .= $RESULT_LINE;
return $FALSE;
}
if($RESULT){
if(!nutPing62Dest_Dns($CPP,2,$ON_LINK)){
$RESULT = $FALSE;
}
}
if($RESULT){
vLogHTML("#### Check $CHECK_NUM: PASS ####
");
$RESULT_LINE .= "PASS";
$RESULT_TABLE .= $RESULT_LINE;
nutClear($SOURCE1,"64",$SOURCE2,"64") || exit $V6evalTool::exitFatal;
nutDnsRemove();
return $TRUE;
}else{
vLogHTML("#### Check $CHECK_NUM: Fail ####
");
$RESULT_LINE .= "Fail";
$RESULT_TABLE .= $RESULT_LINE;
nutClear($SOURCE1,"64",$SOURCE2,"64") || exit $V6evalTool::exitFatal;
nutDnsRemove();
return $FALSE;
}
}
######################################################################
__END__
=head1 NAME
DstSelectRule3.seq - Destination Address Selection
Check Rule 3(Avoid deprecated addresses)
Rule 3: Avoid deprecated addresses.
If Source(DA) is deprecated and Source(DB) is not, then prefer DB.
Source addresses used for this test are "preferred address" and "deprecated address".
=head1 TARGET
Host
=head1 SYNOPSIS
=begin html
DstSelectRule3.seq [-tooloption ...] -pkt ADDR_SELECT.def
-tooloption : v6eval tool option
=end html
=head1 INITIALIZATION
None
=head1 TEST PROCEDURE
This TEST performs the following Check procedures for
every address group defined by Check 01 - *.
*Check procedure
1. Initialize :
1.1. Set IPv6 Default Route in NUT
(Default Router address = )
1.2. Set DNS setting in NUT
1.3. Add Candidate Source Addresses (deprecated / public ) in NUT
* deprecated address is added by RA(PreferredLifetime=1) (TN->NUT)
1.4. Check Candidate Source Addresses by Ping6 (TN->NUT)
2. Send Ping6 from NUT to Destination(FQDN)
2.1. NUT send DNS query (question) (NUT->TN)
2.2. TN send DNS query (answer) (TN->NUT)
2.3. NUT send ICMPv6 echo request (NUT->TN)
3. Judgment :
if (recive packet's Destination & Source Addresses)
= (expected Destination & Source Addresses), Check pass
4. Cleanup :
4.1. Delete Candidate Source Addresses in NUT
4.2. Clear prefix list & NCE & default router list in NUT
4.3. Remove DNS setting in NUT
NUT TN Default DNS Destination
| | Router | |
| | | | |
======(INITIALIZE)=========
| | | | |
|<-<-<-+ | | | Set IPv6 Default Route
|<-<-<-+ | | | Set DNS setting
|<-<-<-+ | | | Add Candidate Source Addresses
| | | | |
|<------------+ | | RA (PreferredLifetime=1)
| | | | |
|<------------+ | | Echo Request to Candidate Source Addresses 1
+------------>| | | Echo Reply
| | | | |
|<------------+ | | Echo Request to Candidate Source Addresses 2
+------------>| | | Echo Reply
| | | | |
======(INITIALIZE)=========
| | | | |
|<-<-<-+ | | | Excute ping6 command
| | | | |
+------------------>| | DNS query question
<-------------------+ | DNS query answer
+------------------------>| Echo Request
| | | | |
LLA(Link Local Address)
*Following address grouup does not match Rule 1-2
Check 01:
DNS Address: fec0::9
Candidate Source Addresses: fec0::1 or 3ffe::NUT'sEUI64(deprecated) or LLA
Destination Address List: 3fff::2 or fec0::2
Result: fec0::2 (src fec0::1) then 3fff::2 (src 3ffe::NUT'sEUI64(deprecated))
Check 02:
DNS Address: 3ffe::9
Candidate Source Addresses: 3ffe::1 or fec0::NUT'sEUI64(deprecated) or LLA
Destination Address List: fec0::2 or 3fff::2
Result: 3fff::2 (src 3ffe::1) then fec0::2 (src fec0::NUT'sEUI64(deprecated))
=head1 JUDGEMENT
Check 01:
PASS: Receive Echo Request & destination(source) = fec0::2(fec0::1)
Check 02:
PASS: Receive Echo Request & destination(source) = 3ffe::2(3ffe::1)
TEST
PASS: All Check = PASS
=head1 SEE ALSO
perldoc V6evalTool
=begin html
ADDR_SELECT.html "Default Address Selection for IPv6" Test Common Utility
das_rules.html "Default Address Selection for IPv6" Rules
=end html
=cut