The first question you should ask is "What do I expect #ball asUppercase to be?" The ANSI Smalltalk standard says 5.7.10.9 Message: asUppercase Synopsis Answer a new string which contains all of the elements of the receiver converted to their upper case equivalents. Definition: <readableString> Answer a new string which contains all of the elements of the receiver converted to their upper case equivalents. Individual element of the string are converted as if they were receivers of the message #asUppercase. Return Values <readableString> new Errors none
Notice the word "string", the protocol "<readableString>", and the entire absence of anything suggesting that the receiver and result belong to the same class. In my Smalltalk library, the receiver and result DO belong to the same class, so #ball asUppercase ==> #BALL. But the ANSI standard does not require that. And I may change my library, because GNU Smalltalk, Dolphin Smalltalk, Smalltalk/X, Squeak, and Pharo all return a String. (On the other hand, one reason I wrote my Smalltalk was to press the edges of the ANSI standard, so maybe I'll leave it.) So I think where you have #BALL you should have 'BALL'. There may be other issues. On Wed, 30 Oct 2019 at 11:00, Roelof Wobben via Pharo-users <pharo-users@lists.pharo.org> wrote: > > Hello, > > I have to made this challenge as last on of the OOP book > > Servers answering requests > > When a server node consumes a packet, it converts the payload to uppercase, > then sends that back to the sender of the request. > > This is yet another subclass which redefines the consume: method, but this > time the node is stateless, so we have no initialization or accessor methods > to > write: > > KANetworkNode subclass: #KANetworkServer > instanceVariableNames: '' > classVariableNames: '' > category: 'NetworkSimulator-Nodes' > > KANetworkServer >> consume: aPacket > | response | > response := aPacket payload asUppercase. > self send: (KANetworkPacket > from: self address > to: aPacket sourceAddress > payload: response) > > > Define a test for the behavior of server nodes. > > > I tried but I miss something > > so far as I have this : > > testSendToServer > | packet ping pong link | > packet := KANetworkPacket from: #ping to: #pong payload: #ball. > ping := net nodeAt: #ping. > pong := net nodeAt: #pong. > link := net linkFrom: #ping to: #pong. > ping send: packet. > pong consume: packet. > > but whatever I tried I cannot think of a test that works. > > I tried > > assert: ping payload equals: #BALL > assert: ping arrievedpackages equals; 1 > > but they all fail > > It looks like ping does not recieve the package back. > > What do I do wrong or what can I test better ? > > my code so far : https://github.com/RoelofWobben/network > > and the problem is the testToServerTest that I cannot make work > > Regards, > > Roelof >
