/*****************************************************************
 ** @author   STF 521
 ** @version  0.0.1
 ** @purpose  1:15.9, Ensure that the match operation works correctly with enums.
 ** @verdict  pass accept, ttcn3verdict:pass
 *****************************************************************/

module Sem_1509_MatchOperation_016 {

type component GeneralComp { }

type enumerated A_enum { A, B, C, D, E };
type enumerated B_enum { A, F, G };

testcase TC_Sem_1509_MatchOperation_016() runs on GeneralComp {

    	var A_enum v_value := A;


	if (match(B,v_value)) {
		setverdict(fail);
	} else {
		setverdict(pass);
	}
}

control{
    execute(TC_Sem_1509_MatchOperation_016());
}

}