#!/usr/bin/perl
#
# SCTP Conformance Test Suite Implementation
# (C) Copyright Fujitsu Ltd. 2008, 2009
#
# This file is part of the SCTP Conformance Test Suite implementation.
#
# The SCTP Conformance Test Suite implementation is free software;
# you can redistribute it and/or modify it under the terms of
# the GNU General Public License version 2 as published by
# the Free Software Foundation.
#
# The SCTP Conformance Test Suite implementation is distributed in the
# hope that it will be useful, but WITHOUT ANY WARRANTY; without even
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU CC; see the file COPYING.  If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
# Please send any bug reports or fixes you make to the
# email address(es):
#    networktest sctp <networktest-sctp@lists.sourceforge.net>
#
# Or submit a bug report through the following website:
#    http://networktest.sourceforge.net/
#
# Written or modified by:
#    Hiroaki Kago <linuxsctp-kg@ml.css.fujitsu.com>
#    Wei Yongjun <yjwei@cn.fujitsu.com>
#
# Any bugs reported given to us we will try to fix... any fixes shared will
# be incorporated into the next SCTP release.
#
##############################################################################
BEGIN {	$V6evalTool::TestVersion = '$Name: REL_1_0_0 $'; }

use lib "../common";
use V6evalTool;
use SCTP;

%pktdesc = (
	sctp_chunk_init_with_new_addr	=> "Send SCTP CHUNK_INIT (Restart of an Association with New Addresses)",
	sctp_chunk_abort_with_new_addr	=> "Recv SCTP CHUNK_ABORT (Restart of an Association with New Addresses)",
);

$IF0 = Link0;

vCapture($IF0);

sctpCheckEnv($IF0);

sctpStartServer($IF0);

vConnect($IF0);

vLogHTML('<B>================ Main Test =================</B>');

vSend($IF0, sctp_chunk_init_with_new_addr);

%ret = vWarpRecv($IF0, 10, 0, 0, sctp_chunk_abort_with_new_addr);
if($ret{status} != 0 || $ret{recvFrame} ne sctp_chunk_abort_with_new_addr) {
    vLogHTML('Cannot receive SCTP CHUNK_ABORT<BR>');
    vLogHTML('<FONT COLOR="#00FF00">NG</FONT>'); 
    exit $V6evalTool::exitFail;
}

vLogHTML(OK);
exit $V6evalTool::exitPass;

######################################################################
__END__

=head1 NAME

  GEN_RestartWithNewAddr.seq - Generation of error cause Restart of an Association with New Addresses

=head1 PURPOSE

  To check that if a INIT chunk is sent with new address parameter
  then endpoint should response with an ABORT message with cause
  Restart of an Association with New Addresses.

=head1 SYNOPSIS

=begin html
<PRE>
  <A HREF="./GEN_RestartWithNewAddr.seq">./GEN_RestartWithNewAddr.seq</A> [-tooloption ...] -pkt <A HREF="./GEN_RestartWithNewAddr.def">./GEN_RestartWithNewAddr.def</A>
    -tooloption : v6eval tool option
  See Also: <A HREF="../common/STD_PKT_COMMON.def">../common/STD_PKT_COMMON.def</A>
            <A HREF="../common/SCTP_COMMON.def">../common/SCTP_COMMON.def</A>
</PRE>

=end html

=head1 PRE-TEST CONDITION

  Association is not established between endpoint A and B. Arrange 
  data in endpoint A such that INIT chunk with new address parameter
  is sent to endpoint B.

=head1 TEST PROCEDURE

  Endpoint A                           Endpoint B                ULP
  (ESTABLISHED)                        (ESTABLISHED)

  INIT          ----------------->
  (with New Addresses)
                <-----------------      ABORT
                                        (Restart of an Association with New Addresses)

  TEST DESCRIPTION:

  1. Send INIT chunk from endpoint A to B with new address
     parameter.
  2. Check A: ABORT should be received at endpoint A.
  3. Check B: Error cause in ABORT is set to "Restart of an 
     Association with New Addresses".

=head1 NOTE

  None

=head1 REFERENCE

  RFC 4960

  3.3.10.11.  Restart of an Association with New Addresses (11)

    Cause of error
    --------------

    Restart of an association with new addresses: An INIT was received on
    an existing association.  But the INIT added addresses to the
    association that were previously NOT part of the association.  The
    new addresses are listed in the error code.  This ERROR is normally
    sent as part of an ABORT refusing the INIT (see Section 5.2).

         0                   1                   2                   3
         0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
        +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
        |         Cause Code=11         |      Cause Length=Variable    |
        +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
        /                       New Address TLVs                        /
        \                                                               \
        +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

    Note: Each New Address TLV is an exact copy of the TLV that was found
    in the INIT chunk that was new, including the Parameter Type and the
    Parameter Length.