/******************************************************************************
 * Copyright (c) 2000-2021 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v2.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
 *
 * Contributors:
 *   Balasko, Jeno
 *   Baranyi, Botond
 *
 ******************************************************************************/
module objid_test 
{

type component CT {}

testcase tc_objid() runs on CT {
  const objid a := objid { itu_t(0) identified_organization(4) etsi(0) };
  var objid b;
  @try {
    string2ttcn(ttcn2string(a), b);
    if (a != b) {
      setverdict(fail, "string2ttcn() result: ", b, ", expected: ", a);
    }
    setverdict(pass);
  }
  @catch (err_msg) {
    setverdict(fail, "string2ttcn() failed: ", err_msg);
  }
}

control {
  log("*** objid tests ***");
  execute(tc_objid())
}

}
