From 4b90b71d927714a206bfe5de96ee163bfdf3f2aa Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Wed, 17 Nov 2010 22:39:41 +0100
Subject: [PATCH] GSM48: Start adding test cases for the functionality.

---
 Tests.st    | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 package.xml |  1 +
 2 files changed, 51 insertions(+)

diff --git a/Tests.st b/Tests.st
index 8858bb2..96c7eee 100644
--- a/Tests.st
+++ b/Tests.st
@@ -65,3 +65,53 @@ TestCase subclass: BSSAPTest [
         self assert: msg toByteArray = #(1 0 3 1 2 3) asByteArray.
     ]
 ]
+
+TestCase subclass: GSM48Test [
+    testKeySeqLu [
+        | gsm msg |
+        msg := Osmo.MessageBuffer new.
+        gsm := GSM48KeySeqLuType createDefault.
+        gsm storeOnDirect: msg.
+
+        self assert: msg toByteArray = #(16r70) asByteArray
+    ]
+
+    testLai [
+        | gsm msg |
+        msg := Osmo.MessageBuffer new.
+        gsm := GSM48Lai createDefault.
+        gsm mcc: 202; mnc: 5; lac: 65534.
+        gsm storeOnDirect: msg.
+
+        self assert: msg toByteArray = #(16r02 16rF2 16r50 16rFF 16rFE) asByteArray.
+    ]
+
+    testCM1 [
+        | gsm msg |
+        msg := Osmo.MessageBuffer new.
+        gsm := GSM48Classmark1 createDefault.
+        gsm storeOnDirect: msg.
+
+        self assert: msg toByteArray = #(16r33) asByteArray
+    ]
+
+    testMI [
+        | gsm msg |
+        msg := Osmo.MessageBuffer new.
+        gsm := GSM48MIdentity createDefault.
+        gsm imsi: '181818181818181'.
+        gsm storeOnDirect: msg.
+
+        self assert: msg toByteArray = #() asByteArray
+    ]
+
+    testLU [
+        | msg |
+
+        msg := LocationUpdatingRequest new.
+        (msg lai) mcc: 272 mnc: 5 lac: 65534.
+        (msg mi) imsi: '181818181818181'.
+
+        self assert: msg toByteArray = #() asByteArray.
+    ]
+]
diff --git a/package.xml b/package.xml
index 6a44204..ece18f8 100644
--- a/package.xml
+++ b/package.xml
@@ -14,6 +14,7 @@
     <test>
         <sunit>OsmoTestPhone.GSM0808Test</sunit>
         <sunit>OsmoTestPhone.BSSAPTest</sunit>
+        <sunit>OsmoTestPhone.GSM48Test</sunit>
         <filein>Tests.st</filein>
     </test>