2010-10-16 17:28:35 +00:00
|
|
|
"Test Case for Osmo-Network"
|
|
|
|
|
|
|
|
TestCase subclass: SCCPTests [
|
|
|
|
SCCPTests class >> packageNamesUnderTest [
|
|
|
|
<category: 'accessing'>
|
|
|
|
^ #('OsmoNetwork')
|
|
|
|
]
|
|
|
|
|
2010-11-20 20:24:55 +00:00
|
|
|
testPNCCreate [
|
|
|
|
| pnc |
|
|
|
|
|
|
|
|
pnc := SCCPPNC new.
|
|
|
|
pnc at: SCCPHelper pncData put: #(1 2 3) asByteArray.
|
|
|
|
self assert: pnc toMessage asByteArray = #(15 3 1 2 3 0) asByteArray.
|
|
|
|
]
|
|
|
|
|
2010-10-16 17:28:35 +00:00
|
|
|
testReleasedFormat [
|
|
|
|
| rlsd msg |
|
|
|
|
rlsd := SCCPConnectionReleased initWith: 16r1F0A01 dest: 16r401 cause: 16rFE.
|
2010-11-20 00:09:50 +00:00
|
|
|
msg := rlsd toMessage asByteArray.
|
2010-10-16 17:28:35 +00:00
|
|
|
|
|
|
|
self assert: msg = #(4 1 4 0 1 16r0A 16r1F 16rFE 1 0) asByteArray
|
|
|
|
]
|
2010-10-16 18:08:47 +00:00
|
|
|
|
|
|
|
testDT1 [
|
|
|
|
| dt1 msg |
|
|
|
|
dt1 := SCCPConnectionData initWith: 16r401 data: '1234' asByteArray.
|
2010-11-20 00:09:50 +00:00
|
|
|
msg := dt1 toMessage asByteArray.
|
2010-10-16 18:08:47 +00:00
|
|
|
|
|
|
|
self assert: msg = #(6 1 4 0 0 1 4 49 50 51 52) asByteArray.
|
|
|
|
]
|
2010-11-15 18:07:37 +00:00
|
|
|
|
|
|
|
testCR [
|
2010-11-20 19:21:46 +00:00
|
|
|
| cr msg target |
|
|
|
|
target := #(1 191 0 3 2 2 4 2 66 254 15 4 49 50 51 52 0) asByteArray.
|
|
|
|
|
|
|
|
"encode it"
|
2010-11-15 18:07:37 +00:00
|
|
|
cr := SCCPConnectionRequest
|
|
|
|
initWith: 16r0300BF
|
|
|
|
dest: (SCCPAddress createWith: 254)
|
|
|
|
data: '1234' asByteArray.
|
2010-11-20 00:09:50 +00:00
|
|
|
msg := cr toMessage asByteArray.
|
2010-11-15 18:07:37 +00:00
|
|
|
msg printNl.
|
|
|
|
|
2010-11-20 19:21:46 +00:00
|
|
|
self assert: msg = target.
|
|
|
|
|
|
|
|
"now decode it"
|
|
|
|
cr := SCCPMessage decode: target.
|
|
|
|
self assert: (cr isKindOf: SCCPConnectionRequest).
|
|
|
|
self assert: cr src = 16r0300BF.
|
|
|
|
self assert: cr dest asByteArray = (SCCPAddress createWith: 254) asByteArray.
|
|
|
|
self assert: cr data = '1234' asByteArray.
|
2010-11-24 10:00:54 +00:00
|
|
|
|
|
|
|
"now encode it again"
|
|
|
|
self assert: cr toMessage asByteArray = target.
|
2010-11-15 18:07:37 +00:00
|
|
|
]
|
2010-11-15 18:36:41 +00:00
|
|
|
|
2010-11-15 19:03:49 +00:00
|
|
|
testCC [
|
|
|
|
| target cc |
|
|
|
|
|
|
|
|
target := #(2 191 0 3 1 3 176 2 1 0) asByteArray.
|
|
|
|
|
2010-11-24 13:13:09 +00:00
|
|
|
cc := SCCPConnectionConfirm
|
|
|
|
initWithSrc: 16rB00301 dst: 16r0300BF.
|
|
|
|
self assert: cc toMessage asByteArray = target.
|
2010-11-20 18:28:02 +00:00
|
|
|
|
|
|
|
cc := SCCPMessage decode: target.
|
|
|
|
self assert: (cc isKindOf: SCCPConnectionConfirm).
|
|
|
|
self assert: cc dst = 16r0300BF.
|
|
|
|
self assert: cc src = 16rB00301.
|
2010-11-24 13:13:09 +00:00
|
|
|
|
|
|
|
self assert: cc toMessage asByteArray = target.
|
2010-11-15 19:03:49 +00:00
|
|
|
]
|
|
|
|
|
2010-11-15 18:36:41 +00:00
|
|
|
testAddrFromByteArray [
|
|
|
|
| byte |
|
|
|
|
byte := #(191 0 3) asByteArray.
|
|
|
|
self assert: (SCCPAddrReference fromByteArray: byte) = 16r0300BF
|
|
|
|
]
|
2010-10-16 17:28:35 +00:00
|
|
|
]
|
|
|
|
|
|
|
|
TestCase subclass: IPATests [
|
|
|
|
IPATests class >> packageNamesUnderTest [
|
|
|
|
<category: 'accessing'>
|
|
|
|
^ #('OsmoNetwork')
|
|
|
|
]
|
|
|
|
|
|
|
|
testSize [
|
2010-10-19 08:06:11 +00:00
|
|
|
self assert: IPASCCPState sizeof = 25.
|
2010-10-16 17:28:35 +00:00
|
|
|
]
|
|
|
|
]
|
2010-11-19 23:39:06 +00:00
|
|
|
|
|
|
|
TestCase subclass: MessageBufferTest [
|
|
|
|
testAdd [
|
|
|
|
| msg1 msg2 msg3 msg_master |
|
|
|
|
msg1 := MessageBuffer new.
|
|
|
|
msg2 := MessageBuffer new.
|
|
|
|
msg3 := MessageBuffer new.
|
|
|
|
|
|
|
|
msg1 putByteArray: #(1 2 3) asByteArray.
|
|
|
|
msg2 putByteArray: #(4 5 6) asByteArray.
|
|
|
|
msg3 putByteArray: #(7 8 9) asByteArray.
|
|
|
|
|
|
|
|
msg_master := MessageBuffer new.
|
|
|
|
msg_master putByteArray: msg1.
|
|
|
|
msg_master putByteArray: msg2.
|
|
|
|
msg_master putByteArray: msg3.
|
|
|
|
|
|
|
|
self assert: msg_master size = 9.
|
|
|
|
self assert: msg_master toByteArray = #(1 2 3 4 5 6 7 8 9) asByteArray.
|
2010-11-19 23:48:52 +00:00
|
|
|
self assert: msg_master asByteArray = #(1 2 3 4 5 6 7 8 9) asByteArray.
|
2010-11-19 23:39:06 +00:00
|
|
|
]
|
|
|
|
]
|