NegSyn_05040103_parameters_of_kind_timer_002.ttcn 925 Bytes
Newer Older
urbant's avatar
urbant committed
/*****************************************************************
 ** @author   STF 521
 ** @version  0.0.1
 ** @purpose  1:5.4.1.3, Verify that out timer parameters are not allowed
 ** @verdict  pass reject
 *****************************************************************/

// The following requirement is tested:
// Formal timer parameters shall be inout parameters, which can optionally be indicated by the keyword inout.

module NegSyn_05040103_parameters_of_kind_timer_002 {    
    
    type component C {
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    }
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    function f_test(out timer p_tmr) {
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
        p_tmr.start(1.0);
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    }
kovacsa's avatar
kovacsa committed

   
urbant's avatar
urbant committed
    testcase TC_NegSyn_05040103_parameters_of_kind_timer_002() runs on C{
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    	timer t_tmr;    
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
        f_test(t_tmr);        
kovacsa's avatar
kovacsa committed

        t_tmr.timeout;
urbant's avatar
urbant committed
        setverdict(pass);
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    }
kovacsa's avatar
kovacsa committed

   
urbant's avatar
urbant committed
    control {
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
        execute(TC_NegSyn_05040103_parameters_of_kind_timer_002());
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
    }
kovacsa's avatar
kovacsa committed

urbant's avatar
urbant committed
}