Il 09/09/2012 23:56, Holger Hans Peter Freyther ha scritto: > From: Holger Hans Peter Freyther <[email protected]> > > Use testSelector printString as this works when testSelector > is a String/Symbol or an UndefinedObject. > > 2012-08-03 Holger Hans Peter Freyther <[email protected]> > > * packages/sunit/SUnit.st: Use testSelector printString as > the testSelector may be an UndefinedObject. > * packages/sunit/SUnitTest.st: Add #testPrintString. > --- > packages/sunit/ChangeLog | 6 ++++++ > packages/sunit/SUnit.st | 2 +- > packages/sunit/SUnitTests.st | 9 +++++++++ > 3 files changed, 16 insertions(+), 1 deletion(-) > > diff --git a/packages/sunit/ChangeLog b/packages/sunit/ChangeLog > index 8449214..56a52cf 100644 > --- a/packages/sunit/ChangeLog > +++ b/packages/sunit/ChangeLog > @@ -1,3 +1,9 @@ > +2012-08-03 Holger Hans Peter Freyther <[email protected]> > + > + * packages/sunit/SUnit.st: Use testSelector printString as > + the testSelector may be an UndefinedObject. > + * packages/sunit/SUnitTest.st: Add #testPrintString. > + > 2010-12-04 Paolo Bonzini <[email protected]> > > * package.xml: Remove now superfluous <file> tags. > diff --git a/packages/sunit/SUnit.st b/packages/sunit/SUnit.st > index bb814f9..58b3ab0 100644 > --- a/packages/sunit/SUnit.st > +++ b/packages/sunit/SUnit.st > @@ -1104,7 +1104,7 @@ When you are writing a test case method, send #assert: > aBoolean when you want to > aStream > nextPutAll: self class printString; > nextPutAll: '>>#'; > - nextPutAll: testSelector > + nextPutAll: testSelector printString.
Changed both class and testSelector printing to use #print:, and applied. Paolo > ] > ] > > diff --git a/packages/sunit/SUnitTests.st b/packages/sunit/SUnitTests.st > index d1160a1..166ee89 100644 > --- a/packages/sunit/SUnitTests.st > +++ b/packages/sunit/SUnitTests.st > @@ -276,6 +276,15 @@ if the tests are hard to write, something is probably > wrong with the design".'> > assert: aResult errorCount = anErrorCount > ] > > + testPrintString [ > + <category: 'Testing'> > + "Make sure that a new test can be printed" > + > + self > + shouldnt: [TestCase new printString] raise: Exception; > + assert: TestCase new printString = 'TestCase>>#nil'. > + ] > + > isLogging [ > <category: 'Logging'> > ^true > _______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
