/***************************************************
 ** @author   STF 433
 ** @version  0.0.2
 ** @purpose  1:24.3, Ensure getverdict returns the actual verdict fail
 ** @verdict  pass accept, ttcn3verdict:error
 ***************************************************/
/*
 * #reqname  /Requirements/24 Test verdict operations/24.3  The Getverdict operation/Getverdict returns local verdict value
 **/

module Sem_2403_getverdict_004 {
    type component TComp {}

    testcase TC_Sem_2403_getverdict_004() runs on TComp {
        var verdicttype v_verdict;
        setverdict(fail);
        v_verdict := getverdict;
        if (v_verdict == fail)
        {
        	// Set error verdict
            testcase.stop;
        }
    }

    control {
        execute(TC_Sem_2403_getverdict_004())
    }
}