regression_test/RAW/HQ26535/gtpctest.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 gtpctest {
   9 import from GTPv2_Types all;
  10
  11 type component gtp {}
  12
  13 const octetstring input := '482400410000831E00CB9A00490001000556000D001842F099460142F09900007B014D000200080057001900CA0AF000011F00080A20011B70828834080000000000000009'O
  14
  15 testcase dec() runs on gtp
  16 {
  17   var PDU_GTPCv2 gtpc := dec_PDU_GTPCv2(input);
  18   log(gtpc);
  19   if (ispresent(gtpc.gtpcv2_pdu.deleteSessionRequest.fullyQualifiedTEID)) { setverdict(pass); }
  20   else { setverdict(fail); }
  21
  22   var octetstring reencode := enc_PDU_GTPCv2(gtpc);
  23   if (reencode != input) { setverdict(fail, "decode+encode does not match original"); }
  24 }
  25
  26 control {
  27   execute(dec());
  28 }
  29
  30 }