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

module Sem_2403_getverdict_003 {
    type component TComp {}

    testcase TC_Sem_2403_getverdict_003() runs on TComp {
        var verdicttype v_verdict;
        setverdict(pass);
        v_verdict := getverdict;
        if (v_verdict == pass)
        {
            setverdict(pass)
        }
        else
        {
            setverdict(fail);
        }
    }

    control {
        execute(TC_Sem_2403_getverdict_003())
    }
}