February 2013 - Pharo-users

Re: [Pharo-users] TDD tuto

by Rafael Luque

This is another screencast related with TDD: http://www.pharocasts.com/2011/02/stringcalculator-kata.html Regards, Rafael Luque

Feb. 13, 2013

Re: [Pharo-users] TDD tuto

by Dennis Schetinin

Yeah, we don't need a 300-pages book for driving. 1. You get in the car and start engine. 2. You drive where you want. 3. Here you are! :D By the way, TDD requires to create only one test during an interationâ¦ Best regards, Dennis Schetinin On Wednesday, 13 February 2013 Ð³. at 9:50, stephane ducasse wrote: > + 1 > > we do not need 300 pages book for tdd :) > 1 You write tests first > there are red > you commit > you start writing your code so that tests are green > when they are green you commit and take a rest. > then go back point 1 > > One I wrote a little powerpoint slideMorph this way and it was fun. The code should be in SlideMorph on Squeaksource. > > Then the environment can help you by creating on the fly method stubs and the rest. > But the key principle is there. > > > this one shows tdd at work > > > > http://www.pharocasts.com/2011/03/build-xml-browser.html > > > > http://www.pharocasts.com/2010/01/starting-with-sunit-and-debugger.html

Feb. 13, 2013

Re: [Pharo-users] TDD tuto

by Dennis Schetinin

On Wednesday, 13 February 2013 Ð³. at 0:09, Igor Stasenko wrote: > this one shows tdd at work > > http://www.pharocasts.com/2011/03/build-xml-browser.html I didn't find any test created here, though the idea is the one behind TDD, actually. > > http://www.pharocasts.com/2010/01/starting-with-sunit-and-debugger.html > Apart from some issues, this one shows a simple TDD process pretty well. Nice tutorials, thank you for the links. I've missed them somehow. BTW, here's my attempt to show TDD + Smalltalk (it's VisualWorks though) in action :) http://www.youtube.com/playlist?list=PLF3CF058A662AB4D3 > -- > Best regards, > Igor Stasenko. > > > Best regards, Dennis Schetinin

Feb. 13, 2013

Re: [Pharo-users] TDD tuto

by Dennis Schetinin

Sorry, I still don't see TDD there. There are unit tests, but no TDD. As in the following examples: > 11. Abstract Cell Class > 12. Unit Test For Mirror Cell > 13. New Methods For Mirror Cell > 14. Target Cell > 15. Target Cell Unit Test > 16. Grid > 17. Grid Unit Test > 18. Making A Deeper Grid Unit Test > > some code is introduced and then(sic!) a test is created. Best regards, Dennis Schetinin On Tuesday, 12 February 2013 Ð³. at 13:09, Stan Shepherd wrote: > It's all the way through, starting at: > http://squeak.preeminent.org/tut2007/html/011.html > It's what first switched me on to TDD. > > Hayatou, I should have noted that this tutorial is all done in Squeak. If > you ignore the details on setting up the environment and project, it should > work fine in Pharo. > ...Stan > > > > -- > View this message in context: http://forum.world.st/TDD-tuto-tp4669308p4669376.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com (http://Nabble.com) > > >

Feb. 13, 2013

Re: [Pharo-users] SmalltalkDoc class

by stephane ducasse

