1 files changed, 7 insertions, 0 deletions
diff --git a/Tests.st b/Tests.st
index 6d336da..a9c54d3 100644
--- a/Tests.st
+++ b/Tests.st
@@ -447,6 +447,13 @@ TestCase subclass: GSM48Test [
         dec := GSM48MSG decode: inp readStream.
         self assert: dec toMessage asByteArray = inp.
     ]
+
+    testChannelModeModify [
+        | dec inp |
+        inp := #(16r06 16r10 16r12 16rE3 16r69 16r41 16r03 16r02 16r28 16r04) asByteArray.
+        dec := GSM48MSG decode: inp readStream.
+        self assert: dec toMessage asByteArray = inp.
+    ]
 ]
 
 SCCPHandler subclass: TestSCCPHandler [