conformance_test/positive_tests/16_functions_altsteps_testcases/1601_functions/160103_external_functions/Sem_160103_external_functions_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:16.1.3, Ensure that the IUT recognizes external functions
  13  ** @verdict  pass accept, ttcn3verdict:pass
  14  ** @configuration  external_functions
  15  ***************************************************/
  16 module Sem_160103_external_functions_002 {
  17
  18     type record MyRecord {
  19         integer field1,
  20         integer field2,
  21         integer field3
  22     }
  23
  24     type port TestPort message {
  25         inout MyRecord
  26     } with {extension "internal"}
  27
  28     type component GeneralComp {
  29     }
  30         /**
  31          * @return p_in + 1
  32          */
  33     external function xf_Sem_160103_external_functions_002(inout integer p_in) return integer;
  34
  35     testcase TC_Sem_160103_external_functions_002 () runs on GeneralComp {
  36         var integer v_input := 5;
  37         var integer v_result;
  38
  39         v_result := xf_Sem_160103_external_functions_002(v_input);
  40         if(v_result==6) { setverdict(pass) }
  41         else { setverdict(fail) }
  42     }
  43
  44     control{
  45
  46         execute(TC_Sem_160103_external_functions_002());
  47
  48     }
  49
  50 }