regression_test/XML/XmlWorkflow/src/xmlTest_Functions_element.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 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_element
   9 {
  10 import from www_XmlTest_org_element_anyType_e all;
  11 import from www_XmlTest_org_element_recordOfElements_e all;
  12 import from www_XmlTest_org_element_recordOfElements3_e all;
  13 import from www_XmlTest_org_element_recordOfElements4_e all;
  14 import from www_XmlTest_org_element_recordOfElements5_e all;
  15 import from www_XmlTest_org_element_nameInheritance_e all;
  16 import from www_ericsson_com_is_isco_Tgc_R6A48_R6H01  all;
  17 import from XmlTest_imsike_e all;
  18 import from xmlTest_Shell all;
  19 //==============================================================================
  20 //  External functions
  21 //==============================================================================
  22 external function f_enc_Anything1(in Anything1 pdu, out octetstring stream)
  23 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  24
  25 external function f_dec_Anything1(in octetstring stream, out Anything1 pdu) return integer
  26 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  27
  28 external function f_enc_PersonInfo1(in PersonInfo1 pdu, out octetstring stream)
  29 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  30
  31 external function f_dec_PersonInfo1(in octetstring stream, out PersonInfo1 pdu) return integer
  32 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  33
  34 external function f_enc_PersonInfo2(in PersonInfo2 pdu, out octetstring stream)
  35 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  36
  37 external function f_dec_PersonInfo2(in octetstring stream, out PersonInfo2 pdu) return integer
  38 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  39
  40 external function f_enc_PersonInfo3(in PersonInfo3 pdu, out octetstring stream)
  41 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  42
  43 external function f_dec_PersonInfo3(in octetstring stream, out PersonInfo3 pdu) return integer
  44 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  45
  46 external function f_enc_PersonInfo4(in PersonInfo4 pdu, out octetstring stream)
  47 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  48
  49 external function f_dec_PersonInfo4(in octetstring stream, out PersonInfo4 pdu) return integer
  50 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  51
  52 external function f_enc_PersonInfo5(in PersonInfo5 pdu, out octetstring stream)
  53 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  54
  55 external function f_dec_PersonInfo5(in octetstring stream, out PersonInfo5 pdu) return integer
  56 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  57
  58 external function f_enc_IndividualTrigger(in IndividualTrigger pdu, out octetstring stream)
  59 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  60
  61 external function f_dec_IndividualTrigger(in octetstring stream, out IndividualTrigger pdu) return integer
  62 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  63
  64 external function f_enc_Isp(in Isp pdu, out octetstring stream)
  65 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  66
  67 external function f_dec_Isp(in octetstring stream, out Isp pdu) return integer
  68 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  69
  70 external function f_enc_RemarkNillable(in RemarkNillable pdu, out octetstring stream)
  71 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  72
  73 external function f_dec_RemarkNillable(in octetstring stream, out RemarkNillable pdu) return integer
  74 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  75
  76 external function f_enc_NameInheritance(in NameInheritance pdu, out octetstring stream)
  77 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  78
  79 external function f_dec_NameInheritance(in octetstring stream, out NameInheritance pdu) return integer
  80 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  81
  82 external function f_enc_Tgc(in Tgc pdu, out octetstring stream)
  83 with { extension "prototype(fast) encode(XER:XER_EXTENDED)" }
  84
  85 external function f_dec_Tgc(in octetstring stream, out Tgc pdu) return integer
  86 with { extension "prototype(backtrack) decode(XER:XER_EXTENDED)" }
  87
  88 //==============================================================================
  89 //   Encoding decoding test
  90 //==============================================================================
  91
  92 //==========================================
  93 // f_encDecTest_Anything1 general
  94 //==========================================
  95 function f_encDecTest_Anything1(in Anything1 pl_pdu, in charstring pl_expectedEncodedPdu, in Anything1 pl_expectedDecodedPdu) {
  96   var Anything1 vl_decodedPdu;
  97   var octetstring vl_expectedEncodedPdu:= char2oct(pl_expectedEncodedPdu);
  98   var octetstring vl_stream:=''O;
  99
 100   f_enc_Anything1(pl_pdu,vl_stream);
 101   if( match(vl_stream,vl_expectedEncodedPdu)) {
 102     setverdict(pass);
 103   } else {
 104     log("Expected encoded value: ",vl_expectedEncodedPdu);
 105     log("Actual encoded value:   ", vl_stream);
 106     setverdict(fail)
 107   }
 108
 109   //log("===Checking value decoded from the encoded value vs expected value===");
 110
 111   if(f_dec_Anything1(vl_stream, vl_decodedPdu)==0) {
 112     //log("The decoded pdu: ", vl_decodedPdu);
 113
 114     if(isvalue(vl_decodedPdu)){
 115       if(match(pl_expectedDecodedPdu,vl_decodedPdu)) {
 116         setverdict(pass);
 117       } else {
 118         log("Pdu differs from the expected value");
 119         log(match(pl_expectedDecodedPdu,vl_decodedPdu));
 120         setverdict(fail);
 121       }
 122     }else{
 123       log("The decoded value contains unbounded values");
 124       setverdict(fail);
 125     }
 126   }else {
 127     log("Pdu could not decoded");
 128     setverdict(fail);
 129   }
 130
 131   //log("===Checking value decoded from the expected value vs original value===");
 132
 133   if(f_dec_Anything1(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 134     //log("The decoded pdu: ", vl_decodedPdu);
 135     if(isvalue(vl_decodedPdu)){
 136       if(match(pl_expectedDecodedPdu,vl_decodedPdu)) {
 137         setverdict(pass);
 138       } else {
 139         log("Pdu differs from the expected value");
 140         log(match(pl_expectedDecodedPdu,vl_decodedPdu));
 141         setverdict(fail);
 142       }
 143     }else{
 144       log("The decoded value contains unbounded values");
 145       setverdict(fail);
 146     }
 147   }else {
 148     log("Pdu could not decoded");
 149     setverdict(fail);
 150   }
 151 }//f_
 152
 153 //==========================================
 154 // f_encDecTest_PersonInfo1
 155 //==========================================
 156 function f_encDecTest_PersonInfo1() {
 157   var PersonInfo1 vl_pdu:= {
 158     firstName:="Peter",
 159     lastName:="Falk",
 160     age:=82,
 161     degree:=omit
 162   },vl_decodedPdu;
 163   var octetstring vl_expectedEncodedPdu:=char2oct("<PersonInfo1>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<age>82</age>\n</PersonInfo1>\n\n");
 164   var octetstring vl_stream:=''O;
 165   f_enc_PersonInfo1(vl_pdu,vl_stream);
 166
 167   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 168     log("Expected encoded value: ",vl_expectedEncodedPdu);
 169     log("Actual encoded value:   ", vl_stream);
 170     setverdict(fail);
 171   }
 172
 173   //log("===Checking value decoded from the encoded value vs original value===");
 174   if(f_dec_PersonInfo1(vl_stream, vl_decodedPdu)==0) {
 175     //log("The decoded pdu: ", vl_decodedPdu);
 176     if(match(vl_pdu,vl_decodedPdu)) {
 177       setverdict(pass);
 178     } else {
 179       log("Pdu differs from the expected value");
 180       log(match(vl_pdu,vl_decodedPdu));
 181       setverdict(fail);
 182     }
 183   }else{
 184     log("Pdu could not decoded");
 185     setverdict(fail);
 186   }
 187
 188   //log("===Checking value decoded from the expected value vs original value===");
 189   if( f_dec_PersonInfo1(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 190     //log("The decoded pdu: ", vl_decodedPdu);
 191     if(match(vl_pdu,vl_decodedPdu)) {
 192       setverdict(pass);
 193     } else {
 194       log("Pdu could not decoded from the expected value");
 195       log(match(vl_pdu,vl_decodedPdu));
 196       setverdict(fail);
 197     }
 198   }
 199 }
 200
 201 //==========================================
 202 // f_encDecTest_PersonInfo1_defaultElement
 203 //==========================================
 204 function f_encDecTest_PersonInfo1_defaultElement() {
 205   var PersonInfo1 vl_pdu:= {
 206     firstName:="Peter",
 207     lastName:="Falk",
 208     age:=82,
 209     degree:=omit
 210   },vl_decodedPdu;
 211   var octetstring vl_expectedEncodedPdu:=char2oct("<PersonInfo1>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<age>82</age>\n</PersonInfo1>\n\n");
 212   var octetstring vl_stream:=''O;
 213   f_enc_PersonInfo1(vl_pdu,vl_stream);
 214
 215   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 216     log("Expected encoded value: ",vl_expectedEncodedPdu);
 217     log("Actual encoded value:   ", vl_stream);
 218     setverdict(fail);
 219   }
 220
 221   //log("===Checking value decoded from the encoded value vs original value===");
 222   if(f_dec_PersonInfo1(vl_stream, vl_decodedPdu)==0) {
 223     //log("The decoded pdu: ", vl_decodedPdu);
 224     if(match(vl_pdu,vl_decodedPdu)) {
 225       setverdict(pass);
 226     } else {
 227       log("Pdu differs from the expected value");
 228       log(match(vl_pdu,vl_decodedPdu));
 229       setverdict(fail);
 230     }
 231   } else {
 232     log("Pdu could not decoded");
 233     setverdict(fail);
 234   }
 235
 236   //log("===Checking value decoded from the expected value vs original value===");
 237   if( f_dec_PersonInfo1(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 238     //log("The decoded pdu: ", vl_decodedPdu);
 239     if(match(vl_pdu,vl_decodedPdu)) {
 240       setverdict(pass);
 241     } else {
 242       log("Pdu differs from the expected value");
 243       log(match(vl_pdu,vl_decodedPdu));
 244       setverdict(fail);
 245     }
 246   }else {
 247     log("Pdu could not decoded from the expected value");
 248     setverdict(fail);
 249   }
 250
 251   //log("===Empty default value test 1===");
 252   var octetstring vl_xmlWithEmptyDefaultValue
 253     :=char2oct("<PersonInfo1>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<age>82</age>\n<degree></degree>\n</PersonInfo1>\n\n");
 254
 255   var PersonInfo1 vl_expectedPdu:= {
 256     firstName:="Peter",
 257     lastName:="Falk",
 258     age:=82,
 259     degree:="Msc"
 260   };
 261
 262   if(f_dec_PersonInfo1(vl_xmlWithEmptyDefaultValue, vl_decodedPdu)==0) {
 263     if(match(vl_expectedPdu,vl_decodedPdu)) {
 264       setverdict(pass);
 265     } else {
 266       log("The value to be decoded: ",vl_xmlWithEmptyDefaultValue);
 267       log("The decoded pdu: ", vl_decodedPdu);
 268       log("Pdu differs from the expected value");
 269       log(match(vl_expectedPdu,vl_decodedPdu));
 270       setverdict(fail);
 271     }
 272   }else {
 273     log("Pdu could not decoded from the expected value");
 274     setverdict(fail);
 275   }
 276
 277   //log("===Empty default value test 2===");
 278   vl_xmlWithEmptyDefaultValue
 279   :=char2oct("<PersonInfo1>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<age>82</age>\n<degree/>\n</PersonInfo1>\n\n");
 280
 281   vl_expectedPdu:= {
 282     firstName:="Peter",
 283     lastName:="Falk",
 284     age:=82,
 285     degree:="Msc"
 286   };
 287
 288   if(f_dec_PersonInfo1(vl_xmlWithEmptyDefaultValue, vl_decodedPdu)==0) {
 289     if(match(vl_expectedPdu,vl_decodedPdu)) {
 290       setverdict(pass);
 291     } else {
 292       log("The value to be decoded: ",vl_xmlWithEmptyDefaultValue);
 293       log("The decoded pdu: ", vl_decodedPdu);
 294       log("Pdu differs from the expected value");
 295       log(match(vl_expectedPdu,vl_decodedPdu));
 296       setverdict(fail);
 297     }
 298   }else {
 299     log("Pdu could not decoded from the expected value");
 300     setverdict(fail);
 301   }
 302 }//f_
 303
 304 //==========================================
 305 // f_encDecTest_PersonInfo2
 306 //==========================================
 307 function f_encDecTest_PersonInfo2() {
 308   var PersonInfo2 vl_pdu:= {
 309     nationality:="Hungarian",
 310     title:="Mr",
 311     firstName:="Peter",
 312     lastName:="Falk",
 313     age:=88
 314   },vl_decodedPdu;
 315   var octetstring vl_expectedEncodedPdu:=char2oct("<PersonInfo2 nationality='Hungarian' title='Mr'>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<age>88</age>\n</PersonInfo2>\n\n");
 316
 317   var octetstring vl_stream:=''O;
 318   f_enc_PersonInfo2(vl_pdu,vl_stream);
 319
 320   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 321     log("Expected encoded value: ",vl_expectedEncodedPdu);
 322     log("Actual encoded value:   ", vl_stream);
 323     setverdict(fail);
 324   }
 325
 326   //log("===Checking value decoded from the encoded value vs original value===");
 327   if(f_dec_PersonInfo2(vl_stream, vl_decodedPdu)==0) {
 328     //log("The decoded pdu: ", vl_decodedPdu);
 329     if(match(vl_pdu,vl_decodedPdu)) {
 330       setverdict(pass);
 331     } else {
 332       log("Pdu could not decoded");
 333       log(match(vl_pdu,vl_decodedPdu));
 334     }
 335   }
 336
 337   //log("===Checking value decoded from the expected value vs original value===");
 338   if( f_dec_PersonInfo2(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 339     //log("The decoded pdu: ", vl_decodedPdu);
 340     if(match(vl_pdu,vl_decodedPdu)) {
 341       setverdict(pass);
 342     } else {
 343       log("Pdu could not decoded from the expected value");
 344       log(match(vl_pdu,vl_decodedPdu));
 345     }
 346   }
 347 }
 348 //==========================================
 349 // f_encDecTest_PersonInfo2_omitOptionals
 350 //==========================================
 351 function f_encDecTest_PersonInfo2_omitOptionals() {
 352   var PersonInfo2 vl_pdu:= {
 353     nationality:="Hungarian",
 354     title:="Mr",
 355     firstName:="Peter",
 356     lastName:="Falk",
 357     age:=omit
 358   },vl_decodedPdu;
 359   var octetstring vl_expectedEncodedPdu:=
 360     char2oct("<PersonInfo2 nationality='Hungarian' title='Mr'>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n</PersonInfo2>\n\n");
 361   var octetstring vl_stream:=''O;
 362   f_enc_PersonInfo2(vl_pdu,vl_stream);
 363
 364   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 365     log("Expected encoded value: ",vl_expectedEncodedPdu);
 366     log("Actual encoded value:   ", vl_stream);
 367     setverdict(fail);
 368   }
 369
 370   //log("===Checking value decoded from the encoded value vs original value===");
 371   if(f_dec_PersonInfo2(vl_stream, vl_decodedPdu)==0) {
 372     //log("The decoded pdu: ", vl_decodedPdu);
 373     if(match(vl_pdu,vl_decodedPdu)) {
 374       setverdict(pass);
 375     } else {
 376       setverdict(fail);
 377       log("Pdu differs from the expected value");
 378       log(match(vl_pdu,vl_decodedPdu));
 379     }
 380   }else {
 381     setverdict(fail);
 382     log("Pdu could not decoded");
 383   }
 384
 385   //log("===Checking value decoded from the expected value vs original value===");
 386   if( f_dec_PersonInfo2(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 387     //log("The decoded pdu: ", vl_decodedPdu);
 388     if(match(vl_pdu,vl_decodedPdu)) {
 389       setverdict(pass);
 390     } else {
 391       log("Pdu differs from the expected value");
 392       log(match(vl_pdu,vl_decodedPdu));
 393       setverdict(fail);
 394     }
 395   }else {
 396     log("Pdu could not decoded from the expected value");
 397     setverdict(fail);
 398   }
 399 }
 400
 401 //==========================================
 402 // f_encDecTest_PersonInfo2_defaultAttribute
 403 //==========================================
 404 function f_encDecTest_PersonInfo2_defaultAttribute() {
 405   var PersonInfo2 vl_expectedPdu:= {
 406     nationality:="American",
 407     title:=omit,
 408     firstName:="Peter",
 409     lastName:="Falk",
 410     age:=omit
 411   },vl_decodedPdu;
 412   var octetstring vl_encodedPduToBeDecoded:=char2oct("<PersonInfo2>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n</PersonInfo2>\n\n")
 413
 414   //log("===Checking decoded value vs expected value===");
 415   if( f_dec_PersonInfo2( vl_encodedPduToBeDecoded, vl_decodedPdu)==0) {
 416     //log("The decoded pdu: ", vl_decodedPdu);
 417     if( isvalue(vl_decodedPdu) and match(vl_expectedPdu,vl_decodedPdu)) {
 418       setverdict(pass);
 419     } else {
 420       setverdict(fail);
 421       log("Pdu decoded is not the expected one");
 422       if(isvalue(vl_decodedPdu)){ log(match(vl_expectedPdu,vl_decodedPdu)) };
 423     }
 424   }else {
 425     log("Pdu could not decoded from the expected value");
 426     setverdict(fail);
 427   }
 428 }
 429
 430 //==========================================
 431 // f_encDecTest_PersonInfo3
 432 //==========================================
 433 function f_encDecTest_PersonInfo3() {
 434   var PersonInfo3 vl_pdu:= {
 435     firstName:="Peter",
 436     lastName:="Falk",
 437     child_list:={ "Catherine", "Jackie"}
 438   },vl_decodedPdu;
 439   var octetstring vl_expectedEncodedPdu:=
 440     char2oct("<PersonInfo3>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<child>Catherine</child>\n\t<child>Jackie</child>\n</PersonInfo3>\n\n");
 441   var octetstring vl_stream:=''O;
 442   f_enc_PersonInfo3(vl_pdu,vl_stream);
 443
 444   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 445     log("Expected encoded value: ",vl_expectedEncodedPdu);
 446     log("Actual encoded value:   ", vl_stream);
 447     setverdict(fail);
 448   }
 449
 450   //log("===Checking value decoded from the encoded value vs original value===");
 451   var integer vl_retval:=f_dec_PersonInfo3(vl_stream, vl_decodedPdu);
 452   //log("retval:",vl_retval);
 453   if(f_dec_PersonInfo3(vl_stream, vl_decodedPdu)==0) {
 454     //log("The decoded pdu: ", vl_decodedPdu);
 455     if(match(vl_pdu,vl_decodedPdu)) {
 456       setverdict(pass);
 457     } else {
 458       log("Pdu differs from the expected value");
 459       log(match(vl_pdu,vl_decodedPdu));
 460       setverdict(fail);
 461     }
 462   }else{
 463     log("Pdu could not decoded");
 464     setverdict(fail);
 465   }
 466
 467   //log("===Checking value decoded from the expected value vs original value===");
 468   if( f_dec_PersonInfo3(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 469     //log("The decoded pdu: ", vl_decodedPdu);
 470     if(match(vl_pdu,vl_decodedPdu)) {
 471       setverdict(pass);
 472     } else {
 473       log("Pdu could not decoded from the expected value");
 474       log(match(vl_pdu,vl_decodedPdu));
 475       setverdict(fail);
 476     }
 477   } else {
 478     log("Pdu could not decoded from the expected value");
 479     setverdict(fail);
 480   }
 481 }//f_
 482
 483 //==========================================
 484 // f_encDecTest_PersonInfo4
 485 //==========================================
 486 function f_encDecTest_PersonInfo4() {
 487   var PersonInfo4 vl_pdu:= {
 488     firstName:="Peter",
 489     lastName:="Falk",
 490     age:=omit,
 491     degree_list:={"MSc", "MA","BSc"}
 492   },vl_decodedPdu;
 493   var octetstring vl_expectedEncodedPdu:=char2oct(
 494     "<PersonInfo4>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<Degree>MSc</Degree>\n\t<Degree>MA</Degree>\n\t<Degree>BSc</Degree>\n</PersonInfo4>\n\n");
 495
 496   var octetstring vl_stream:=''O;
 497   f_enc_PersonInfo4(vl_pdu,vl_stream);
 498
 499   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 500     log("Expected encoded value: ",vl_expectedEncodedPdu);
 501     log("Actual encoded value:   ", vl_stream);
 502     setverdict(fail);
 503   }
 504
 505   //log("===Checking value decoded from the encoded value vs original value===");
 506   var integer vl_retval:=f_dec_PersonInfo4(vl_stream, vl_decodedPdu);
 507   //log("retval:",vl_retval);
 508   if(f_dec_PersonInfo4(vl_stream, vl_decodedPdu)==0) {
 509     //log("The decoded pdu: ", vl_decodedPdu);
 510     if(match(vl_pdu,vl_decodedPdu)) {
 511       setverdict(pass);
 512     } else {
 513       log("Pdu differs from the expected value");
 514       log(match(vl_pdu,vl_decodedPdu));
 515       setverdict(fail);
 516     }
 517   }else{
 518     log("Pdu could not decoded");
 519     setverdict(fail);
 520   }
 521
 522   //log("===Checking value decoded from the expected value vs original value===");
 523   if( f_dec_PersonInfo4(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 524     //log("The decoded pdu: ", vl_decodedPdu);
 525     if(match(vl_pdu,vl_decodedPdu)) {
 526       setverdict(pass);
 527     } else {
 528       log("Pdu could not decoded from the expected value");
 529       log(match(vl_pdu,vl_decodedPdu));
 530       setverdict(fail);
 531     }
 532   } else {
 533     log("Pdu could not decoded from the expected value");
 534     setverdict(fail);
 535   }
 536 }//f_
 537
 538 //==========================================
 539 // f_encDecTest_PersonInfo5
 540 //==========================================
 541 function f_encDecTest_PersonInfo5() {
 542   var PersonInfo5 vl_pdu:= {
 543     firstName:="Peter",
 544     lastName:="Falk",
 545     age:=omit,
 546     degree_list:={
 547       {year:="1980",base:="MSc"},
 548       {year:="1986",base:= "MA"},
 549       {year:="2004",base:="Bsc"}
 550     }
 551   },vl_decodedPdu;
 552   var octetstring vl_expectedEncodedPdu:=char2oct(
 553     "<PersonInfo5>\n\t<firstName>Peter</firstName>\n\t<lastName>Falk</lastName>\n\t<Degree Year='1980'>MSc</Degree>\n\t<Degree Year='1986'>MA</Degree>\n\t<Degree Year='2004'>Bsc</Degree>\n</PersonInfo5>\n\n");
 554
 555   var octetstring vl_stream:=''O;
 556   f_enc_PersonInfo5(vl_pdu,vl_stream);
 557
 558   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 559     log("Expected encoded value: ",vl_expectedEncodedPdu);
 560     log("Actual encoded value:   ", vl_stream);
 561     setverdict(fail);
 562   }
 563
 564   //log("===Checking value decoded from the encoded value vs original value===");
 565   var integer vl_retval:=f_dec_PersonInfo5(vl_stream, vl_decodedPdu);
 566   //log("retval:",vl_retval);
 567   if(f_dec_PersonInfo5(vl_stream, vl_decodedPdu)==0) {
 568     //log("The decoded pdu: ", vl_decodedPdu);
 569     if(match(vl_pdu,vl_decodedPdu)) {
 570       setverdict(pass);
 571     } else {
 572       log("Pdu differs from the expected value");
 573       log(match(vl_pdu,vl_decodedPdu));
 574       setverdict(fail);
 575     }
 576   }else{
 577     log("Pdu could not decoded");
 578     setverdict(fail);
 579   }
 580
 581   //log("===Checking value decoded from the expected value vs original value===");
 582   if( f_dec_PersonInfo5(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 583     //log("The decoded pdu: ", vl_decodedPdu);
 584     if(match(vl_pdu,vl_decodedPdu)) {
 585       setverdict(pass);
 586     } else {
 587       log("Pdu could not decoded from the expected value");
 588       log(match(vl_pdu,vl_decodedPdu));
 589       setverdict(fail);
 590     }
 591   } else {
 592     log("Pdu could not decoded from the expected value");
 593     setverdict(fail);
 594   }
 595 }//f_
 596
 597 //==========================================
 598 // f_encDecTest_IndividualTrigger1
 599 //==========================================
 600 function f_encDecTest_IndividualTrigger1() {
 601   var IndividualTrigger vl_pdu:= {
 602     triggerDescriptionA:="myTriggerDescriptionAttr",
 603     content:={ triggerDescription:="TriggerDescription" }
 604   },vl_decodedPdu;
 605   //  var octetstring vl_expectedEncodedPdu:=char2oct("<ns:individualTrigger xmlns:ns='urn:XmlTest.imsike' triggerDescriptionA='myTriggerDescriptionAttr'>\n\t<triggerDescription>TriggerDescription</triggerDescription>\n</ns:individualTrigger>\n\n");
 606   var octetstring vl_expectedEncodedPdu:=char2oct(
 607     "<ns:individualTrigger xmlns:ns='urn:XmlTest.imsike' triggerDescriptionA='myTriggerDescriptionAttr'>\n\t" &
 608     "<ns:triggerDescription>TriggerDescription</ns:triggerDescription>\n" &
 609     "</ns:individualTrigger>\n\n");
 610   var octetstring vl_stream:=''O;
 611   f_enc_IndividualTrigger(vl_pdu,vl_stream);
 612
 613   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 614     log("Expected encoded value: ",vl_expectedEncodedPdu);
 615     log("Actual encoded value:   ", vl_stream);
 616     setverdict(fail);
 617   }
 618
 619   //log("===Checking value decoded from the encoded value vs original value===");
 620   var integer vl_retval:=f_dec_IndividualTrigger(vl_stream, vl_decodedPdu);
 621   //log("retval:",vl_retval);
 622   if(f_dec_IndividualTrigger(vl_stream, vl_decodedPdu)==0) {
 623     //log("The decoded pdu: ", vl_decodedPdu);
 624     if(match(vl_pdu,vl_decodedPdu)) {
 625       setverdict(pass);
 626     } else {
 627       log("Pdu differs from the expected value");
 628       log(match(vl_pdu,vl_decodedPdu));
 629       setverdict(fail);
 630     }
 631   }else{
 632     log("Pdu could not decoded");
 633     setverdict(fail);
 634   }
 635
 636   //log("===Checking value decoded from the expected value vs original value===");
 637   if( f_dec_IndividualTrigger(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 638     //log("The decoded pdu: ", vl_decodedPdu);
 639     if(match(vl_pdu,vl_decodedPdu)) {
 640       setverdict(pass);
 641     } else {
 642       log("Pdu could not decoded from the expected value");
 643       log(match(vl_pdu,vl_decodedPdu));
 644       setverdict(fail);
 645     }
 646   } else {
 647     log("Pdu could not decoded from the expected value");
 648     setverdict(fail);
 649   }
 650 }//f_
 651
 652 //==========================================
 653 // f_encDecTest_IndividualTrigger2
 654 //==========================================
 655 function f_encDecTest_IndividualTrigger2() {
 656   var IndividualTrigger vl_pdu:= {
 657     triggerDescriptionA:="myTriggerDescriptionAttr",
 658     content:=omit
 659   },vl_decodedPdu;
 660   var octetstring vl_expectedEncodedPdu:=char2oct(
 661     "<ns:individualTrigger xmlns:ns='urn:XmlTest.imsike' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' triggerDescriptionA='myTriggerDescriptionAttr' xsi:nil='true'/>\n\n");
 662   var octetstring vl_stream:=''O;
 663   f_enc_IndividualTrigger(vl_pdu,vl_stream);
 664
 665   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 666     log("Expected encoded value: ",vl_expectedEncodedPdu);
 667     log("Actual encoded value:   ", vl_stream);
 668     setverdict(fail);
 669   }
 670
 671   //log("===Checking value decoded from the encoded value vs original value===");
 672   var integer vl_retval:=f_dec_IndividualTrigger(vl_stream, vl_decodedPdu);
 673   //log("retval:",vl_retval);
 674   if(f_dec_IndividualTrigger(vl_stream, vl_decodedPdu)==0) {
 675     //log("The decoded pdu: ", vl_decodedPdu);
 676     if(match(vl_pdu,vl_decodedPdu)) {
 677       setverdict(pass);
 678     } else {
 679       log("Pdu differs from the expected value");
 680       log(match(vl_pdu,vl_decodedPdu));
 681       setverdict(fail);
 682     }
 683   }else{
 684     log("Pdu could not decoded");
 685     setverdict(fail);
 686   }
 687
 688   //log("===Checking value decoded from the expected value vs original value===");
 689   if( f_dec_IndividualTrigger(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 690     //log("The decoded pdu: ", vl_decodedPdu);
 691     if(match(vl_pdu,vl_decodedPdu)) {
 692       setverdict(pass);
 693     } else {
 694       log("Pdu could not decoded from the expected value");
 695       log(match(vl_pdu,vl_decodedPdu));
 696       setverdict(fail);
 697     }
 698   } else {
 699     log("Pdu could not decoded from the expected value");
 700     setverdict(fail);
 701   }
 702 }//f_
 703 //==========================================
 704 // f_encDecTest_Isp1
 705 //==========================================
 706 function f_encDecTest_Isp1() {
 707   var Isp vl_pdu:= {
 708     individualTrigger_list := {
 709       {
 710         triggerDescriptionA:="myTriggerDescriptionAttr",
 711         content:={ triggerDescription:="MyTriggerDescription" }
 712       }
 713     }
 714   },
 715   vl_decodedPdu;
 716   var octetstring vl_expectedEncodedPdu:=char2oct(
 717     "<ns:isp xmlns:ns='urn:XmlTest.imsike'>\n\t"&
 718     "<ns:individualTrigger triggerDescriptionA='myTriggerDescriptionAttr'>\n\t\t" &
 719     "<ns:triggerDescription>MyTriggerDescription</ns:triggerDescription>\n\t"&
 720     "</ns:individualTrigger>\n"&
 721     "</ns:isp>\n\n");
 722
 723   var octetstring vl_stream:=''O;
 724   f_enc_Isp(vl_pdu,vl_stream);
 725
 726   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 727     log("Expected encoded value: ",vl_expectedEncodedPdu);
 728     log("Actual encoded value:   ", vl_stream);
 729     setverdict(fail);
 730   }
 731
 732   //log("===Checking value decoded from the encoded value vs original value===");
 733   var integer vl_retval:=f_dec_Isp(vl_stream, vl_decodedPdu);
 734   //log("retval:",vl_retval);
 735   if(f_dec_Isp(vl_stream, vl_decodedPdu)==0) {
 736     //log("The decoded pdu: ", vl_decodedPdu);
 737     if(match(vl_pdu,vl_decodedPdu)) {
 738       setverdict(pass);
 739     } else {
 740       log("Pdu differs from the expected value");
 741       log(match(vl_pdu,vl_decodedPdu));
 742       setverdict(fail);
 743     }
 744   }else{
 745     log("Pdu could not decoded");
 746     setverdict(fail);
 747   }
 748
 749   //log("===Checking value decoded from the expected value vs original value===");
 750   if( f_dec_Isp(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 751     //log("The decoded pdu: ", vl_decodedPdu);
 752     if(match(vl_pdu,vl_decodedPdu)) {
 753       setverdict(pass);
 754     } else {
 755       log("Pdu could not decoded from the expected value");
 756       log(match(vl_pdu,vl_decodedPdu));
 757       setverdict(fail);
 758     }
 759   } else {
 760     log("Pdu could not decoded from the expected value");
 761     setverdict(fail);
 762   }
 763 }//f_
 764
 765 //==========================================
 766 // f_encDecTest_Isp2
 767 //==========================================
 768 function f_encDecTest_Isp2() {
 769   var Isp vl_pdu:= {
 770     individualTrigger_list := {
 771       {
 772         triggerDescriptionA:="myTriggerDescriptionAttr",
 773         content:=omit
 774       }
 775     }
 776   },
 777   vl_decodedPdu;
 778   var octetstring vl_expectedEncodedPdu:=char2oct(
 779     "<ns:isp xmlns:ns='urn:XmlTest.imsike' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'>\n\t"&
 780     "<ns:individualTrigger triggerDescriptionA='myTriggerDescriptionAttr' xsi:nil='true'/>\n"&
 781     "</ns:isp>\n\n");
 782   var octetstring vl_stream:=''O;
 783   f_enc_Isp(vl_pdu,vl_stream);
 784
 785   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 786     log("Expected encoded value: ",vl_expectedEncodedPdu);
 787     log("Actual encoded value:   ", vl_stream);
 788     setverdict(fail);
 789   }
 790
 791   //log("===Checking value decoded from the encoded value vs original value===");
 792   var integer vl_retval:=f_dec_Isp(vl_stream, vl_decodedPdu);
 793   //log("retval:",vl_retval);
 794   if(f_dec_Isp(vl_stream, vl_decodedPdu)==0) {
 795     //log("The decoded pdu: ", vl_decodedPdu);
 796     if(match(vl_pdu,vl_decodedPdu)) {
 797       setverdict(pass);
 798     } else {
 799       log("Pdu differs from the expected value");
 800       log(match(vl_pdu,vl_decodedPdu));
 801       setverdict(fail);
 802     }
 803   }else{
 804     log("Pdu could not decoded");
 805     setverdict(fail);
 806   }
 807
 808   //log("===Checking value decoded from the expected value vs original value===");
 809   if( f_dec_Isp(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 810     //log("The decoded pdu: ", vl_decodedPdu);
 811     if(match(vl_pdu,vl_decodedPdu)) {
 812       setverdict(pass);
 813     } else {
 814       log("Pdu could not decoded from the expected value");
 815       log(match(vl_pdu,vl_decodedPdu));
 816       setverdict(fail);
 817     }
 818   } else {
 819     log("Pdu could not decoded from the expected value");
 820     setverdict(fail);
 821   }
 822 }//f_
 823
 824
 825 //==========================================
 826 // f_encDecTest_RemarkNillable1
 827 //==========================================
 828 function f_encDecTest_RemarkNillable1() {
 829   var RemarkNillable vl_pdu:= {
 830     content:= "MyRemarkNillable"
 831   },
 832   vl_decodedPdu;
 833   var octetstring vl_expectedEncodedPdu:=char2oct(
 834     "<ns:remarkNillable xmlns:ns='urn:XmlTest.imsike'>"&
 835     "MyRemarkNillable" &
 836     "</ns:remarkNillable>\n\n");
 837   var octetstring vl_stream:=''O;
 838   f_enc_RemarkNillable(vl_pdu,vl_stream);
 839
 840   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 841     log("Expected encoded value: ",vl_expectedEncodedPdu);
 842     log("Actual encoded value:   ", vl_stream);
 843     setverdict(fail);
 844   }
 845
 846   //log("===Checking value decoded from the encoded value vs original value===");
 847   var integer vl_retval:=f_dec_RemarkNillable(vl_stream, vl_decodedPdu);
 848   //log("retval:",vl_retval);
 849   if(f_dec_RemarkNillable(vl_stream, vl_decodedPdu)==0) {
 850     //log("The decoded pdu: ", vl_decodedPdu);
 851     if(match(vl_pdu,vl_decodedPdu)) {
 852       setverdict(pass);
 853     } else {
 854       log("Pdu differs from the expected value");
 855       log(match(vl_pdu,vl_decodedPdu));
 856       setverdict(fail);
 857     }
 858   }else{
 859     log("Pdu could not decoded");
 860     setverdict(fail);
 861   }
 862
 863   //log("===Checking value decoded from the expected value vs original value===");
 864   if( f_dec_RemarkNillable(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 865     //log("The decoded pdu: ", vl_decodedPdu);
 866     if(match(vl_pdu,vl_decodedPdu)) {
 867       setverdict(pass);
 868     } else {
 869       log("Pdu could not decoded from the expected value");
 870       log(match(vl_pdu,vl_decodedPdu));
 871       setverdict(fail);
 872     }
 873   } else {
 874     log("Pdu could not decoded from the expected value");
 875     setverdict(fail);
 876   }
 877 }//f_
 878
 879 //==========================================
 880 // f_encDecTest_RemarkNillable2
 881 //==========================================
 882 function f_encDecTest_RemarkNillable2() {
 883   var RemarkNillable vl_pdu:= {
 884     content:= omit
 885   },
 886   vl_decodedPdu;
 887   var octetstring vl_expectedEncodedPdu:=char2oct(
 888     "<ns:remarkNillable xmlns:ns='urn:XmlTest.imsike' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:nil='true'/>\n\n");
 889   var octetstring vl_stream:=''O;
 890   f_enc_RemarkNillable(vl_pdu,vl_stream);
 891
 892   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 893     log("Expected encoded value: ",vl_expectedEncodedPdu);
 894     log("Actual encoded value:   ", vl_stream);
 895     setverdict(fail);
 896   }
 897
 898   //log("===Checking value decoded from the encoded value vs original value===");
 899   var integer vl_retval:=f_dec_RemarkNillable(vl_stream, vl_decodedPdu);
 900   //log("retval:",vl_retval);
 901   if(f_dec_RemarkNillable(vl_stream, vl_decodedPdu)==0) {
 902     //log("The decoded pdu: ", vl_decodedPdu);
 903     if(match(vl_pdu,vl_decodedPdu)) {
 904       setverdict(pass);
 905     } else {
 906       log("Pdu differs from the expected value");
 907       log(match(vl_pdu,vl_decodedPdu));
 908       setverdict(fail);
 909     }
 910   }else{
 911     log("Pdu could not decoded");
 912     setverdict(fail);
 913   }
 914
 915   //log("===Checking value decoded from the expected value vs original value===");
 916   if( f_dec_RemarkNillable(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 917     //log("The decoded pdu: ", vl_decodedPdu);
 918     if(match(vl_pdu,vl_decodedPdu)) {
 919       setverdict(pass);
 920     } else {
 921       log("Pdu could not decoded from the expected value");
 922       log(match(vl_pdu,vl_decodedPdu));
 923       setverdict(fail);
 924     }
 925   } else {
 926     log("Pdu could not decoded from the expected value");
 927     setverdict(fail);
 928   }
 929 }//f_
 930
 931 //==========================================
 932 //f_encDecTest_nameInheritance
 933 //==========================================
 934 function f_encDecTest_nameInheritance() runs on Shell_CT{
 935   var NameInheritance vl_pdu:= {
 936     code:= 13,
 937     second:= "This is the second field"
 938   },
 939   vl_decodedPdu;
 940   var octetstring vl_expectedEncodedPdu:=char2oct(
 941     "<xs:nameInheritance xmlns:xs='www.XmlTest.org/element_nameInheritance'>\n\t"&
 942     "<code>13</code>\n\t"&
 943     "<second>This is the second field</second>\n"&
 944     "</xs:nameInheritance>\n\n");
 945   var octetstring vl_stream:=''O;
 946   f_enc_NameInheritance(vl_pdu,vl_stream);
 947
 948   if( not match(vl_stream,vl_expectedEncodedPdu)) {
 949     log("Expected encoded value: ",vl_expectedEncodedPdu);
 950     log("Actual encoded value:   ", vl_stream);
 951     setverdict(fail);
 952   }
 953
 954   //log("===Checking encoded value (xml) against the xsd file by xmllint ===");
 955   var boolean vl_success:=false;
 956   f_shell_validateXml(vl_stream,"XmlTest_element_nameInheritance.xsd", c_shell_successWithoutWarningAndError, vl_success);
 957   if(vl_success) {
 958     setverdict(pass);
 959   }else{
 960     log("Xml validation against xsd failed");
 961     setverdict(fail);
 962   }
 963
 964   //log("===Checking value decoded from the encoded value vs original value===");
 965   var integer vl_retval:=f_dec_NameInheritance(vl_stream, vl_decodedPdu);
 966   //log("retval:",vl_retval);
 967   if(f_dec_NameInheritance(vl_stream, vl_decodedPdu)==0) {
 968     log("The decoded pdu: ", vl_decodedPdu);
 969     if(match(vl_pdu,vl_decodedPdu)) {
 970       setverdict(pass);
 971     } else {
 972       log("Pdu differs from the expected value");
 973       log(match(vl_pdu,vl_decodedPdu));
 974       setverdict(fail);
 975     }
 976   }else{
 977     log("Pdu could not decoded");
 978     setverdict(fail);
 979   }
 980
 981   //log("===Checking value decoded from the expected value vs original value===");
 982   if( f_dec_NameInheritance(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
 983     //log("The decoded pdu: ", vl_decodedPdu);
 984     if(match(vl_pdu,vl_decodedPdu)) {
 985       setverdict(pass);
 986     } else {
 987       log("Pdu could not decoded from the expected value");
 988       log(match(vl_pdu,vl_decodedPdu));
 989       setverdict(fail);
 990     }
 991   } else {
 992     log("Pdu could not decoded from the expected value");
 993     setverdict(fail);
 994   }
 995 }//f_
 996
 997 //========= TEMPORARY - To test Tgc =====
 998
 999 //==========================================
1000 //f_encDecTest_Tgc
1001 //==========================================
1002 function f_encDecTest_Tgc() runs on Shell_CT {
1003
1004   var Tgc vl_pdu := {
1005     blade_list := {},
1006     system_ := omit,
1007     network := omit,
1008     tgcApp := {
1009       omit,
1010       omit,
1011       omit,
1012       omit,
1013       omit,
1014       omit,
1015 /* announcementSet_list */ {{
1016           name := "al",
1017           announcement_list := {{
1018               code := 17,
1019               name := "sweet seventeen"
1020             }}
1021         }},
1022 /* bgwInterfaceParameterSet_list */ {},
1023 /* defaultPointAssociation */ {
1024         omit,
1025         omit,
1026         omit,
1027         omit
1028       },
1029       {},
1030       {},
1031       {},
1032       {},
1033       {},
1034       {},
1035       {},
1036       {},
1037       {},
1038       {},
1039       {},
1040       omit,
1041       {},
1042       {},
1043       {},
1044       {},
1045       {},
1046       {}
1047     },
1048     tispReport := omit
1049   },
1050   vl_decodedPdu;
1051   var octetstring vl_expectedEncodedPdu:=char2oct(
1052     "<tgc:Tgc xmlns:tgc='http://www.ericsson.com/is/isco/Tgc/R6A48/R6H01'>\n"&
1053     "\t<tgc:TgcApp>\n"&
1054     "\t\t<tgc:AnnouncementSet>\n"&
1055     "\t\t\t<tgc:name>al</tgc:name>\n"&
1056     "\t\t\t<tgc:Announcement>\n"&
1057     "\t\t\t\t<tgc:code>17</tgc:code>\n"&
1058     "\t\t\t\t<tgc:name>sweet seventeen</tgc:name>\n"&
1059     "\t\t\t</tgc:Announcement>\n"&
1060     "\t\t</tgc:AnnouncementSet>\n"&
1061     "\t\t<tgc:DefaultPointAssociation/>\n"&
1062     "\t</tgc:TgcApp>\n"&
1063     "</tgc:Tgc>\n\n"
1064   );
1065
1066   var octetstring vl_stream:=''O;
1067   f_enc_Tgc(vl_pdu,vl_stream);
1068
1069   if( match(vl_stream,vl_expectedEncodedPdu)) {
1070     setverdict(pass);
1071   } else {
1072     log("Expected encoded value: ",vl_expectedEncodedPdu);
1073     log("Actual encoded value:   ", vl_stream);
1074     setverdict(fail);
1075   }
1076
1077   //log("===Checking encoded value (xml) against the xsd file by xmllint ===");
1078   var boolean vl_success:=false;
1079   f_shell_validateXml(vl_stream,"Tgc.xsd", c_shell_successWithoutWarningAndError, vl_success);
1080   if(vl_success) {
1081     setverdict(pass);
1082   }else{
1083     log("Xml validation against xsd failed");
1084     setverdict(fail);
1085   }
1086
1087   //log("===Checking value decoded from the encoded value vs original value===");
1088   var integer vl_retval:=f_dec_Tgc(vl_stream, vl_decodedPdu);
1089   //log("retval:",vl_retval);
1090   if(f_dec_Tgc(vl_stream, vl_decodedPdu)==0) {
1091     //log("The decoded pdu: ", vl_decodedPdu);
1092     if(match(vl_pdu,vl_decodedPdu)) {
1093       setverdict(pass);
1094     } else {
1095       log("Pdu differs from the expected value");
1096       log(match(vl_pdu,vl_decodedPdu));
1097       setverdict(fail);
1098     }
1099   }else{
1100     log("Pdu could not decoded");
1101     setverdict(fail);
1102   }
1103
1104   //log("===Checking value decoded from the expected value vs original value===");
1105   if( f_dec_Tgc(vl_expectedEncodedPdu, vl_decodedPdu)==0) {
1106     //log("The decoded pdu: ", vl_decodedPdu);
1107     if(match(vl_pdu,vl_decodedPdu)) {
1108       setverdict(pass);
1109     } else {
1110       log("Pdu could not decoded from the expected value");
1111       log(match(vl_pdu,vl_decodedPdu));
1112       setverdict(fail);
1113     }
1114   } else {
1115     log("Pdu could not decoded from the expected value");
1116     setverdict(fail);
1117   }
1118 }//f_
1119
1120
1121 }//module