gsm: Be able to parse a GSM CC Progress message

GSM48.st

@@ -2847,6 +2847,22 @@ GSM48CCMessage subclass: GSM48CCEmergencySetup [
     ]
 ]
 
+GSM48CCMessage subclass: GSM48CCProgress [
+    <category: 'OsmoGSM'>
+
+    GSM48CCProgress class >> messageType [ ^self msgProgress ]
+    GSM48CCProgress class >> tlvDescription [
+        <category: 'parsing'>
+        ^OrderedCollection new
+            add: GSMProgress asTLVDescription;
+            add: (GSMUserUser asTLVDescription
+                    beOptional;
+                    minSize: 1 maxSize: 129;
+                    yourself);
+            yourself
+    ]
+]
+
 GSM48RRMessage subclass: GSM48RRAssignmentComplete [
     <category: 'OsmoGSM'>
 
@@ -3177,6 +3193,7 @@ Eval [
     GSM48CCReleaseCompl initialize.
     GSM48CCStatus initialize.
     GSM48CCEmergencySetup initialize.
+    GSM48CCProgress initialize.
 
     GSM48RRAssignmentComplete initialize.
     GSM48RRHandoverCommand initialize.

Tests.st

@@ -463,6 +463,14 @@ TestCase subclass: GSM48Test [
         dec := GSM48MSG decode: inp readStream.
         self assert: dec toMessage asByteArray = inp.
     ]
+
+    testCCProgress [
+        | dec inp |
+
+        inp := #[16r83 16r03 16r02 16rEA 16r81].
+        dec := GSM48MSG decode: inp readStream.
+        self assert: dec toMessage asByteArray = inp.
+    ]
 ]
 
 SCCPHandler subclass: TestSCCPHandler [