conformance_test/positive_tests/22_communication_operations/2202_message_based_communication/220203_trigger_operation/Sem_220203_TriggerOperation_002.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:22.2.3, Ensure that the IUT correctly handles message trigger operations
  13  ** @verdict  pass accept, ttcn3verdict:pass
  14  ***************************************************/
  15
  16 module Sem_220203_TriggerOperation_002 {
  17
  18
  19     type port loopbackPort message {
  20                 inout integer
  21         } with {extension "internal"}
  22
  23
  24         type component GeneralComp {
  25                 port loopbackPort messagePort
  26         }
  27
  28         testcase TC_Sem_220203_TriggerOperation_002() runs on GeneralComp {
  29                 timer t_timeout:=5.0;
  30
  31                 connect(self:messagePort, self:messagePort);
  32                 messagePort.send(2);
  33                 t_timeout.start;
  34
  35                 alt {
  36                         [] messagePort.trigger {   //must remove message from queue
  37                         setverdict(pass);
  38                         }
  39                         [] messagePort.trigger {        //this alt is only selected if message not removed from the queue
  40                         setverdict(fail);
  41                         }
  42                         [] t_timeout.timeout {
  43                         setverdict(pass);
  44                         }
  45                 }
  46         }
  47
  48         control{
  49                 execute(TC_Sem_220203_TriggerOperation_002());
  50         }
  51
  52 }