bits: Test simple creation and setting of bits here

1 files changed, 14 insertions, 0 deletions

diff --git a/Tests.st b/Tests.st
index cc66b0c..bdf389d 100644
--- a/Tests.st
+++ b/Tests.st
@@ -324,6 +324,20 @@ TestCase subclass: GSM48Test [
         self assert: decoded octet3a third ctm = GSMBearerCapOctet3a ctmTextTelephonyNotSupported.
         self assert: decoded octet3a third coding = GSMBearerCapOctet3a codingForTransferCapability.
     ]
+
+    testGSMBearerCreate [
+        | octet3 |
+
+        octet3 := GSMBearerCapOctet3 fromByte: 0.
+        octet3 informationTransferCapability: octet3 class transferCapOtherITC.
+        self assert: octet3 data = 2r00000101.
+        octet3 transferMode: 1.
+        self assert: octet3 data = 2r00001101.
+        octet3 codingStandard: 1.
+        self assert: octet3 data = 2r00011101.
+        octet3 radioChannelRequirement: 2r10.
+        self assert: octet3 data = 2r01011101.
+    ]
 ]
 
 SCCPHandler subclass: TestSCCPHandler [