#!/usr/bin/perl # # $Copyright$ # # $TAHI: ct/nd/routerRecvRs.seq,v 1.12 2003/10/19 23:31:14 masaxmasa Exp $ ######################################################################## BEGIN { $V6evalTool::TestVersion = '$Name: $ '; } use V6evalTool; use nd; use ra; ndOptions(@ARGV); # The following generate debugging messages. $nd::debug=$ndOpt_v|$ndOpt_vv; # You can specifies debug options to a remote control program. # If you want to know more detail, please see the following: # - V6evalTool.pm: perldoc V6evalTool # - V6evalRemote.pm: perldoc V6evalRemote $nd::remote_debug="-o1" if $ndOpt_vv; $IF=Link0; $exit_rtn=$V6evalTool::exitPass; $idx=0; $wait_ra=2; $wait_ras=$nd::MIN_DELAY_BETWEEN_RAS+1; # # # $type=$V6evalTool::NutDef{Type}; if($type eq host) { vLogHTML("This test is for the router only
"); exit $V6evalTool::exitRouterOnly; } $type=$V6evalTool::NutDef{Type}; if($type ne router) { vLogHTML(ndErrmsg("ERROR: $V6evalTool::NutDef{Type}: ". "Unknown target type
")); exit $V6evalTool::exitFail; } if(raIsMarkDefaultRA() == 0) { vLogHTML(ndErrmsg("ERROR: Need RA configuration
")); exit $V6evalTool::exitFail; } # # # $idx_ptn=0; $idx_msg=1; # @def_rs_unspec2allrouter= ( 'rs_unspec2allrouter', 'RS w/o SLL, src=unspecific', ); # @def_rs_tn2allrouter= ( 'rs_tn2allrouter', 'RS w/o SLL, src=link-local', ); # @def_rs_tn2allrouter_sll= ( 'rs_tn2allrouter_sll', 'RS w/ SLL, src=link-local', ); # @def_rs_tn2allrouter_invalid_hlimit= ( 'rs_tn2allrouter_invalid_hlimit', 'RS w/o SLL, hop limit!=255 (INVALID)', ); # @def_rs_tn2allrouter_invalid_chksum= ( 'rs_tn2allrouter_invalid_chksum', 'RS w/o SLL, invalid checksum (INVALID)', ); # @def_rs_tn2allrouter_invalid_icmpcode= ( 'rs_tn2allrouter_invalid_icmpcode', 'RS w/o SLL, icmp code!=0 (INVALID)', ); # @def_rs_unspec2allrouter_sll_invalid= ( 'rs_unspec2allrouter_sll_invalid', 'RS w/ SLL, src=unspecified (INVALID)', ); # # # @defs= ( \@def_rs_unspec2allrouter, \@def_rs_tn2allrouter, \@def_rs_tn2allrouter_sll, ); # @invalid_defs= ( \@def_rs_tn2allrouter_invalid_hlimit, \@def_rs_tn2allrouter_invalid_chksum, \@def_rs_tn2allrouter_invalid_icmpcode, \@def_rs_unspec2allrouter_sll_invalid, ); # # # vCapture($IF); # # # $idx=0; foreach(@defs) { $ptn=@$_[$idx_ptn]; $msg=@$_[$idx_msg]; vLogHTML("
*** $msg ***
"); $title{$idx}="$msgexp:sending RA"; vLogHTML("Initialization
"); if(nd2NoNce($IF) != 0) { $exit_rtn=$V6evalTool::exitFail; $title{$idx}.="result:ERROR"; } else { vLogHTML("Test
"); vClear($IF); $pktdesc{$ptn}="Send $msg"; %ret=vSend($IF, $ptn); if(raRecvDefaultRA($IF, $wait_ra, $ret{sentTime1}, 0, %ret2) != 0) { $title{$idx}.="result:sent RA"; $result{$idx}=$V6evalTool::exitPass; vLogHTML("OK
"); } else { $title{$idx}.="result:NOT sent RA"; $result{$idx}=$V6evalTool::exitFail; $exit_rtn=$V6evalTool::exitFail; vLogHTML("".ndErrmsg(NG)."
"); } } $idx++; vSleep($wait_ras, "Wait for MIN_DELAY_BETWEEN_RAS (3 sec)"); } # # # @col=('PTN', 'EXP', 'RESULT'); ndPrintSummaryHTML("*** Test Summary: Receiving RS vs Sending RA ***", @col, %title, %result, $idx); # # # exit $exit_rtn; ######################################################################## __END__ =head1 NAME routerRecvRs - Verifying that NUT responds valid RSs =head1 TARGET Router Only =head1 SYNOPSIS routerRecvRs.seq [-tooloption ...] -p routerRecvRs.def =head1 INITIALIZATION Clear a neighbor cache entry for TN. =head1 TEST PROCEDURE B verifies that NUT responds valid RSs. =begin html
  TN               NUT
  ----------------------
  State: No neighbor cache entry (for TN)

==== valid RS ===>
<=== RA ====
Wait for MIN_DELAY_BETWEEN_RAS sec.
=end html =head1 JUDGMENT =begin html
  1. NUT must send a valid RA when received a valid RS.

========================================+================= RS | Expected RA ========================================+================= RS w/o SLL, src=unspecific | sending RA ----------------------------------------+----------------- RS w/o SLL, src=link-local | sending RA ----------------------------------------+----------------- RS w/ SLL, src=link-local | sending RA ========================================+=================
2. NUT sends the following RA that was configured by the previous test.
3. The received RA may have - Source link-layer address option - MUT option - Prefix option
=end html =head1 TERMINATION N/A =head1 NOTE N/A =head1 REFERENCE =begin html
RFC2461

4.3. Neighbor Solicitation Message Format IP Fields:
Source Address Either an address assigned to the interface from which this message is sent or (if Duplicate Address Detection is in progress [ADDRCONF]) the unspecified address.
Destination Address Either the solicited-node multicast address corresponding to the target address, or the target address.
Hop Limit 255
Authentication Header If a Security Association for the IP Authentication Header exists between the sender and the destination address, then the sender SHOULD include this header.
ICMP Fields:
Type 135
Code 0
Checksum The ICMP checksum. See [ICMPv6].
Reserved This field is unused. It MUST be initialized to zero by the sender and MUST be ignored by the receiver.
Target Address The IP address of the target of the solicitation. It MUST NOT be a multicast address.
Possible options:
Source link-layer address The link-layer address for the sender. MUST NOT be included when the source IP address is the unspecified address. Otherwise, on link layers that have addresses this option MUST be included in multicast solicitations and SHOULD be included in unicast solicitations.

6.2.6. Processing Router Solicitations
In addition to sending periodic, unsolicited advertisements, a router sends advertisements in response to valid solicitations received on an advertising interface. A router MAY choose to unicast the response directly to the soliciting host's address (if the solicitation's source address is not the unspecified address), but the usual case is to multicast the response to the all-nodes group. In the latter case, the interface's interval timer is reset to a new random value, as if an unsolicited advertisement had just been sent (see Section 6.2.4).
=head1 SEE ALSO perldoc V6evalTool perldoc V6evalRemote =cut