/***************************************************
 ** @author   STF 433
 ** @version  0.0.1
 ** @purpose  1:24.3, Ensure getverdict returns the actual verdict none
 ** @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_001 {
    type component TComp {}

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

    control {
        execute(TC_Sem_2403_getverdict_001())
    }
}