#!/usr/bin/perl # # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 # Yokogawa Electric Corporation. # 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. # # 5. The copyrighters, the project and the contributors may prohibit # the use of this software at any time. # # 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: dhcpv6.p2/rfc3736/S_RFC3736_5.1_SLDHCPReply.seq,v 1.3 2007/02/20 08:23:59 hide Exp $ ######################################################################## BEGIN { $V6evalTool::TestVersion = '$Name: DHCPv6_Self_Test_P2_1_0_13 $'; } use strict; use V6evalTool; use lib '../.'; use DHCPv6_common; use Server_pktdesc; dhcpExitNS if ChkFuncSupport('STATELESSDHCP'); #--------------------------------------------------------------# # Initialization #--------------------------------------------------------------# vLogHTML('==== NUT Initialization ====
'); my $IF0 = "Link0"; #initial NUT config parameters, my %NUT_Server_Config = ( 'if_nut0'=> "$V6evalTool::NutDef{Link0_device}", 'init_opcode' => "vRemote(\"dhcp6s.rmt\", \"start\",\"dns=3ffe:501:ffff:100:200:ff:fe00:3f3e\",\"stateless\",\"link0=$V6evalTool::NutDef{Link0_device}\")" ); dhcpSvrInitS(\%NUT_Server_Config); # 1 send DHCPv6 Information-request Message $CID_OPTION = "opt_CID_LLT_client1"; $OptionRequest_OPTION = "opt_ORO_dns_servers"; $ElapsedTime_OPTION = "opt_ElapsedTime"; my ($ret1, %ireq1) = send_information_request($IF0, "information_request_client1_to_alldhcp", undef, ""); if (0 != $ret1){ dhcpExitFail(); } # wait for DHCPv6 Reply Message my ($ret2, %rep2) = wait_for_reply($IF0, 5); if (0 != $ret2){ dhcpExitFail(); } # 2 check Options if (0 != options_exist(\%rep2, ($CMP_SID|$CMP_CID))){ dhcpExitError("The expected option is not exist
"); } # compare Options #if (0 != compare_options(\%ireq1, \%rep2, ($CMP_CID|$CMP_TRANS_ID))){ # dhcpExitError("The value of option is different from expected value.
"); #} my $identifier = $rep2{"Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Reply.Identifier"}; vLogHTML(" Identifier is $identifier
"); if($identifier == 0){ vLogHTML('Identifier is not non-zero value.
'); dhcpExitFail; } #------------------------------------------------------------------- vLogHTML("The Reply Message is correct
"); #------------------------------------------------------------------- vClear($IF0); vStop($IF0); dhcpExitPass(); #NOTREACHED ######################################################################## __END__ =head1 NAME S_RFC3736_5.1_SLDHCPReply.seq - Checking Reply message =head1 TARGET Server =head1 SYNOPSIS =begin html

 S_RFC3736_5.1_SLDHCPReply.seq [-tooloption ...]
 -pkt S_RFC3736_5.1_SLDHCPReply.def 
 -tooloption: v6eval tool option
See Also  DHCPv6.def

=head1 INITIALIZATION =begin html

Network Topology

          TN(Client1)  
             |
Link0 -------+-----------+--------------- 3ffe:501:ffff:100::/64
                         |
                       NUT(Server1)

Verification Points

    
Reply Message Format
    msg-type
    REPLY(7)
    transaction-id
    non-zero value
    options
    Server ID option
    Client ID option

Configuration

Device Name Device Type I/F Assigned Prefix Link Local Addr MAC Addr

Server1 NUT Link0 3ffe:501:ffff:100::/64 NUT's Linklocal address NUT's MAC address

Client1 TN Link0 3ffe:501:ffff:100::/64 fe80::200:ff:fe00:a2a2 00:00:00:00:a2:a2

=end html =head1 TEST PROCEDURE =begin html

       NUT     TN
        |       | 
        |       | initialize NUT (as a stateless DHCPv6 Server)
        |       | 
        | <---- | Information-request(w/ Option Request option(DNS Recursive Name Server option))
        | ----> | Reply (*1)
        |       | 
        |       |

=end html =head1 JUDGEMENT

(*1)PASS:  NUT returns the Reply message.

=head1 TERMINATION N/A =head1 REFERENCE =begin html

   See also RFC3315 
   6 Client/Server Message Formats

   see also RFC3736
   5.1. Messages Required for Stateless DHCP Service

=end html =head1 SEE ALSO perldoc V6evalTool =cut

`Device Name`	`Device Type`	`I/F`	`Assigned Prefix`	`Link Local Addr`	`MAC Addr`
`Server1`	`NUT`	`Link0`	`3ffe:501:ffff:100::/64`	`NUT's Linklocal address`	`NUT's MAC address`
`Client1`	`TN`	`Link0`	`3ffe:501:ffff:100::/64`	`fe80::200:ff:fe00:a2a2`	`00:00:00:00:a2:a2`