Packages February 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Compiler-nice.223.mcz
by commits＠source.squeak.org 09 Feb '12

09 Feb '12

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.223.mcz ==================== Summary ==================== Name: Compiler-nice.223 Author: nice Time: 9 February 2012, 4:05:21.21 pm UUID: 8c21622a-6317-4c71-ad1a-607ba1683e6c Ancestors: Compiler-nice.222 Correct a bug (see http://code.google.com/p/pharo/issues/detail?id=4650) self should: [Compiler evaluate: '$'] raise: Error. I also simplified all the redundancy (aheadChar == DoItCharacter and: [source atEnd]) and replaced with aheadChar == DoItCharacter. Indeed, these were uggly incomplete guards trying to distinguish a DoItCharacter marking an end of stream from a (Character value: 30 "ASCII character RS means Record Separator") encountered in source... But they would not even handle the case when DoItCharacter is the last source character., except maybe the uggliest contorsions in xDigit... Instead I replaced the DoItCharacter marking the endOfStream by a character that we should never encounter in source. I have chosen 16r10FFFF which is the last unicode and will never be used to encode a character (as all ending in FFFE and FFFF). A different strategy would be to use a value greater than the last unicode, like 16r110000, and would also work... Or use a different Object. In this later case, the object would have to understand charCode or we would have to change more Scanner methods (at least typeTableAt:). Note that with current Character implementation, (Character value: 16r10FFFF) ~~ (Character value: 16r10FFFF). Since all tests are written with identity test aheadChar or hereChar == DoItCharacter, even if such Character were encountered in source, it wouldn't be interpreted as an endOfStream mark, thus any Character code > 255 could have been used, but this would be more fragile. Consequently, I also modified the character type table to not interpret (Character value: 30) as end of source (#doIt). I think that it was previously possible to insert a (Character value: 30) in source, and everything after that would have been ignored (if not between quotes) and could potentially store meta information. But this was both undocumented and AFAIK unused. It's easy to go back if we want to, by restoring previous version of #initializeTypeTable. While doing this, I noticed that (Character value: 30) will now be interpreted as binary as many other characters including invisible control characters... It could thus be used in a binary selector! That's crazy and I suggest using xIllegal in the Character typeTable, since I had previously prepared this method... But one change at a time... =============== Diff against Compiler-nice.222 =============== Item was changed: ----- Method: Parser>>advance (in category 'scanning') ----- advance | this | prevMark := hereMark. prevEnd := hereEnd. this := here. here := token. hereType := tokenType. hereMark := mark. + hereEnd := source position - (aheadChar == DoItCharacter + ifTrue: [hereChar == DoItCharacter - hereEnd := source position - ((aheadChar == 30 asCharacter and: [source atEnd]) - ifTrue: [hereChar == 30 asCharacter ifTrue: [0] ifFalse: [1]] ifFalse: [2]). self scanToken. "Transcript show: 'here: ', here printString, ' mark: ', hereMark printString, ' end: ', hereEnd printString; cr." ^this! Item was changed: ----- Method: Scanner class>>initialize (in category 'initialization') ----- initialize self initializeTypeTable. + "The unicode ending with FFFE or FFFF are non characters and can be used by applications if they wish. + We use last legal unicode 16r10FFFF to encode the end of source stream" + DoItCharacter := Character value: 16r10FFFF! - DoItCharacter := Character value: 30! Item was changed: ----- Method: Scanner class>>initializeTypeTable (in category 'initialization') ----- initializeTypeTable "self initializeTypeTable" | newTable | newTable := Array new: 256 withAll: #xBinary. "default" newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr space" newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit. 1 to: 255 do: [:index | (Character value: index) isLetter ifTrue: [newTable at: index put: #xLetter]]. - newTable at: 30 put: #doIt. newTable at: $" asciiValue put: #xDoubleQuote. newTable at: $# asciiValue put: #xLitQuote. newTable at: $$ asciiValue put: #xDollar. newTable at: $' asciiValue put: #xSingleQuote. newTable at: $: asciiValue put: #xColon. newTable at: $( asciiValue put: #leftParenthesis. newTable at: $) asciiValue put: #rightParenthesis. newTable at: $. asciiValue put: #period. newTable at: $; asciiValue put: #semicolon. newTable at: $[ asciiValue put: #leftBracket. newTable at: $] asciiValue put: #rightBracket. newTable at: ${ asciiValue put: #leftBrace. newTable at: $} asciiValue put: #rightBrace. newTable at: $^ asciiValue put: #upArrow. newTable at: $_ asciiValue put: #xUnderscore. newTable at: $| asciiValue put: #verticalBar. TypeTable := newTable "bon voyage!!"! Item was changed: ----- Method: Scanner>>scanToken (in category 'expression types') ----- scanToken [(tokenType := self typeTableAt: hereChar) == #xDelimiter] whileTrue: [self step]. "Skip delimiters fast, there almost always is one." + mark := aheadChar == DoItCharacter - mark := (aheadChar == DoItCharacter and: [source atEnd]) ifTrue: [source position] ifFalse: [source position - 1]. (tokenType at: 1) == $x "x as first letter" ifTrue: [self perform: tokenType "means perform to compute token & type"] ifFalse: [token := self step asSymbol "else just unique the first char"]. ^token! Item was changed: ----- Method: Scanner>>typeTableAt: (in category 'multi-character scans') ----- typeTableAt: aCharacter + ^typeTable + at: aCharacter charCode + ifAbsent: + [aCharacter == DoItCharacter + ifTrue: [#doIt] + ifFalse: [#xLetter]]! - ^typeTable at: aCharacter charCode ifAbsent:[#xLetter]! Item was changed: ----- Method: Scanner>>xDigit (in category 'multi-character scans') ----- xDigit "Form a number." tokenType := #number. + aheadChar == DoItCharacter - (aheadChar == DoItCharacter and: [source atEnd - and: [source skip: -1. source next ~~ DoItCharacter]]) ifTrue: [source skip: -1 "Read off the end last time"] ifFalse: [source skip: -2]. token := (SqNumberParser on: source) failBlock: [:errorString :position | self notify: errorString at:position]; nextNumber. self step; step! Item was changed: ----- Method: Scanner>>xDollar (in category 'multi-character scans') ----- xDollar "Form a Character literal." + aheadChar == DoItCharacter ifTrue: [^self offEnd: 'A Character was expected']. self step. "pass over $" token := self step. tokenType := #character! Item was changed: ----- Method: Scanner>>xDoubleQuote (in category 'multi-character scans') ----- xDoubleQuote "Collect a comment." - "wod 1/10/98: Allow 'empty' comments by testing the first character - for $"" rather than blindly adding it to the comment being collected." buffer reset. self step. [ hereChar == $" ] whileFalse: [ + hereChar == DoItCharacter ifTrue: [ - (hereChar == DoItCharacter and: [ source atEnd ]) ifTrue: [ ^self offEnd: 'Unmatched comment quote' ]. buffer nextPut: self step ]. self step. (currentComment ifNil: [ currentComment := OrderedCollection new ]) add: buffer contents. self scanToken! Item was changed: ----- Method: Scanner>>xLetter (in category 'multi-character scans') ----- xLetter "Form a word or keyword." | type | buffer reset. [(type := self typeTableAt: hereChar) == #xLetter or: [type == #xDigit or: [type == #xUnderscore and:[self allowUnderscoreSelectors]]]] whileTrue: ["open code step for speed" buffer nextPut: hereChar. hereChar := aheadChar. aheadChar := source atEnd + ifTrue: [DoItCharacter] - ifTrue: [30 asCharacter "doit"] ifFalse: [source next]]. + tokenType := (type == #xColon and: [aheadChar ~~ $=]) - tokenType := (type == #colon or: [type == #xColon and: [aheadChar ~~ $=]]) ifTrue: [buffer nextPut: self step. "Allow any number of embedded colons in literal symbols" [(self typeTableAt: hereChar) == #xColon] whileTrue: [buffer nextPut: self step]. #keyword] ifFalse: [#word]. token := buffer contents! Item was changed: ----- Method: Scanner>>xSingleQuote (in category 'multi-character scans') ----- xSingleQuote "String." self step. buffer reset. [hereChar == $' and: [aheadChar == $' ifTrue: [self step. false] ifFalse: [true]]] whileFalse: + [hereChar == DoItCharacter + ifTrue: [^self offEnd: 'Unmatched string quote']. + buffer nextPut: self step]. - [buffer nextPut: self step. - (hereChar == DoItCharacter and: [source atEnd]) - ifTrue: [^self offEnd: 'Unmatched string quote']]. self step. token := buffer contents. tokenType := #string!

1 0

The Trunk: Compiler-nice.223.mcz
by commits＠source.squeak.org 09 Feb '12

09 Feb '12

1 0

The Trunk: Compiler-nice.223.mcz
by commits＠source.squeak.org 09 Feb '12

09 Feb '12

1 0

The Trunk: ReleaseBuilder-cmm.76.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.76.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.76 Author: cmm Time: 4 February 2012, 3:01:58.442 pm UUID: 44968a0b-5f3e-4056-b591-8c3b720d02e8 Ancestors: ReleaseBuilder-cmm.75 - Register TTC fonts for next build. - Adjust the standard window size to tall rather than wide. =============== Diff against ReleaseBuilder-cmm.75 =============== Item was changed: ----- Method: ReleaseBuilderTrunk class>>prepareNewBuild (in category 'scripts') ----- prepareNewBuild "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" + TTCFont registerAll. + RealEstateAgent standardSize: 400@500. SystemVersion setVersion. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). self setDisplayExtent: 800 @ 600; setPreferences; switchTo43Repository; openWelcomeWorkspaces. "Make DependencyBrowser accessible on the open menu." DependencyBrowser initialize. Smalltalk cleanUp: true. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect!

