SCCP: Implement a RLC command

1 files changed, 14 insertions, 0 deletions

diff --git a/Tests.st b/Tests.st
index 2226df3..dfa424d 100644
--- a/Tests.st
+++ b/Tests.st
@@ -94,6 +94,20 @@ TestCase subclass: SCCPTests [
         self assert: rlsd toMessage asByteArray = target.
     ]
 
+    testRlc [
+        | target rlc |
+
+        target := #(5 1 8 119 62 4 5 ) asByteArray.
+        rlc := SCCPConnectionReleaseComplete
+                    initWithDst: 16r770801 src: 16r05043E.
+        self assert: rlc toMessage asByteArray = target.
+
+        rlc := SCCPMessage decode: target.
+        self assert: rlc dst = 16r770801.
+        self assert: rlc src = 16r05043E.
+        self assert: rlc toMessage asByteArray = target.
+    ]
+
     testUdt [
         | target udt called calling |
         target := #(9 0 3 7 11 4 67 7 0 254 4 67 92 0 254 3 1 2 3) asByteArray.