SCCP: Implement the SCCPConnectionReleased

1 files changed, 16 insertions, 0 deletions

diff --git a/Tests.st b/Tests.st
index ec08d5a..4fa2be2 100644
--- a/Tests.st
+++ b/Tests.st
@@ -78,6 +78,22 @@ TestCase subclass: SCCPTests [
         self assert: cc toMessage asByteArray = target.
     ]
 
+    testRlsd [
+        | target rlsd |
+
+        target := #(4 154 2 0 66 5 5 0 1 0 ) asByteArray.
+        rlsd := SCCPConnectionReleased
+                    initWithDst: 16r0029A src: 16r50542
+                    cause: 0.
+        self assert: rlsd toMessage asByteArray = target.
+
+        rlsd := SCCPMessage decode: target.
+        self assert: rlsd dst = 16r0029A.
+        self assert: rlsd src = 16r50542.
+        self assert: rlsd cause = 0.
+        self assert: rlsd toMessage asByteArray = target.
+    ]
+
     testAddrFromByteArray [
         | byte |
         byte := #(191 0 3) asByteArray.