blob: b6fd0b21114a824a5b8212cfa5bf78ceeeebe1a9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
# $Id$
This test verifies that CodecFactory and CDR encapsulation Codec
support is working properly.
It does so by encoding a structure into an octet sequence, decoding
into a new instance of the structure from the octet sequence, and then
comparing the contents of the two structures.
Run the test as follows:
$ perl run_test.pl
Expected output follows:
==== Running Codec test
Testing CDR encapsulation Codec encode()/decode()
=================================================
Original
--------
1010
-3427
I'm Batman.
Extracted
---------
1010
-3427
I'm Batman.
Testing CDR encapsulation Codec encode_value()/decode_value()
=============================================================
Original
--------
1010
-3427
I'm Batman.
Extracted
---------
1010
-3427
I'm Batman.
Codec test passed.
|
