gsm: Implement 7bit decoding for USSD and test the CR cases

When CR is the last byte and it ended on a word boundary we
will remove it (it was added to avoid the clash with '@') but
if we have added a CR with a padding of a single 0 bit we will
keep this additional CR.

1 files changed, 15 insertions, 0 deletions

diff --git a/Tests.st b/Tests.st
index 38cfa80..84cf047 100644
--- a/Tests.st
+++ b/Tests.st
@@ -564,10 +564,25 @@ TestCase subclass: GSMEncodingTest [
         self assert: '123456789012345' asUSSD7Bit = wanted.
     ]
 
+    testUSSDDecode [
+        | wanted |
+
+        wanted := '123456789012345'.
+        self assert: #(49 217 140 86 179 221 112 57 88 76 54 163 213 26) asByteArray decodeUSSD7Bit = wanted.
+    ]
+
     testUSSDEncodeCR [
         | wanted res |
 
         wanted := #(49 217 140 86 179 221 26 13) asByteArray.
         self assert: ('1234567', Character cr asString) asUSSD7Bit = wanted.
     ]
+
+    testUSSDDecodeCR [
+        | wanted |
+        "This tests that the code as adding an extra CR and that it was
+         not removed from the input."
+        wanted := '1234567', Character cr asString, Character cr asString.
+        self assert: #(49 217 140 86 179 221 26 13) asByteArray decodeUSSD7Bit = wanted.
+    ]
 ]