Sync with 5.2.0

[deliverable/titan.core.git] / regression_test / ttcn2json / Testcases.ttcn

/******************************************************************************
 * 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 Testcases {

import from Shell all;
import from CompareSchemas all;

function f_test_ttcn2json(in charstring p_args, in charstring p_gen_file_name, in charstring p_exp_file_name,
  in integer p_exp_result) runs on Shell_CT
{
  var charstring v_cmd := "compiler --ttcn2json " & p_args;
  f_shellCommandWithVerdict(v_cmd, "", p_exp_result);

  if (getverdict == pass) {
    if (f_compare_schemas(p_gen_file_name, p_exp_file_name) == false) {
      setverdict(fail, "Generated and expected files do not match");
    }
  }
  else {
    action("Command ", v_cmd, " failed");
  }
  
}

testcase tc_t2j_one() runs on Shell_CT 
{
  f_test_ttcn2json("-f one.ttcn two.ttcn three.ttcn zero.asn", "one.json", "one_e.json", 
    c_shell_successWithWarning);
}

testcase tc_t2j_two() runs on Shell_CT 
{
  f_test_ttcn2json("-jf one.ttcn two.ttcn three.ttcn zero.asn - two.json", "two.json", "two_e.json", 
    c_shell_successWithWarning);
}

testcase tc_t2j_three() runs on Shell_CT 
{
  f_test_ttcn2json("-j -T one.ttcn -T two.ttcn -T three.ttcn -A zero.asn - three.json", "three.json", "three_e.json", 
    c_shell_successWithWarning);
}

testcase tc_t2j_general_types() runs on Shell_CT 
{
  f_test_ttcn2json("General_Types.ttcn", "General_Types.json", "General_Types_e.json", 
    c_shell_successWithoutWarningAndError);
}

testcase tc_t2j_main_asn() runs on Shell_CT
{
  f_test_ttcn2json("-f Main.ttcn PDU_Definitions.asn", "Main.json", "Main_e.json", 
    c_shell_successWithoutWarningAndError);
}

testcase tc_t2j_mini_ranap() runs on Shell_CT
{
  f_test_ttcn2json("MiniRanap.asn", "MiniRanap.json", "MiniRanap_e.json", 
    c_shell_successWithoutWarningAndError);
}

control {
  execute(tc_t2j_one());
  execute(tc_t2j_two());
  execute(tc_t2j_three());
  execute(tc_t2j_general_types());
  execute(tc_t2j_main_asn());
  execute(tc_t2j_mini_ranap());
}

}