regression_test/XML/XmlWorkflow/src/xmlTest_Functions_list.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 xmlTest_Functions_list
   9 {
  10
  11 import from www_XmlTest_org_list_e all;
  12 //==============================================================================
  13 //  External functions
  14 //==============================================================================
  15 external function f_enc_StringList(in StringList pdu, out octetstring stream)
  16 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  17
  18 external function f_dec_StringList(in octetstring stream, out StringList pdu) return integer
  19 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  20
  21 //==============================================================================
  22 //   Encoding decoding test
  23 //==============================================================================
  24 //==========================================
  25 // f_encDecTest_StringList
  26 //==========================================
  27 function f_encDecTest_StringList() {
  28   var StringList vl_pdu:= { "Sue", "Maggie","Lisa", "Peter" }
  29   ,vl_decodedPdu;
  30   var octetstring vl_expectedEncodedPdu:=char2oct("<StringList>Sue Maggie Lisa Peter</StringList>\n\n");
  31   var octetstring vl_stream:=''O;
  32   f_enc_StringList(vl_pdu,vl_stream);
  33
  34   if( not match(vl_stream,vl_expectedEncodedPdu)) {
  35     log("Expected encoded value: ",vl_expectedEncodedPdu);
  36     log("Actual encoded value:   ", vl_stream);
  37     setverdict(fail);
  38   }
  39
  40   //log("===Checking value decoded from the encoded value vs original value===");
  41   var integer vl_retval:=f_dec_StringList(vl_stream, vl_decodedPdu);
  42   //log("retval:",vl_retval);
  43   if(f_dec_StringList(vl_stream, vl_decodedPdu)==0) {
  44     //log("The decoded pdu: ", vl_decodedPdu);
  45     if(match(vl_pdu,vl_decodedPdu)) {
  46       setverdict(pass);
  47     } else {
  48       log("Pdu differs from the expected value");
  49       log(match(vl_pdu,vl_decodedPdu));
  50       setverdict(fail);
  51     }
  52   }else{
  53     log("Pdu could not decoded");
  54     setverdict(fail);
  55   }
  56
  57   //log("===Checking value decoded from the expected value vs original value===");
  58   if( f_dec_StringList(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
  59     //log("The decoded pdu: ", vl_decodedPdu);
  60     if(match(vl_pdu,vl_decodedPdu)) {
  61       setverdict(pass);
  62     } else {
  63       log("Pdu could not decoded from the expected value");
  64       log(match(vl_pdu,vl_decodedPdu));
  65       setverdict(fail);
  66     }
  67   }
  68 }//f_
  69
  70 }//module