On Feb 13, 2013, at 12:02 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > > Hello > I do not want to write new messages in an existing class, more precisely I project to create a category with only my own classes for my project in SmalltalkHub. You define a category and put SmaltalkDoc in there and in a category starting with a *yourpackage you put in the class Class the method smalltalkDoc => this way you can group all your code. read the monticello chapter > Cordially. > > > ------------------------------------ > Hayatou > - > De : stephane ducasse <stephane.ducasse(a)free.fr> > > > > Hayatou Oumarou wrote: > >> When I define a message smalltalkDoc in the class "Class" it does not have problems there. But when I try to define a subclass "SmalltalkDoc" of "Class" > > Why SmalltalkDoc would be a subclass of Class? > It should inherit from Object > > then you can define a message in > > Class>>smalltalkDoc (not really good style) > ^ SmalltalkDoc on: self > > This way you can execute > > LinkedList smalltalkDoc and then send the message to build the doc to the smalltalkdoc object. > > Stef > > > > >> and put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : >> "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." >> >> How can I fix this? >> >> here the message. >> >> smalltalkDoc >> "Genere un fichier HTML avec les Informations d'une classe" >> |stream nom| >> nom:=self asString,'SmalltalkDoc.html'. >> stream := FileStream forceNewFileNamed: nom. >> stream >> nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; >> nextPutAll: ''; >> nextPutAll: 'class name : '; >> nextPutAll: self name asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'superclass name : '; >> nextPutAll: self superclass name asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'trait Composition : '; >> nextPutAll: self traitCompositionString asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'class trait Composition : '; >> nextPutAll: self class traitCompositionString asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'category : ' ; >> nextPutAll: self category asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'instances Variable Names : '; >> nextPutAll: self instVarNames asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'pool Dictionary Names : '; >> nextPutAll: self poolDictionaryNames asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'class instances Variable Names : '; >> nextPutAll: self class instVarNames asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'type of class : '; >> nextPutAll: self typeOfClass asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'class Comment : '; >> nextPutAll: self organization classComment asString asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'comment Stamp : ' ; >> nextPutAll: self organization commentStamp asString; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: 'class Variables Names : '; >> nextPutAll: self classVarNames asString ; >> nextPutAll: ''; >> nextPutAll: 'selectors : '; >> nextPutAll: self class selectors asString ; >> nextPutAll: ''; >> nextPutAll: ''; >> nextPutAll: '</body> </html>'. >> stream close. >> >> >> >> ------------------------------------ >> Hayatou > > >

Feb. 13, 2013

Re: [Pharo-users] TDD tuto

by stephane ducasse

+ 1 we do not need 300 pages book for tdd :) 1 You write tests first there are red you commit you start writing your code so that tests are green when they are green you commit and take a rest. then go back point 1 One I wrote a little powerpoint slideMorph this way and it was fun. The code should be in SlideMorph on Squeaksource. Then the environment can help you by creating on the fly method stubs and the rest. But the key principle is there. > this one shows tdd at work > > http://www.pharocasts.com/2011/03/build-xml-browser.html > > http://www.pharocasts.com/2010/01/starting-with-sunit-and-debugger.html > > > -- > Best regards, > Igor Stasenko. >

Feb. 13, 2013

Tr : SmalltalkDoc class

by Hayatou Oumarou

Â Hello I do not want to write new messages in an existing class, more precisely I project to create a category with only my own classes for my project in SmalltalkHub. Â Cordially.Â ------------------------------------ Hayatou Â - DeÂ : stephane ducasse <stephane.ducasse(a)free.fr> Â Hayatou OumarouÂ wrote: When I define a message smalltalkDoc in the class "Class" it does not haveÂ problems there.Â But when I try to define a subclass "SmalltalkDoc" of "Class" Why SmalltalkDoc would be a subclass of Class? It should inherit from Object then you can define a message inÂ Class>>smalltalkDoc (not really good style) ^ SmalltalkDoc on: selfÂ This way you can execute LinkedList smalltalkDoc and then send the message to build the doc to the smalltalkdoc object. Stef andÂ put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : >"LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > >How can I fix this?Â > >here the message. > >smalltalkDoc >Â Â Â "Genere un fichier HTML avec les Informations d'une classe" >|stream nom| >nom:=self asString,'SmalltalkDoc.html'. >stream := FileStream forceNewFileNamed: nom. >stream >nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; >nextPutAll: ''; >nextPutAll:Â 'class name : '; >nextPutAll:Â self name asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'superclass name : '; >nextPutAll:Â self superclass name asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'trait Composition : '; >nextPutAll:Â self traitCompositionString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class trait Composition : '; >nextPutAll:Â self class traitCompositionString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'category : ' ; >nextPutAll:Â self category asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'instances Variable Names : '; >nextPutAll:Â self instVarNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'pool Dictionary Names : '; >nextPutAll:Â self poolDictionaryNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class instances Variable Names : '; >nextPutAll:Â self class instVarNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'typeÂ of class : '; >nextPutAll:Â self typeOfClass asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class Comment : '; >nextPutAll:Â self organization classComment asString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'comment Stamp : 'Â Â Â ; >nextPutAll:Â self organization commentStamp asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class Variables Names : '; >nextPutAll:Â self classVarNames asString ; >nextPutAll: ''; >nextPutAll: 'selectors : '; >nextPutAll: self class selectors asString ; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll: '</body> </html>'. >stream close. > >Â > > > >------------------------------------ >Hayatou Â

