SCCP: Work on GTI parsing and creation for some types.

Be able to parse one special type of the GTI. This is only
tested for even lengthed addresses.

The code 11, code 12 and ST types for GTI are not really
known to me and might need more work.

1 files changed, 13 insertions, 2 deletions

diff --git a/Tests.st b/Tests.st
index 8fafdcb..3cd1dfa 100644
--- a/Tests.st
+++ b/Tests.st
@@ -136,11 +136,22 @@ TestCase subclass: SCCPTests [
     ]
 
     testAddrGTIFromByteArrray [
-        | addr parsed |
+        | addr parsed gti |
         addr := #(16r0A 16r12 16r06 16r0 16r12 16r04 16r53 16r84 16r09 16r00 16r37) asByteArray.
         parsed := SCCPAddress parseFrom: addr.
 
-        self assert: parsed asByteArray = addr
+        self assert: parsed ssn = 6.
+        self assert: parsed asByteArray = addr.
+
+        "Now test the GTI parsing"
+        gti := parsed gtiAsParsed.
+        self assert: gti translation = 0.
+        self assert: gti plan = 1.
+        self assert: gti nature = 4.
+        self assert: gti addr = '3548900073'.
+        parsed gtiFromAddr: gti.
+        self assert: parsed asByteArray = addr.
+
     ]
 ]