diff options
Diffstat (limited to 'Tests.st')
-rw-r--r-- | Tests.st | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -950,12 +950,19 @@ TestCase subclass: GSMNumberDigitsTest [ number := #(73 132 50 23 120 186 220 174). res := GSMNumberDigits decodeFrom: number. self assert: res = '9448237187*#abc*'. + + number := #(114 4 8 0 0 48 0 240). + res := GSMNumberDigits decodeFrom: number. + self assert: res = '274080000003000'. ] testEncodeFrom [ | res | res := GSMNumberDigits encodeFrom: '9448237187*#abc*'. self assert: res = #(73 132 50 23 120 186 220 174) asByteArray. + + res := GSMNumberDigits encodeFrom: '274080000003000'. + self assert: res = #(114 4 8 0 0 48 0 240) asByteArray. ] ] |