/******************************************************************************
 * Copyright (c) ETSI 2017.
 *
 * This file is subject to copyrights owned by ETSI. Non-exclusive permission
 * is hereby granted, free of charge, to copy, reproduce and amend this file
 * under the following conditions: It is provided "as is", without warranty of any
 * kind, expressed or implied.
 * 
 * ETSI shall never be liable for any claim, damages, or other liability arising
 * from its use or inability of use.This permission does not apply to any documentation
 * associated with this file for which ETSI keeps all rights reserved. The present
 * copyright notice shall be included in all copies of whole or part of this
 * file and shall not imply any sub-license right.
 *
 * Modified by: Adrien Kirjak
 *
 ** @version  0.0.1
 ** @purpose  1:6.3.2, Ensure that the IUT correctly handles assignments from structures having compatible types and lengths 
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/

module Sem_060302_structured_types_006 {

    type record RecordType {
        integer  a,
        integer  b optional
    }

    type set SetType {
        integer  a,
        integer  b optional
    }

    type record length (1..2) of integer ShortIntegerList;
    type record of integer IntegerList;

    type set length (1..2) of integer ShortUnorderedIntegerList;
    type set of integer UnorderedIntegerList;

    type component GeneralComp {
    }

    testcase TC_Sem_060302_structured_types_006() runs on GeneralComp {

        var IntegerList v_list1:={0,-};
        var ShortIntegerList v_list2;

		var integer v_matcher[2]; //<-- array unbound assigent is problimatic
		v_matcher[0] := 1;

		log(v_list1);
		log(v_matcher);

		v_list1:=v_matcher;
		v_list2:=v_list1;

		var boolean v_check1 := (v_list2[0]==1);

 		if ( v_check1 )
        {
            setverdict(pass);
        }
        else {
            setverdict(fail);
        }

		//var RecordType v_rec1;
        //var UnorderedIntegerList v_ulist1:={1,-};
        //var ShortUnorderedIntegerList v_ulist2;
        //var SetType v_set1;

    }

    control{
        execute(TC_Sem_060302_structured_types_006());
    }

}
