--- Begin Message ---
Op 27-4-2020 om 19:50 schreef Roelof Wobben via Pharo-users:
This seems to be working
testKaNetWorkServer
| srcNode destNode link packet link2 packet2 recievedPackage |
srcNode := KANetworkNode withAddress: #src.
destNode := KANetworkServer withAddress: #dest.
link := (KANetworkLink from: srcNode to: destNode)
attach;
yourself.
link2 := (KANetworkLink from: destNode to: srcNode)
attach;
yourself.
packet := KANetworkPacket from: #src to: #dest payload: 'test'.
srcNode send: packet via: link.
destNode consume: packet.
packet2 := link2 packetsToTransmit first.
srcNode receive: packet2 from: destNode.
recievedPackage := srcNode arrivedPackets first.
self assert: recievedPackage payload equals: 'TEST'
I hope it is a good one.
--- End Message ---
