/***************************************************
 ** @author   STF 470
 ** @version  0.0.1
 ** @purpose  1:6.2.0.6, ensure that anytype can act as a set type
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/
module Sem_060206_anytype_015 {

type set MySet{
		charstring field1,
		boolean field2 };


type component GeneralComp {

	var anytype x; // anytype x variable

	var MySet y := {
		field1:= "abc",
		field2:= true };	// Set y contains field1=abc and field2=true

}


testcase TC_Sem_060206_anytype_015() runs on GeneralComp {

x.MySet := y;	// anytype x now gets the type MySet and the values given by y.


      if ( match(x.MySet.field1, "abc") and match(x.MySet.field2, true))  {
	    setverdict(pass);
      }
      else {
	    setverdict(fail);
	  }

}

control {
    execute(TC_Sem_060206_anytype_015());
}

}