1 0

The Trunk: ReleaseBuilder-cmm.76.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

1 0

The Trunk: ReleaseBuilder-cmm.76.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

1 0

The Trunk: Kernel-cmm.669.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.669.mcz ==================== Summary ==================== Name: Kernel-cmm.669 Author: cmm Time: 3 February 2012, 5:55:11.175 pm UUID: 5ddec343-01ad-4e76-b32c-299fac68ec09 Ancestors: Kernel-eem.668 Introduced Timespan class>>defaultOffset. This is the offset that will be used for creation of all Timespans when an offset is not specified. When an offset is specified or involved in construction or calculation, the result is now produced in terms of the source offset. For example, Date today now produces a globalized date by default. However, "Date starting: (DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: 2 hours)" produces a Date.whose start is expressed in terms of UTC+2. The default defaultOffset is Duration zero so that Squeak will have fast, globalized Dates out of the box. Globalized Dates are common for applications. Legacy localized Dates can be obtained by evaluating "Date localize" so that, when an offset is not specified or otherwise involved in the input, the local offset will be used. =============== Diff against Kernel-eem.668 =============== Item was changed: Timespan subclass: #Date instanceVariableNames: '' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Kernel-Chronology'! + !Date commentStamp: 'cmm 2/3/2012 17:30' prior: 0! - !Date commentStamp: '<historical>' prior: 0! Instances of Date are Timespans with duration of 1 day. + + Their default creation assumes a start of midnight of UTC to provide the fast, globalized Dates out of the box. The legacy behavior that creates Timezone-sensitive Dates can be used by sending #localizedDates. + ! - Their default creation assumes a start of midnight in the local time zone.! Item was changed: ----- Method: Date class>>julianDayNumber: (in category 'squeak protocol') ----- + julianDayNumber: aJulianDayNumber + ^ self starting: + (DateAndTime + julianDayNumber: aJulianDayNumber + offset: self defaultOffset)! - julianDayNumber: aJulianDayNumber - - ^ self starting: (DateAndTime julianDayNumber: aJulianDayNumber)! Item was changed: ----- Method: Date class>>starting: (in category 'squeak protocol') ----- starting: aDateAndTime + ^ self - ^ super starting: aDateAndTime midnight duration: Duration oneDay! Item was changed: ----- Method: Date class>>year:day: (in category 'squeak protocol') ----- + year: year day: dayOfYear + ^ self starting: + (DateAndTime + year: year + day: dayOfYear + hour: 0 + minute: 0 + second: 0 + offset: self defaultOffset)! - year: year day: dayOfYear - - ^ self starting: (DateAndTime year: year day: dayOfYear) - ! Item was changed: ----- Method: Date class>>year:month:day: (in category 'squeak protocol') ----- + year: year month: month day: day + ^ self starting: + (DateAndTime + year: year + month: month + day: day + hour: 0 + minute: 0 + second: 0 + offset: self defaultOffset)! - year: year month: month day: day - - ^ self starting: (DateAndTime year: year month: month day: day)! Item was changed: ----- Method: DateAndTime class>>julianDayNumber: (in category 'squeak protocol') ----- + julianDayNumber: anInteger + ^ self + julianDayNumber: anInteger + offset: self localOffset! - julianDayNumber: aJulianDayNumber - - ^ self basicNew - ticks: aJulianDayNumber days ticks offset: self localOffset; - yourself! Item was added: + ----- Method: DateAndTime class>>julianDayNumber:offset: (in category 'squeak protocol') ----- + julianDayNumber: anInteger offset: aDuration + ^ self basicNew + ticks: anInteger days ticks + offset: aDuration ; + yourself! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- now + ^ self nowWithOffset: self localOffset! - | nanoTicks msm | - - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. - - (LastTick < nanoTicks) ifTrue: [ - LastTick := nanoTicks. - ^ self todayAtMilliSeconds: msm]. - - LastTickSemaphore critical: [ - LastTick := LastTick + 1. - ^ self todayAtNanoSeconds: LastTick] - - " - [ 10000 timesRepeat: [ self now. ] ] timeToRun / 10000.0 . - - If calls to DateAndTime-c-#now are within a single millisecond the semaphore code - to ensure that (self now <= self now) slows things down considerably by a factor of about 20. - - The actual speed of a single call to DateAndTime-now in milliseconds is - demonstrated by the unguarded method below. - - [ 100000 timesRepeat: [ self todayAtMilliSeconds: (self milliSecondsSinceMidnight) ] ] timeToRun / 100000.0 . 0.00494 0.00481 0.00492 0.00495 - - "! Item was added: + ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration + | nanoTicks msm | + + nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. + + (LastTick < nanoTicks) ifTrue: [ + LastTick := nanoTicks. + ^ self todayAtMilliSeconds: msm offset: aDuration]. + + LastTickSemaphore critical: [ + LastTick := LastTick + 1. + ^ self todayAtNanoSeconds: LastTick offset: aDuration] + + " + [ 10000 timesRepeat: [ self now. ] ] timeToRun / 10000.0 . + + If calls to DateAndTime-c-#now are within a single millisecond the semaphore code + to ensure that (self now <= self now) slows things down considerably by a factor of about 20. + + The actual speed of a single call to DateAndTime-now in milliseconds is + demonstrated by the unguarded method below. + + [ 100000 timesRepeat: [ self todayAtMilliSeconds: (self milliSecondsSinceMidnight) ] ] timeToRun / 100000.0 . 0.00494 0.00481 0.00492 0.00495 + + "! Item was changed: ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- + todayAtMilliSeconds: milliSecondsSinceMidnight + self deprecated: 'Use todayAtMilliSeconds:offset:.'. + ^ self + todayAtMilliSeconds: milliSecondsSinceMidnight + offset: self localOffset! - todayAtMilliSeconds: milliSecondsSinceMidnight - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (milliSecondsSinceMidnight // 1000) - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) - offset: self localOffset - - " - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - "! Item was added: + ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- + todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration + + "This is usually only during system startup..." + self waitForOffsets. + + ^ self basicNew + setJdn: DaysSinceEpoch + seconds: (milliSecondsSinceMidnight // 1000) + nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) + offset: aDuration + + " + [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. + "! Item was changed: ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- + todayAtNanoSeconds: nanoSecondsSinceMidnight + self deprecated: 'Use todayAtNanoSeconds:offset:.'. + self + todayAtNanoSeconds: nanoSecondsSinceMidnight + offset: self localOffset! - todayAtNanoSeconds: nanoSecondsSinceMidnight - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (nanoSecondsSinceMidnight // 1000000000) - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) - offset: self localOffset - ! Item was added: + ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- + todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration + + "This is usually only during system startup..." + self waitForOffsets. + + ^ self basicNew + setJdn: DaysSinceEpoch + seconds: (nanoSecondsSinceMidnight // 1000000000) + nano: (nanoSecondsSinceMidnight \\ 1000000000 ) + offset: self localOffset + ! Item was changed: ----- Method: DateAndTime>>asSeconds (in category 'smalltalk-80') ----- asSeconds "Return the number of seconds since the Squeak epoch" + ^ (self - (self class epoch offset: offset)) asSeconds! - - ^ (self - (self class epoch)) asSeconds! Item was changed: ----- Method: DateAndTime>>makeUTC (in category 'squeak protocol') ----- makeUTC + "Make the receiver's timezone UTC." - "Change the receiver's timezone to UTC. Like #asUTC, but modifies the receiver and is much faster." self primOffset: Duration zero! Item was changed: ----- Method: DateAndTime>>midnight (in category 'squeak protocol') ----- midnight + "Answer a DateAndTime starting at midnight of the same timezone offset as the receiver." + ^ self class basicNew - "Answer a DateAndTime starting at midnight local time" - - ^self class basicNew setJdn: jdn seconds: 0 nano: 0 + offset: offset! - offset: self class localOffset - ! Item was changed: ----- Method: Month class>>month:year: (in category 'squeak protocol') ----- + month: month year: year - month: month year: year "Create a Month for the given <year> and <month>. <month> may be a number or a String with the name of the month. <year> should be with 4 digits." + ^ self starting: + (DateAndTime + year: year + month: month + day: 1 + hour: 0 + minute: 0 + second: 0 + offset: self defaultOffset)! - - ^ self starting: (DateAndTime year: year month: month day: 1) - ! Item was changed: ----- Method: Month class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - a each month has a defined duration" | start adjusted days | start := aDateAndTime asDateAndTime. adjusted := DateAndTime + year: start year + month: start month + day: 1 + hour: 0 + minute: 0 + second: 0 + offset: start offset. + days := self + daysInMonth: adjusted month + forYear: adjusted year. - year: start year - month: start month - day: 1. - days := self daysInMonth: adjusted month forYear: adjusted year. ^ super starting: adjusted + duration: (Duration days: days)! - duration: (Duration days: days) - ! Item was changed: Magnitude subclass: #Timespan instanceVariableNames: 'start duration' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Chronology'! + Timespan class + instanceVariableNames: 'defaultOffset'! !Timespan commentStamp: 'dtl 7/11/2009 16:35' prior: 0! I represent a duration starting on a specific DateAndTime.! + Timespan class + instanceVariableNames: 'defaultOffset'! Item was changed: ----- Method: Timespan class>>current (in category 'squeak protocol') ----- current + ^ self starting: (DateAndTime nowWithOffset: self defaultOffset)! - - - ^ self starting: DateAndTime now! Item was added: + ----- Method: Timespan class>>defaultOffset (in category 'configuring') ----- + defaultOffset + ^ defaultOffset! Item was added: + ----- Method: Timespan class>>globalize (in category 'configuring') ----- + globalize + "By default, Timespans will be created with a local timezone's offset." + defaultOffset := Duration zero! Item was added: + ----- Method: Timespan class>>initialize (in category 'initialize-release') ----- + initialize + self globalize! Item was added: + ----- Method: Timespan class>>localize (in category 'configuring') ----- + localize + "By default, Timespans will be created with a local timezone's offset." + defaultOffset := DateAndTime localOffset! Item was changed: ----- Method: Timespan class>>new (in category 'squeak protocol') ----- new "Answer a Timespan starting on the Squeak epoch: 1 January 1901" + ^ self starting: (DateAndTime new offset: self defaultOffset)! - - ^ self starting: DateAndTime new - ! Item was changed: ----- Method: Year class>>year: (in category 'squeak protocol') ----- + year: aYear + ^ self starting: + (DateAndTime + year: aYear + month: 1 + day: 1 + hour: 0 + minute: 0 + second: 0 + offset: self defaultOffset)! - year: aYear - - ^ self starting: (DateAndTime year: aYear month: 1 day: 1).!

