#!/usr/bin/perl # # Copyright (C) 1999, 2000, 2001, 2002, 2003 Yokogawa Electric Corporation, # IPA (Information-technology Promotion Agency, 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/natpt/rfc2765_3.3_icmpv4query.seq,v 1.3 2001/10/11 01:41:47 akisada Exp $ # BEGIN { $V6evalTool::TestVersion = '$Name: REL_2_1_1 $'; } use V6evalTool; use natpt; checkNUT(router); # Interface $IF="Link0"; $IF1="Link1"; vCapture($IF); vCapture($IF1); %pktdesc = ( echo_request_v4_tn2nut_df => 'Send ICMPv4 Echo Request', echo_request_nut2tn_siit => 'Recv ICMPv6 Echo Request', echo_reply_v4_tn2nut_df => 'Send ICMPv4 Echo Reply', echo_reply_nut2tn_siit => 'Recv ICMPv6 Echo Reply', icmpv4_information_request => 'Send ICMPv4 Information Request (Type 15)', icmpv4_information_reply => 'Send ICMPv4 Information Reply (Type 16)', icmpv4_timestamp_request => 'Send ICMPv4 Timestamp Request (Type 13)', icmpv4_timestamp_reply => 'Send ICMPv4 Timestamp Reply (Type 14)', icmpv4_address_mask_request => 'Send ICMPv4 Address Mask Request (Type 17)', icmpv4_address_mask_reply => 'Send ICMPv4 Address Mask Reply (Type 18)', icmpv4_router_advertisement => 'Send ICMPv4 Router Advertisement (Type 9)', icmpv4_router_solicitation => 'Send ICMPv4 Router Solicitation (Type 10)', icmpv4_unknown => 'Send Unknown ICMPv4 (Type 255)', arp_nut2tn_request => 'Recv ARP request on Link1 (TN IPv4addr)', arp_tn2nut_reply => 'Send ARP reply on Link1 (TN IPv4addr)', ns_nut2tn_siit0 => 'Recv Neighbor Solicitation on Link0 (SIIT V6addr)', na_tn2nut_siit0 => 'Send Neighbor Advertisement on Link0 (SIIT V6addr)', ); $result = $V6evalTool::exitPass; $result += send_recv($IF1, 'echo_request_v4_tn2nut_df', $IF, 'echo_request_nut2tn_siit'); $result += send_recv($IF1, 'echo_reply_v4_tn2nut_df', $IF, 'echo_reply_nut2tn_siit'); $result += send_recv($IF1, 'icmpv4_information_request', $IF, ''); $result += send_recv($IF1, 'icmpv4_information_reply', $IF, ''); $result += send_recv($IF1, 'icmpv4_timestamp_request', $IF, ''); $result += send_recv($IF1, 'icmpv4_timestamp_reply', $IF, ''); $result += send_recv($IF1, 'icmpv4_address_mask_request', $IF, ''); $result += send_recv($IF1, 'icmpv4_address_mask_reply', $IF, ''); $result += send_recv($IF1, 'icmpv4_router_advertisement', $IF, ''); $result += send_recv($IF1, 'icmpv4_router_solicitation', $IF, ''); $result += send_recv($IF1, 'icmpv4_unknown', $IF, ''); if($result == $V6evalTool::exitPass) { vLogHTML("
Before this test starts, run initialize.seq.=end html =head1 TEST PROCEDURE This test verifies that NUT can translates ICMPv4 query messages in accordance to RFC2765. Network Topology Link0 -------------------------- | | TN NUT | | -------------------------- Link1 TN -- (Link0) -- NUT NUT -- (Link1) -- TN --------------------- ------------------------ =begin html