Feb. 12, 2013

Re: [Pharo-users] SmalltalkDoc class

by stephane ducasse

On Feb 12, 2013, at 1:25 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > When I define a message smalltalkDoc in the class "Class" it does not have problems there. But when I try to define a subclass "SmalltalkDoc" of "Class" Why SmalltalkDoc would be a subclass of Class? It should inherit from Object then you can define a message in Class>>smalltalkDoc (not really good style) ^ SmalltalkDoc on: self This way you can execute LinkedList smalltalkDoc and then send the message to build the doc to the smalltalkdoc object. Stef > and put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : > "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > > How can I fix this? > > here the message. > > smalltalkDoc > "Genere un fichier HTML avec les Informations d'une classe" > |stream nom| > nom:=self asString,'SmalltalkDoc.html'. > stream := FileStream forceNewFileNamed: nom. > stream > nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; > nextPutAll: ''; > nextPutAll: 'class name : '; > nextPutAll: self name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'superclass name : '; > nextPutAll: self superclass name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'trait Composition : '; > nextPutAll: self traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class trait Composition : '; > nextPutAll: self class traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'category : ' ; > nextPutAll: self category asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'instances Variable Names : '; > nextPutAll: self instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'pool Dictionary Names : '; > nextPutAll: self poolDictionaryNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class instances Variable Names : '; > nextPutAll: self class instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'type of class : '; > nextPutAll: self typeOfClass asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Comment : '; > nextPutAll: self organization classComment asString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'comment Stamp : ' ; > nextPutAll: self organization commentStamp asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Variables Names : '; > nextPutAll: self classVarNames asString ; > nextPutAll: ''; > nextPutAll: 'selectors : '; > nextPutAll: self class selectors asString ; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: '</body> </html>'. > stream close. > > > > ------------------------------------ > Hayatou

Feb. 12, 2013

Re: [Pharo-users] SmalltalkDoc class

by stephane ducasse

On Feb 12, 2013, at 10:21 AM, Alain Busser <alain.busser(a)gmail.com> wrote: > I'm afraid I can't help much but if you define a method for the Stream object you can have a shorter code, avoiding all these "" everywhere. > > Something like > > paragraphe: unString > self nextPutAll: ''. > self nextPutAll: unString. > self nextPutAll: ''. > > > Afterwards you would just list things like paragraphe: 'class name : ',self name asString; so that one entry would take one line of code instead of four. > > But maybe I am violating some principles for good programming? Now this is indeed much nicer :) > > And it doesn't show why SmalltalkDoc is not understood by your class... > > On Tue, Feb 12, 2013 at 4:25 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > When I define a message smalltalkDoc in the class "Class" it does not have problems there. But when I try to define a subclass "SmalltalkDoc" of "Class" and put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : > "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > > How can I fix this? > > here the message. > > smalltalkDoc > "Genere un fichier HTML avec les Informations d'une classe" > |stream nom| > nom:=self asString,'SmalltalkDoc.html'. > stream := FileStream forceNewFileNamed: nom. > stream > nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; > nextPutAll: ''; > nextPutAll: 'class name : '; > nextPutAll: self name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'superclass name : '; > nextPutAll: self superclass name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'trait Composition : '; > nextPutAll: self traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class trait Composition : '; > nextPutAll: self class traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'category : ' ; > nextPutAll: self category asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'instances Variable Names : '; > nextPutAll: self instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'pool Dictionary Names : '; > nextPutAll: self poolDictionaryNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class instances Variable Names : '; > nextPutAll: self class instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'type of class : '; > nextPutAll: self typeOfClass asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Comment : '; > nextPutAll: self organization classComment asString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'comment Stamp : ' ; > nextPutAll: self organization commentStamp asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Variables Names : '; > nextPutAll: self classVarNames asString ; > nextPutAll: ''; > nextPutAll: 'selectors : '; > nextPutAll: self class selectors asString ; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: '</body> </html>'. > stream close. > > > > ------------------------------------ > Hayatou >

Feb. 12, 2013

Re: [Pharo-users] TDD tuto

by Igor Stasenko

this one shows tdd at work http://www.pharocasts.com/2011/03/build-xml-browser.html http://www.pharocasts.com/2010/01/starting-with-sunit-and-debugger.html -- Best regards, Igor Stasenko.

Feb. 12, 2013