1 0

The Trunk: Kernel-cmm.669.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

1 0

The Trunk: Kernel-cmm.669.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

1 0

The Trunk: SystemReporter-cmm.19.mcz
by commits＠source.squeak.org 03 Feb '12

03 Feb '12

Chris Muller uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-cmm.19.mcz ==================== Summary ==================== Name: SystemReporter-cmm.19 Author: cmm Time: 2 February 2012, 11:16:52.731 pm UUID: 6d7357ee-74c3-4003-bb37-8598bf8ae096 Ancestors: SystemReporter-laza.18 Report Failed Tests and Errors as a list of debuggable expressions. =============== Diff against SystemReporter-laza.18 =============== Item was added: + ----- Method: SystemReporter>>printDebugExpressionFor:on: (in category 'private') ----- + printDebugExpressionFor: methodSignature on: aStream + | compiledMethod | + compiledMethod := Compiler evaluate: methodSignature. + aStream + nextPut: $( ; + nextPutAll: compiledMethod methodClass name ; + nextPutAll: ' selector: #' ; + nextPutAll: compiledMethod selector ; + nextPutAll: ') debug.'! Item was changed: ----- Method: SystemReporter>>reportTestRunner: (in category 'reporting') ----- + reportTestRunner: aStream + testRunner ifNil: + [ | runAllTests | - reportTestRunner: aStream - testRunner ifNil: [| runAllTests | runAllTests := UIManager confirm: 'Running all Tests\will take long time' withCRs. runAllTests + ifTrue: [ testRunner := TestRunner new runAll ] + ifFalse: + [ categoriesSelected remove: #SUnit. + ^ self changed: #categorySelected ] ]. + self + header: 'SUnit Results' + on: aStream. + aStream nextPutAll: testRunner statusText ; cr ; cr. + self + header: 'Failed Tests' + on: aStream. + testRunner failedList do: + [ : each | self + printDebugExpressionFor: each + on: aStream. + aStream cr ]. - ifTrue: [testRunner := TestRunner new runAll] - ifFalse: [ - categoriesSelected remove: #SUnit. - ^self changed: #categorySelected]]. - self header: 'SUnit Results' on: aStream. - aStream nextPutAll: testRunner statusText; cr; cr. - self header: 'Failed Tests' on: aStream. - testRunner failedList do: [:each | aStream nextPutAll: each; cr]. aStream cr. + self + header: 'Errors' + on: aStream. + testRunner errorList do: + [ : each | self + printDebugExpressionFor: each + on: aStream. + aStream cr ]! - self header: 'Errors' on: aStream. - testRunner errorList do: [:each | aStream nextPutAll: each; cr] - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2012