/******************************************************************************
 * Copyright (c) 2000-2014 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 ******************************************************************************/
module component_test 
{

type component CT {}

function f_test() runs on CT {
  timer tt1:=2.0
  tt1.start
  tt1.timeout
}

testcase tc_component() runs on CT {
  var CT a := CT.create("a b.c\t!@#$%^&*(1)[]{};'""\\/,|`~");
  var CT b;
  @try {
    string2ttcn(ttcn2string(a), b);
    if (a != b) {
      setverdict(fail, "string2ttcn() result: ", b, ", expected: ", a);
    }
    b.start(f_test());
    b.done;
    setverdict(pass);
  }
  @catch (err_msg) {
    setverdict(fail, "string2ttcn() failed: ", err_msg);
  }
}

control {
  log("*** component tests ***");
  execute(tc_component())
}

}