/***************************************************
 ** @author   STF 487
 ** @version  0.0.1
 ** @purpose  1:B.1.2.6, Ensure that the IUT correctly handles template matching of superset definition
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/

 //Restriction c)
/*The member type of the set of associated with the SuperSet template and the member type of the template in
the all from clause shall be compatible.*/

module Sem_B010206_superset_008 {

  	type set of integer SoI;
    type record of integer RoI;

    type port loopbackPort message {
	  inout SoI
	}


type component GeneralComp {
	  port loopbackPort messagePort
}

testcase TC_Sem_B010206_superset_008() runs on GeneralComp {

    var SoI v_testMessage;

 template RoI Template:= {1,2};
 template SoI mw_matchingTemplate:= superset(all from Template);    //Template is a record of integers


 v_testMessage:={1,2};

 messagePort.send(v_testMessage);

    alt {
     [] messagePort.receive(mw_matchingTemplate) {
        setverdict(pass);
     }
     [] messagePort.receive {
        setverdict(fail);
     }
    }
}

control{
    execute(TC_Sem_B010206_superset_008());
}

}
