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 ******************************************************************************/
9 import from HS16977_Constants all;
10 import from HS16977_Types all;
12 external function ef_enc(in t_outer_rec pl_pdu, out octetstring pl_stream) with {
13 extension "prototype(fast)";
14 extension "encode(RAW)";
17 external function ef_dec(in octetstring pl_stream, out t_outer_rec pl_pdu) with {
18 extension "prototype(fast)";
19 extension "decode(RAW)";
22 type component CT_empty {};
24 testcase tc_hs16977() runs on CT_empty {
25 var t_outer_rec v_initial := {
28 obj_type := c_outer_choice,
34 obj_type := c_float_choice,
43 var octetstring v_coded;
44 ef_enc(v_initial, v_coded);
46 var t_outer_rec v_result;
47 ef_dec(v_coded, v_result);
49 if (v_result == v_initial) { setverdict(pass); }
50 else { setverdict(fail); }
54 execute(tc_hs16977());