regression_test/text2ttcn/component_test.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 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 module component_test
   9 {
  10
  11 type component CT {}
  12
  13 function f_test() runs on CT {
  14   timer tt1:=2.0
  15   tt1.start
  16   tt1.timeout
  17 }
  18
  19 testcase tc_component() runs on CT {
  20   var CT a := CT.create("a b.c\t!@#$%^&*(1)[]{};'""\\/,|`~");
  21   var CT b;
  22   @try {
  23     string2ttcn(ttcn2string(a), b);
  24     if (a != b) {
  25       setverdict(fail, "string2ttcn() result: ", b, ", expected: ", a);
  26     }
  27     b.start(f_test());
  28     b.done;
  29     setverdict(pass);
  30   }
  31   @catch (err_msg) {
  32     setverdict(fail, "string2ttcn() failed: ", err_msg);
  33   }
  34 }
  35
  36 control {
  37   log("*** component tests ***");
  38   execute(tc_component())
  39 }
  40
  41 }