Last sync 2016.04.01

[deliverable/titan.core.git] / regression_test / XML / XmlWorkflow / src / xmlTest_Functions_complex1.ttcn

/******************************************************************************
 * Copyright (c) 2000-2016 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
 *
 * Contributors:
 *   Balasko, Jeno
 *   Raduly, Csaba
 *   Szabados, Kristof
 *
 ******************************************************************************/
module xmlTest_Functions_complex1
{

import from www_XmlTest_org_complex1_e all;

external function f_enc_InternationalPrice(in InternationalPrice pdu, out octetstring stream)
with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
//0: OK
//1: NOK

external function f_dec_InternationalPrice(in octetstring stream, out InternationalPrice pdu) return integer
with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }

//Encoding decoding test:
function f_encDecTest_InternationalPrice() {
  var InternationalPrice vl_pdu:= {
    currency:="US",
    base:=54321.9
  },vl_decodedPdu;
  var octetstring vl_expectedEncodedPdu:=char2oct("<InternationalPrice currency='US'>54321.900000</InternationalPrice>\n\n");
  var octetstring vl_stream:=''O;

  f_enc_InternationalPrice(vl_pdu,vl_stream);
  if( not match(vl_stream,vl_expectedEncodedPdu)) {
    log("Expected encoded value: ",vl_expectedEncodedPdu);
    log("Actual encoded value:   ", vl_stream);
    setverdict(fail);
  }

  //log("===Checking value decoded from the encoded value vs original value===");
  if(f_dec_InternationalPrice(vl_stream, vl_decodedPdu)==0) {
    //log("The decoded pdu: ", vl_decodedPdu);
    if(match(vl_pdu,vl_decodedPdu)) {
      setverdict(pass);
    } else {
      log("Pdu could not decoded");
      log(match(vl_pdu,vl_decodedPdu));
    }
  }

  //log("===Checking value decoded from the expected value vs original value===");
  if( f_dec_InternationalPrice(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
    //log("The decoded pdu: ", vl_decodedPdu);
    if(match(vl_pdu,vl_decodedPdu)) {
      setverdict(pass);
    } else {
      log("Pdu could not decoded from the expected value");
      log(match(vl_pdu,vl_decodedPdu));
    }
  }
}

}//module