conformance_test/positive_tests/23_timer_operations/2306_the_timeout_operation/Sem_2306_timer_timeout_009.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2016 Ericsson Telecom AB
   3  * All rights reserved. This program and the accompanying materials
   4  * are made available under the terms of the Eclipse Public License v1.0
   5  * which accompanies this distribution, and is available at
   6  * http://www.eclipse.org/legal/epl-v10.html
   7  *
   8  * Contributors:
   9  *   Adrien Kirjak – initial implementation
  10  *
  11  ** @version  0.0.1
  12  ** @purpose  1:23.6, removing random timeout when using any timer.timeout
  13  ** @verdict  pass accept, ttcn3verdict:pass
  14  ***************************************************/
  15
  16 module Sem_2306_timer_timeout_009 {
  17
  18     type component TComp{
  19         timer t_tmr := 0.5;
  20     }
  21
  22     testcase TC_Sem_2306_timer_timeout_009() runs on TComp{
  23         t_tmr.start;
  24         any timer.timeout; // it should remove t_tmr timeout from the timeout table
  25         alt {
  26             [] t_tmr.timeout { setverdict(fail, "Timeout not removed by any timer.timeout"); }
  27             [else] { setverdict(pass); }
  28         }
  29     }
  30
  31     control {
  32         execute(TC_Sem_2306_timer_timeout_009(), 5.0)
  33     }
  34 }