Packages February 2010

packages@lists.squeakfoundation.org

2 participants
1083 discussions

The Trunk: CollectionsTests-ar.138.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.138.mcz ==================== Summary ==================== Name: CollectionsTests-ar.138 Author: ar Time: 2 February 2010, 1:07:16.819 am UUID: 5f83525f-df0c-5d4a-a7b0-c0a1ede3c8f3 Ancestors: CollectionsTests-ar.137 Remove unnecessary use of traits in ReadStreamTest. Makes it possible to load CollectionTests into images w/o traits support. =============== Diff against CollectionsTests-ar.137 =============== Item was added: + ----- Method: ReadStreamTest>>testUpTo (in category 'tests - accessing') ----- + testUpTo + | returnValue stream | + returnValue := (self emptyStream upTo: nil). + self assert: returnValue isCollection. + self assert: returnValue isEmpty. + + stream := self streamOnArray. + returnValue := stream upTo: #(a b c). + self assert: returnValue = #(1). + self assert: stream peek = false. + + stream := self streamOnArray. + returnValue := stream upTo: true. + self assert: returnValue = #(1 #(a b c) false). + self assert: stream atEnd.! Item was added: + ----- Method: ReadStreamTest>>testReset (in category 'tests - positioning') ----- + testReset + | stream | + + stream := self emptyStream. + stream reset. + self assert: stream position = 0. + + stream := self streamOnArray. + stream reset. + self assert: stream position = 0. + self deny: stream atEnd. + stream position: 3. + self assert: stream atEnd. + stream reset. + self assert: stream position = 0.! Item was added: + ----- Method: ReadStreamTest>>testBackUpToEmptyPattern1 (in category 'tests - positioning') ----- + testBackUpToEmptyPattern1 + "This test represents the current behavior which is not clearly defined and could be revised." + |stream| + stream := ReadStream on: 'abcdabg'. + stream setToEnd. + self should: [stream backUpTo: ''] raise: Error.! Item was added: + ----- Method: ReadStreamTest>>testBackUpTo1 (in category 'tests - positioning') ----- + testBackUpTo1 + |stream| + stream := ReadStream on: 'abcdabg'. + stream setToEnd. + self assert: (stream backUpTo: 'ab'). + self assert: stream peek = $g! Item was added: + ----- Method: ReadStreamTest>>testPeek2 (in category 'tests - accessing') ----- + testPeek2 + | stream | + stream := self streamOn: #(nil nil nil). + + self assert: stream peek isNil. + stream next. + self assert: stream peek isNil. + stream next. + self assert: stream peek isNil. + stream next. + + "Yes, #peek answers nil when there is no more element to read." + self assert: stream peek isNil.! Item was added: + ----- Method: ReadStreamTest>>testNext (in category 'tests - accessing') ----- + testNext + |stream| + + stream := self streamOnArray. + self assert: stream next = 1. + self assert: stream next = #(a b c). + self assert: stream next = false. + + stream := self streamOnString. + self assert: stream next = $a. + self assert: stream next = $b. + self assert: stream next = $c. + self assert: stream next = $d. + self assert: stream next = $e. + ! Item was added: + ----- Method: ReadStreamTest>>testNextMatchFor (in category 'tests - testing') ----- + testNextMatchFor + | stream | + stream := self streamOnArray. + self assert: (stream nextMatchFor: 1). + self assert: (stream nextMatchFor: #(a b c)). + self assert: (stream nextMatchFor: false). + + stream := self streamOnArray. + self deny: (stream nextMatchFor: false). + self assert: (stream nextMatchFor: #(a b c)). + self assert: (stream nextMatchFor: false). + ! Item was added: + ----- Method: ReadStreamTest>>testDo (in category 'tests - enumerating') ----- + testDo + self emptyStream do: [:value | self fail]! Item was added: + ----- Method: ReadStreamTest>>streamOn: (in category 'helpers') ----- + streamOn: aCollection + ^ self classUnderTest on: aCollection! Item was added: + ----- Method: ReadStreamTest>>testDo2 (in category 'tests - enumerating') ----- + testDo2 + | stream string | + stream := self streamOnArray. + string := String new. + + stream do: [:value | string := string, ' ', value asString]. + + self assert: string = (' ', 1 asString, ' ', #(a b c) asString, ' ', false asString)! Item was added: + ----- Method: ReadStreamTest>>testSkipTo (in category 'tests - positionning') ----- + testSkipTo + | stream | + stream := self emptyStream. + self deny: (stream skipTo: nil). + + stream := self streamOnArray. + self deny: stream atEnd. + self deny: (stream skipTo: nil). + self assert: stream atEnd. + + stream := self streamOnArray. + self assert: stream peek = 1. + self assert: (stream skipTo: #(a b c)). + self assert: stream peek = false. + self assert: (stream skipTo: false). + self assert: stream atEnd.! Item was added: + ----- Method: ReadStreamTest>>testPosition (in category 'tests - positioning') ----- + testPosition + | stream | + self assert: self emptyStream position isZero. + + stream := self streamOnArray. + self assert: stream position = 0. + stream next. + self assert: stream position = 1. + stream next. + self assert: stream position = 2. + stream next. + self assert: stream position = 3. + stream next. + self assert: stream position = 3. + stream next. + self assert: stream position = 3.! Item was added: + ----- Method: ReadStreamTest>>testOldBack (in category 'tests - back') ----- + testOldBack + "Test the old behavior of the method back. The method #oldBack is a misconception about what a stream is. A stream contains a pointer *between* elements with past and future elements. The method #oldBack considers that the pointer is *on* an element. (Damien Cassou - 1 August 2007)" + |stream| + stream := self streamOn: 'abc'. + stream next: 2. + self assert: stream oldBack = $a.! Item was added: + ----- Method: ReadStreamTest>>testContents (in category 'tests - accessing') ----- + testContents + | stream | + self assert: self emptyStream contents = ''. + + stream := self streamOnArray. + self assert: stream contents = #(1 #(a b c) false). + stream position: 3. + self assert: stream contents = #(1 #(a b c) false). + + stream := self streamOnString. + self assert: stream contents = 'abcde'. + stream setToEnd. + self assert: stream contents = 'abcde'.! Item was added: + ----- Method: ReadStreamTest>>testNexts2 (in category 'tests - accessing') ----- + testNexts2 + + | stream | + stream := self streamOnArray. + self assert: (stream next: 2) = #(1 #(a b c)). + self assert: (stream next: 1) = #(false).! Item was added: + ----- Method: ReadStreamTest>>testOldBackOnPosition1 (in category 'tests - back') ----- + testOldBackOnPosition1 + "Test the old behavior of the method back. The method #oldBack is a misconception about what a stream is. A stream contains a pointer *between* elements with past and future elements. The method #oldBack considers that the pointer is *on* an element. (Damien Cassou - 1 August 2007)" + |stream| + stream := self streamOn: 'abc'. + stream next. + self assert: stream oldBack = nil.! Item was added: + ----- Method: ReadStreamTest>>testNexts (in category 'tests - accessing') ----- + testNexts + self assert: (self emptyStream next: 0) isEmpty. + self assert: (self streamOnArray next: 0) isEmpty. + self assert: (self streamOnArray next: 1) = #(1). + self assert: (self streamOnArray next: 2) = #(1 #(a b c)). + self assert: (self streamOnArray next: 3) = #(1 #(a b c) false).! Item was changed: + ClassTestCase subclass: #ReadStreamTest - TestCase subclass: #ReadStreamTest - uses: TReadStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CollectionsTests-Streams'! !ReadStreamTest commentStamp: 'tlk 12/5/2004 14:36' prior: 0! I am an SUnit test for ReadStream. I have no test fixtures.! - ReadStreamTest class - uses: TReadStreamTest classTrait - instanceVariableNames: ''! Item was added: + ----- Method: ReadStreamTest>>testSetToEnd (in category 'tests - positioning') ----- + testSetToEnd + | stream | + + stream := self emptyStream. + stream setToEnd. + self assert: stream atEnd. + + stream := self streamOnArray. + stream setToEnd. + self assert: stream atEnd. + stream position: 1. + self deny: stream atEnd. + stream setToEnd. + self assert: stream atEnd.! Item was added: + ----- Method: ReadStreamTest>>testSetPosition (in category 'tests - positioning') ----- + testSetPosition + | stream | + + stream := self emptyStream. + self should: [stream position: -2] raise: Error. + self shouldnt: [stream position: 0] raise: Error. + + stream := self streamOnArray. + self should: [stream position: -1] raise: Error. + self shouldnt: [stream position: 0] raise: Error. + self shouldnt: [stream position: 1] raise: Error. + self shouldnt: [stream position: 2] raise: Error. + + "According to ANSI Smalltalk Standard 1.9 Draft, the following should be tested too: + self should: [stream position: 3] raise: Error. + + However, I don't see the point of raising an error when positioning at the end. + + I prefer testing the absence of error: + " + self shouldnt: [stream position: 3] raise: Error. + self should: [stream position: 4] raise: Error.! Item was added: + ----- Method: ReadStreamTest>>testSkipTo2 (in category 'tests - positionning') ----- + testSkipTo2 + | stream | + + stream := self streamOnString. + self assert: (stream skipTo: $b). + self assert: stream peek = $c. + self assert: (stream skipTo: $d). + self assert: stream peek = $e. + self assert: (stream skipTo: $e). + self assert: stream atEnd.! Item was added: + ----- Method: ReadStreamTest>>testBackOnPosition1 (in category 'tests - back') ----- + testBackOnPosition1 + "Test the new implemtation of the method back." + |stream| + stream := self streamOn: 'abc'. + stream next. + self assert: stream back = $a.! Item was added: + ----- Method: ReadStreamTest>>testAtEnd (in category 'tests - testing') ----- + testAtEnd + | stream | + self assert: self emptyStream atEnd. + + stream := self streamOnArray. + self deny: stream atEnd. + stream next: 3. + self assert: stream atEnd.! Item was added: + ----- Method: ReadStreamTest>>testNew (in category 'tests - instance creation') ----- + testNew + self should: [self classUnderTest new] raise: Error.! Item was added: + ----- Method: ReadStreamTest>>testBack (in category 'tests - back') ----- + testBack + "Test the new implemtation of the method back." + |stream| + stream := self streamOn: 'abc'. + stream next: 2. + self assert: stream back = $b.! Item was added: + ----- Method: ReadStreamTest>>testOn (in category 'tests - instance creation') ----- + testOn + self shouldnt: [self streamOn: ' '] raise: Error. + self assert: (self streamOn: ' ') position isZero.! Item was added: + ----- Method: ReadStreamTest>>testBackUpToPatternNotFound1 (in category 'tests - positioning') ----- + testBackUpToPatternNotFound1 + |stream| + stream := ReadStream on: 'abcdabg'. + stream setToEnd. + self deny: (stream backUpTo: 'zz'). + self assert: stream position = 0! Item was added: + ----- Method: ReadStreamTest>>testUpTo2 (in category 'tests - accessing') ----- + testUpTo2 + | returnValue stream | + + stream := self streamOnString. + returnValue := stream upTo: $d. + self assert: returnValue = 'abc'. + self assert: stream peek = $e.! Item was added: + ----- Method: ReadStreamTest>>testPeekFor2 (in category 'tests - testing') ----- + testPeekFor2 + | stream negative number | + + stream := self streamOn: '- 145'. + negative := stream peekFor: $-. + stream peekFor: Character space. + number := stream next: 3. + self assert: negative. + self assert: number = '145'. + + stream := self streamOn: '-145'. + negative := stream peekFor: $-. + stream peekFor: Character space. + number := stream next: 3. + self assert: negative. + self assert: number = '145'. + + stream := self streamOn: ' 145'. + negative := stream peekFor: $-. + stream peekFor: Character space. + number := stream next: 3. + self deny: negative. + self assert: number = '145'. + + stream := self streamOn: '145'. + negative := stream peekFor: $-. + stream peekFor: Character space. + number := stream next: 3. + self deny: negative. + self assert: number = '145'.! Item was added: + ----- Method: ReadStreamTest>>testContents2 (in category 'tests - accessing') ----- + testContents2 + "From ANSI Smalltalk Standard draft 1.9: + + it is unspecified whether or not the returned collection [using #contents] is the same object as the backing store collection. However, if the returned collection is not the same object as the stream backing store collection then the class of the returned collection is the same class as would be returned if the message #select: was sent to the backing store collection." + + "In Squeak, there is #species to know what class should be used on copy, selection..." + | interval stream streamContents | + interval := 1 to: 32. + stream := self streamOn: interval. + streamContents := stream contents. + + (streamContents == interval) + ifFalse: [self assert: streamContents class = Interval new species]! Item was added: + ----- Method: ReadStreamTest>>testPeek (in category 'tests - accessing') ----- + testPeek + | stream | + stream := self streamOnArray. + + self assert: stream peek = 1. + self deny: stream peek = #(a b c). + self deny: stream peek = false. + + stream next. + + self deny: stream peek = 1. + self assert: stream peek = #(a b c). + self deny: stream peek = false. + + stream next. + + self deny: stream peek = 1. + self deny: stream peek = #(a b c). + self assert: stream peek = false. + + stream next. + + "In ANSI Smalltalk Standard Draft, it is said that nil will return nil at the end when using #peek." + self assert: stream peek isNil.! Item was added: + ----- Method: ReadStreamTest>>testPeekFor (in category 'tests - testing') ----- + testPeekFor + | stream | + + stream := self streamOnArray. + self assert: (stream peekFor: 1). + self assert: (stream peekFor: #(a b c)). + self assert: (stream peekFor: false). + + stream := self streamOnArray. + self deny: (stream peekFor: #(a b c)). + self deny: (stream peekFor: false). + self assert: (stream peekFor: 1). + + self deny: (stream peekFor: 1). + self deny: (stream peekFor: false). + self assert: (stream peekFor: #(a b c)). + + self deny: (stream peekFor: 1). + self deny: (stream peekFor: #(a b c)). + self assert: (stream peekFor: false). + + self assert: (stream atEnd). + self deny: (stream peekFor: nil). + self deny: (stream peekFor: 1). + self deny: (stream peekFor: #(a b c)). + self deny: (stream peekFor: false).! Item was removed: - ----- Method: TGettableStreamTest>>testPeek (in category 'tests - accessing') ----- - testPeek - | stream | - stream := self streamOnArray. - - self assert: stream peek = 1. - self deny: stream peek = #(a b c). - self deny: stream peek = false. - - stream next. - - self deny: stream peek = 1. - self assert: stream peek = #(a b c). - self deny: stream peek = false. - - stream next. - - self deny: stream peek = 1. - self deny: stream peek = #(a b c). - self assert: stream peek = false. - - stream next. - - "In ANSI Smalltalk Standard Draft, it is said that nil will return nil at the end when using #peek." - self assert: stream peek isNil.! Item was removed: - ----- Method: TGettableStreamTest>>testPeekFor (in category 'tests - testing') ----- - testPeekFor - | stream | - - stream := self streamOnArray. - self assert: (stream peekFor: 1). - self assert: (stream peekFor: #(a b c)). - self assert: (stream peekFor: false). - - stream := self streamOnArray. - self deny: (stream peekFor: #(a b c)). - self deny: (stream peekFor: false). - self assert: (stream peekFor: 1). - - self deny: (stream peekFor: 1). - self deny: (stream peekFor: false). - self assert: (stream peekFor: #(a b c)). - - self deny: (stream peekFor: 1). - self deny: (stream peekFor: #(a b c)). - self assert: (stream peekFor: false). - - self assert: (stream atEnd). - self deny: (stream peekFor: nil). - self deny: (stream peekFor: 1). - self deny: (stream peekFor: #(a b c)). - self deny: (stream peekFor: false).! Item was removed: - ----- Method: TGettableStreamTest>>testUpTo (in category 'tests - accessing') ----- - testUpTo - | returnValue stream | - returnValue := (self emptyStream upTo: nil). - self assert: returnValue isCollection. - self assert: returnValue isEmpty. - - stream := self streamOnArray. - returnValue := stream upTo: #(a b c). - self assert: returnValue = #(1). - self assert: stream peek = false. - - stream := self streamOnArray. - returnValue := stream upTo: true. - self assert: returnValue = #(1 #(a b c) false). - self assert: stream atEnd.! Item was removed: - ----- Method: TStreamTest>>classUnderTest (in category 'accessing') ----- - classUnderTest - self explicitRequirement! Item was removed: - Trait named: #TReadStreamTest - uses: TGettableStreamTest + TSequencedStreamTest - category: 'CollectionsTests-Streams'! Item was removed: - TReadStreamTest classTrait - uses: TGettableStreamTest classTrait + TSequencedStreamTest classTrait! Item was removed: - Trait named: #TGettableStreamTest - uses: TStreamTest - category: 'CollectionsTests-Streams'! Item was removed: - ----- Method: TStreamTest>>emptyStream (in category 'accessing - defaults') ----- - emptyStream - ^ self streamOn: String new! Item was removed: - ----- Method: TPuttableStreamTest>>testNextPutAllReplacing (in category 'tests - accessing') ----- - testNextPutAllReplacing - | stream | - stream := self streamOnString. - stream reset. - self shouldnt: [ - stream - nextPutAll: 'abc'. - ] raise: Error.! Item was removed: - ----- Method: TReadStreamTest>>testNew (in category 'tests - instance creation') ----- - testNew - self should: [self classUnderTest new] raise: Error.! Item was removed: - ----- Method: TGettableStreamTest>>testPeek2 (in category 'tests - accessing') ----- - testPeek2 - | stream | - stream := self streamOn: #(nil nil nil). - - self assert: stream peek isNil. - stream next. - self assert: stream peek isNil. - stream next. - self assert: stream peek isNil. - stream next. - - "Yes, #peek answers nil when there is no more element to read." - self assert: stream peek isNil.! Item was removed: - ----- Method: TGettableStreamTest>>testNext (in category 'tests - accessing') ----- - testNext - |stream| - - stream := self streamOnArray. - self assert: stream next = 1. - self assert: stream next = #(a b c). - self assert: stream next = false. - - stream := self streamOnString. - self assert: stream next = $a. - self assert: stream next = $b. - self assert: stream next = $c. - self assert: stream next = $d. - self assert: stream next = $e. - ! Item was removed: - ----- Method: TGettableStreamTest>>testNextMatchFor (in category 'tests - testing') ----- - testNextMatchFor - | stream | - stream := self streamOnArray. - self assert: (stream nextMatchFor: 1). - self assert: (stream nextMatchFor: #(a b c)). - self assert: (stream nextMatchFor: false). - - stream := self streamOnArray. - self deny: (stream nextMatchFor: false). - self assert: (stream nextMatchFor: #(a b c)). - self assert: (stream nextMatchFor: false). - ! Item was removed: - Trait named: #TWriteStreamTest - uses: TPuttableStreamTest + TSequencedStreamTest - category: 'CollectionsTests-Streams'! Item was removed: - ----- Method: TReadStreamTest>>testOn (in category 'tests - instance creation') ----- - testOn - self shouldnt: [self streamOn: ' '] raise: Error. - self assert: (self streamOn: ' ') position isZero.! Item was removed: - ----- Method: TGettableStreamTest>>testOldBack (in category 'tests - back') ----- - testOldBack - "Test the old behavior of the method back. The method #oldBack is a misconception about what a stream is. A stream contains a pointer *between* elements with past and future elements. The method #oldBack considers that the pointer is *on* an element. (Damien Cassou - 1 August 2007)" - |stream| - stream := self streamOn: 'abc'. - stream next: 2. - self assert: stream oldBack = $a.! Item was removed: - ----- Method: TGettableStreamTest>>testDo (in category 'tests - enumerating') ----- - testDo - self emptyStream do: [:value | self fail]! Item was removed: - ----- Method: TPuttableStreamTest>>testNextPutAllAppending (in category 'tests - accessing') ----- - testNextPutAllAppending - | stream | - stream := self emptyStream. - self shouldnt: [ - stream - nextPutAll: 'abc'. - ] raise: Error.! Item was removed: - ----- Method: TSequencedStreamTest>>testBackUpToPatternNotFound1 (in category 'tests - positioning') ----- - testBackUpToPatternNotFound1 - |stream| - stream := ReadStream on: 'abcdabg'. - stream setToEnd. - self deny: (stream backUpTo: 'zz'). - self assert: stream position = 0! Item was removed: - ----- Method: TGettableStreamTest>>testDo2 (in category 'tests - enumerating') ----- - testDo2 - | stream string | - stream := self streamOnArray. - string := String new. - - stream do: [:value | string := string, ' ', value asString]. - - self assert: string = (' ', 1 asString, ' ', #(a b c) asString, ' ', false asString)! Item was removed: - ----- Method: TReadStreamTest>>testContents2 (in category 'tests - accessing') ----- - testContents2 - "From ANSI Smalltalk Standard draft 1.9: - - it is unspecified whether or not the returned collection [using #contents] is the same object as the backing store collection. However, if the returned collection is not the same object as the stream backing store collection then the class of the returned collection is the same class as would be returned if the message #select: was sent to the backing store collection." - - "In Squeak, there is #species to know what class should be used on copy, selection..." - | interval stream streamContents | - interval := 1 to: 32. - stream := self streamOn: interval. - streamContents := stream contents. - - (streamContents == interval) - ifFalse: [self assert: streamContents class = Interval new species]! Item was removed: - ----- Method: TGettableStreamTest>>testSkipTo (in category 'tests - positionning') ----- - testSkipTo - | stream | - stream := self emptyStream. - self deny: (stream skipTo: nil). - - stream := self streamOnArray. - self deny: stream atEnd. - self deny: (stream skipTo: nil). - self assert: stream atEnd. - - stream := self streamOnArray. - self assert: stream peek = 1. - self assert: (stream skipTo: #(a b c)). - self assert: stream peek = false. - self assert: (stream skipTo: false). - self assert: stream atEnd.! Item was removed: - TGettableStreamTest classTrait - uses: TStreamTest classTrait! Item was removed: - ----- Method: TGettableStreamTest>>testNexts2 (in category 'tests - accessing') ----- - testNexts2 - - | stream | - stream := self streamOnArray. - self assert: (stream next: 2) = #(1 #(a b c)). - self assert: (stream next: 1) = #(false).! Item was removed: - ----- Method: TGettableStreamTest>>testOldBackOnPosition1 (in category 'tests - back') ----- - testOldBackOnPosition1 - "Test the old behavior of the method back. The method #oldBack is a misconception about what a stream is. A stream contains a pointer *between* elements with past and future elements. The method #oldBack considers that the pointer is *on* an element. (Damien Cassou - 1 August 2007)" - |stream| - stream := self streamOn: 'abc'. - stream next. - self assert: stream oldBack = nil.! Item was removed: - ----- Method: TGettableStreamTest>>testNexts (in category 'tests - accessing') ----- - testNexts - self assert: (self emptyStream next: 0) isEmpty. - self assert: (self streamOnArray next: 0) isEmpty. - self assert: (self streamOnArray next: 1) = #(1). - self assert: (self streamOnArray next: 2) = #(1 #(a b c)). - self assert: (self streamOnArray next: 3) = #(1 #(a b c) false).! Item was removed: - ----- Method: TStreamTest>>streamOnString (in category 'accessing - defaults') ----- - streamOnString - ^ self streamOn: 'abcde'! Item was removed: - ----- Method: TSequencedStreamTest>>testBackUpToEmptyPattern1 (in category 'tests - positioning') ----- - testBackUpToEmptyPattern1 - "This test represents the current behavior which is not clearly defined and could be revised." - |stream| - stream := ReadStream on: 'abcdabg'. - stream setToEnd. - self should: [stream backUpTo: ''] raise: Error.! Item was removed: - TPuttableStreamTest classTrait - uses: TStreamTest classTrait! Item was removed: - ----- Method: TStreamTest>>streamOn: (in category 'helpers') ----- - streamOn: aCollection - ^ self classUnderTest on: aCollection! Item was removed: - ----- Method: TStreamTest>>streamOnArray (in category 'accessing - defaults') ----- - streamOnArray - ^ self streamOn: (Array with: 1 with: #(a b c) with: false)! Item was removed: - ----- Method: TSequencedStreamTest>>testReset (in category 'tests - positioning') ----- - testReset - | stream | - - stream := self emptyStream. - stream reset. - self assert: stream position = 0. - - stream := self streamOnArray. - stream reset. - self assert: stream position = 0. - self deny: stream atEnd. - stream position: 3. - self assert: stream atEnd. - stream reset. - self assert: stream position = 0.! Item was removed: - ----- Method: TGettableStreamTest>>testSkipTo2 (in category 'tests - positionning') ----- - testSkipTo2 - | stream | - - stream := self streamOnString. - self assert: (stream skipTo: $b). - self assert: stream peek = $c. - self assert: (stream skipTo: $d). - self assert: stream peek = $e. - self assert: (stream skipTo: $e). - self assert: stream atEnd.! Item was removed: - TSequencedStreamTest classTrait - uses: TStreamTest classTrait! Item was removed: - TWriteStreamTest classTrait - uses: TSequencedStreamTest classTrait + TPuttableStreamTest classTrait! Item was removed: - ----- Method: TPuttableStreamTest>>testNextPutReplacing (in category 'tests - accessing') ----- - testNextPutReplacing - | stream | - stream := self streamOnArray. - stream reset. - self shouldnt: [ - stream - nextPut: $a; - nextPut: $b; - nextPut: $c. - ] raise: Error.! Item was removed: - ----- Method: TGettableStreamTest>>testBackOnPosition1 (in category 'tests - back') ----- - testBackOnPosition1 - "Test the new implemtation of the method back." - |stream| - stream := self streamOn: 'abc'. - stream next. - self assert: stream back = $a.! Item was removed: - ----- Method: TSequencedStreamTest>>testBackUpTo1 (in category 'tests - positioning') ----- - testBackUpTo1 - |stream| - stream := ReadStream on: 'abcdabg'. - stream setToEnd. - self assert: (stream backUpTo: 'ab'). - self assert: stream peek = $g! Item was removed: - ----- Method: TGettableStreamTest>>testAtEnd (in category 'tests - testing') ----- - testAtEnd - | stream | - self assert: self emptyStream atEnd. - - stream := self streamOnArray. - self deny: stream atEnd. - stream next: 3. - self assert: stream atEnd.! Item was removed: - ----- Method: TReadStreamTest>>testPosition (in category 'tests - positioning') ----- - testPosition - | stream | - self assert: self emptyStream position isZero. - - stream := self streamOnArray. - self assert: stream position = 0. - stream next. - self assert: stream position = 1. - stream next. - self assert: stream position = 2. - stream next. - self assert: stream position = 3. - stream next. - self assert: stream position = 3. - stream next. - self assert: stream position = 3.! Item was removed: - Trait named: #TStreamTest - uses: {} - category: 'CollectionsTests-Streams'! Item was removed: - ----- Method: TSequencedStreamTest>>testContents (in category 'tests - accessing') ----- - testContents - | stream | - self assert: self emptyStream contents = ''. - - stream := self streamOnArray. - self assert: stream contents = #(1 #(a b c) false). - stream position: 3. - self assert: stream contents = #(1 #(a b c) false). - - stream := self streamOnString. - self assert: stream contents = 'abcde'. - stream setToEnd. - self assert: stream contents = 'abcde'.! Item was removed: - ----- Method: TGettableStreamTest>>testBack (in category 'tests - back') ----- - testBack - "Test the new implemtation of the method back." - |stream| - stream := self streamOn: 'abc'. - stream next: 2. - self assert: stream back = $b.! Item was removed: - Trait named: #TPuttableStreamTest - uses: TStreamTest - category: 'CollectionsTests-Streams'! Item was removed: - ----- Method: TPuttableStreamTest>>testNextPutAppending (in category 'tests - accessing') ----- - testNextPutAppending - | stream | - stream := self emptyStream. - self shouldnt: [ - stream - nextPut: $a; - nextPut: $b; - nextPut: $c. - ] raise: Error.! Item was removed: - ----- Method: TSequencedStreamTest>>testSetToEnd (in category 'tests - positioning') ----- - testSetToEnd - | stream | - - stream := self emptyStream. - stream setToEnd. - self assert: stream atEnd. - - stream := self streamOnArray. - stream setToEnd. - self assert: stream atEnd. - stream position: 1. - self deny: stream atEnd. - stream setToEnd. - self assert: stream atEnd.! Item was removed: - ----- Method: TSequencedStreamTest>>testSetPosition (in category 'tests - positioning') ----- - testSetPosition - | stream | - - stream := self emptyStream. - self should: [stream position: -2] raise: Error. - self shouldnt: [stream position: 0] raise: Error. - - stream := self streamOnArray. - self should: [stream position: -1] raise: Error. - self shouldnt: [stream position: 0] raise: Error. - self shouldnt: [stream position: 1] raise: Error. - self shouldnt: [stream position: 2] raise: Error. - - "According to ANSI Smalltalk Standard 1.9 Draft, the following should be tested too: - self should: [stream position: 3] raise: Error. - - However, I don't see the point of raising an error when positioning at the end. - - I prefer testing the absence of error: - " - self shouldnt: [stream position: 3] raise: Error. - self should: [stream position: 4] raise: Error.! Item was removed: - Trait named: #TSequencedStreamTest - uses: TStreamTest - category: 'CollectionsTests-Streams'! Item was removed: - ----- Method: TGettableStreamTest>>testUpTo2 (in category 'tests - accessing') ----- - testUpTo2 - | returnValue stream | - - stream := self streamOnString. - returnValue := stream upTo: $d. - self assert: returnValue = 'abc'. - self assert: stream peek = $e.! Item was removed: - ----- Method: TGettableStreamTest>>testPeekFor2 (in category 'tests - testing') ----- - testPeekFor2 - | stream negative number | - - stream := self streamOn: '- 145'. - negative := stream peekFor: $-. - stream peekFor: Character space. - number := stream next: 3. - self assert: negative. - self assert: number = '145'. - - stream := self streamOn: '-145'. - negative := stream peekFor: $-. - stream peekFor: Character space. - number := stream next: 3. - self assert: negative. - self assert: number = '145'. - - stream := self streamOn: ' 145'. - negative := stream peekFor: $-. - stream peekFor: Character space. - number := stream next: 3. - self deny: negative. - self assert: number = '145'. - - stream := self streamOn: '145'. - negative := stream peekFor: $-. - stream peekFor: Character space. - number := stream next: 3. - self deny: negative. - self assert: number = '145'.!

1 0

The Trunk: CollectionsTests-ar.137.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.137.mcz ==================== Summary ==================== Name: CollectionsTests-ar.137 Author: ar Time: 1 February 2010, 9:44:54.528 pm UUID: 22c99a94-361b-f54f-83f8-4fcf0d126d36 Ancestors: CollectionsTests-ar.136 Fixes a typo in SetWithNilTest. =============== Diff against CollectionsTests-ar.136 =============== Item was changed: ----- Method: SetWithNilTest>>runSetWithNilTestOf: (in category 'tests') ----- runSetWithNilTestOf: newSet "Run the common tests for the given set class" self shouldnt:[newSet value add: nil] raise: Error. self shouldnt:[newSet value addAll: #(nil nil nil)] raise: Error. self assert: (newSet value add: nil; yourself) size = 1. self assert: (newSet value addAll: #(nil nil nil); yourself) size = 1. self assert: ((newSet value add: nil; yourself) includes: nil). self assert: ((newSet value addAll: #(nil nil nil); yourself) includes: nil). self assert: (newSet value add: nil; yourself) anyOne = nil. self assert: ((newSet value add: nil; yourself) remove: nil) == nil. self assert: ((newSet value add: nil; yourself) remove: nil; yourself) isEmpty. self assert: (newSet value addAll: #(1 nil foo); yourself) size = 3. self assert: ((newSet value addAll: #(1 nil foo); yourself) remove: nil; yourself) size = 2. + self assert: ((newSet value add: nil; yourself) collect:[:x| x]) = (newSet value add: nil; yourself). - self assert: ((newSet value add: nil; yourself) collect:[:x| x]) = (PluggableSet with: nil). self assert: ((newSet value add: nil; yourself) collect:[:x| x] as: Array) = #(nil). self deny: ((newSet value) includes: nil). self deny: ((newSet value add: 3; yourself) includes: nil). self deny: ((newSet value add: 3; remove: 3; yourself) includes: nil). !

1 0

The Trunk: CollectionsTests-ar.137.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

The Trunk: CollectionsTests-ar.137.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

The Trunk: CollectionsTests-ar.136.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.136.mcz ==================== Summary ==================== Name: CollectionsTests-ar.136 Author: ar Time: 1 February 2010, 9:40:49.176 pm UUID: 61a558f8-21ec-514b-a5e1-9746868ed130 Ancestors: CollectionsTests-ar.135 More tests, including KeyedSet and WeakSet. =============== Diff against CollectionsTests-ar.135 =============== Item was changed: ----- Method: SetWithNilTest>>testIdentitySetWithNil (in category 'tests') ----- testIdentitySetWithNil + self runSetWithNilTestOf: [IdentitySet new]! - self shouldnt:[IdentitySet with: nil] raise: Error. - self shouldnt:[IdentitySet withAll: #(nil nil nil)] raise: Error. - - self assert: (IdentitySet with: nil) size = 1. - self assert: (IdentitySet withAll: #(nil nil nil)) size = 1. - - self assert: (IdentitySet with: nil) anyOne = nil. - self assert: ((IdentitySet with: nil) remove: nil) == nil. - self assert: ((IdentitySet with: nil) remove: nil; yourself) isEmpty. - - self assert: (IdentitySet withAll: #(1 nil foo)) size = 3. - self assert: ((IdentitySet withAll: #(1 nil foo)) remove: nil; yourself) size = 2. - - self assert: ((IdentitySet with: nil) collect:[:x| x]) = (IdentitySet with: nil). - self assert: ((IdentitySet with: nil) collect:[:x| x] as: Array) = #(nil). - ! Item was changed: ----- Method: SetWithNilTest>>testKeyedSetWithNil (in category 'tests') ----- testKeyedSetWithNil + | set | + self runSetWithNilTestOf: [KeyedSet keyBlock:[:o| o]]. + set := KeyedSet keyBlock:[:o| o]. + set add: nil. + self assert: (set at: nil) == nil. - self should:[KeyedSet with: nil] raise: Error. ! Item was changed: ----- Method: SetWithNilTest>>testWeakSetWithNil (in category 'tests') ----- testWeakSetWithNil + | set | + self runSetWithNilTestOf: [WeakSet new]. + "Ensure that GCed entries don't count" + set := WeakSet with: Object new. + Smalltalk garbageCollect. + set do:[:x| self assert: false]. "test for de facto emptyness" + self deny: (set includes: nil). + set add: nil. + self assert: (set includes: nil). + set remove: nil. + self deny: (set includes: nil).! - self should:[WeakSet with: nil] raise: Error. - ! Item was added: + ----- Method: SetWithNilTest>>testKeyedIdentitySetWithNil (in category 'tests') ----- + testKeyedIdentitySetWithNil + | set | + self runSetWithNilTestOf: [KeyedIdentitySet keyBlock:[:o| o]]. + set := KeyedIdentitySet keyBlock:[:o| o]. + set add: nil. + self assert: (set at: nil) == nil. + ! Item was changed: ----- Method: SetWithNilTest>>testSetWithNil (in category 'tests') ----- testSetWithNil + self runSetWithNilTestOf: [Set new]! - self shouldnt:[Set with: nil] raise: Error. - self shouldnt:[Set withAll: #(nil nil nil)] raise: Error. - - self assert: (Set with: nil) size = 1. - self assert: (Set withAll: #(nil nil nil)) size = 1. - - self assert: (Set with: nil) anyOne = nil. - self assert: ((Set with: nil) remove: nil) == nil. - self assert: ((Set with: nil) remove: nil; yourself) isEmpty. - - self assert: (Set withAll: #(1 nil foo)) size = 3. - self assert: ((Set withAll: #(1 nil foo)) remove: nil; yourself) size = 2. - - self assert: ((Set with: nil) collect:[:x| x]) = (Set with: nil). - self assert: ((Set with: nil) collect:[:x| x] as: Array) = #(nil). - ! Item was changed: ----- Method: SetWithNilTest>>testPluggableSetWithNil (in category 'tests') ----- testPluggableSetWithNil + self runSetWithNilTestOf: [PluggableSet new]! - self shouldnt:[PluggableSet with: nil] raise: Error. - self shouldnt:[PluggableSet withAll: #(nil nil nil)] raise: Error. - - self assert: (PluggableSet with: nil) size = 1. - self assert: (PluggableSet withAll: #(nil nil nil)) size = 1. - - self assert: (PluggableSet with: nil) anyOne = nil. - self assert: ((PluggableSet with: nil) remove: nil) == nil. - self assert: ((PluggableSet with: nil) remove: nil; yourself) isEmpty. - - self assert: (PluggableSet withAll: #(1 nil foo)) size = 3. - self assert: ((PluggableSet withAll: #(1 nil foo)) remove: nil; yourself) size = 2. - - self assert: ((PluggableSet with: nil) collect:[:x| x]) = (PluggableSet with: nil). - self assert: ((PluggableSet with: nil) collect:[:x| x] as: Array) = #(nil). - ! Item was added: + ----- Method: SetWithNilTest>>runSetWithNilTestOf: (in category 'tests') ----- + runSetWithNilTestOf: newSet + "Run the common tests for the given set class" + self shouldnt:[newSet value add: nil] raise: Error. + self shouldnt:[newSet value addAll: #(nil nil nil)] raise: Error. + + self assert: (newSet value add: nil; yourself) size = 1. + self assert: (newSet value addAll: #(nil nil nil); yourself) size = 1. + + self assert: ((newSet value add: nil; yourself) includes: nil). + self assert: ((newSet value addAll: #(nil nil nil); yourself) includes: nil). + + self assert: (newSet value add: nil; yourself) anyOne = nil. + self assert: ((newSet value add: nil; yourself) remove: nil) == nil. + self assert: ((newSet value add: nil; yourself) remove: nil; yourself) isEmpty. + + self assert: (newSet value addAll: #(1 nil foo); yourself) size = 3. + self assert: ((newSet value addAll: #(1 nil foo); yourself) remove: nil; yourself) size = 2. + + self assert: ((newSet value add: nil; yourself) collect:[:x| x]) = (PluggableSet with: nil). + self assert: ((newSet value add: nil; yourself) collect:[:x| x] as: Array) = #(nil). + + self deny: ((newSet value) includes: nil). + self deny: ((newSet value add: 3; yourself) includes: nil). + self deny: ((newSet value add: 3; remove: 3; yourself) includes: nil). + !

1 0

The Trunk: CollectionsTests-ar.136.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

The Trunk: CollectionsTests-ar.136.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

The Trunk: Collections-ar.289.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.289.mcz ==================== Summary ==================== Name: Collections-ar.289 Author: ar Time: 1 February 2010, 9:38:20.103 pm UUID: 87822d82-f84f-c743-be96-cb1c4e3c9df2 Ancestors: Collections-ar.288 Complete Set with nil support by providing proper modifications to KeyedSet and WeakSet. =============== Diff against Collections-ar.288 =============== Item was changed: ----- Method: WeakSet>>noCheckNoGrowFillFrom: (in category 'private') ----- noCheckNoGrowFillFrom: anArray "Add the elements of anArray except nils and flag to me assuming that I don't contain any of them, they are unique and I have more free space than they require." tally := 0. 1 to: anArray size do: [ :index | (anArray at: index) ifNotNil: [ :object | object == flag ifFalse: [ array + at: (self scanForEmptySlotFor: object enclosedSetElement) - at: (self scanForEmptySlotFor: object) put: object. tally := tally + 1 ] ] ]! Item was changed: ----- Method: KeyedIdentitySet>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject scaledIdentityHash \\ array size + 1. [ | element | + ((element := array at: index) == nil or: [ (keyBlock value: element enclosedSetElement) == anObject ]) - ((element := array at: index) == nil or: [ (keyBlock value: element) == anObject ]) ifTrue: [ ^index ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was changed: ----- Method: KeyedSet>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject hash \\ array size + 1. [ | element | + ((element := array at: index) == nil or: [ (keyBlock value: element enclosedSetElement) = anObject ]) - ((element := array at: index) == nil or: [ (keyBlock value: element) = anObject ]) ifTrue: [ ^index ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was changed: ----- Method: KeyedSet>>member: (in category 'adding') ----- member: newObject "Include newObject as one of the receiver's elements, if already exists just return it" | index | - newObject ifNil: [self error: 'Sets cannot meaningfully contain nil as an element']. index := self scanFor: (keyBlock value: newObject). + (array at: index) ifNotNil: [ :element | ^element enclosedSetElement]. + self atNewIndex: index put: newObject asSetElement. - (array at: index) ifNotNil: [ :element | ^element ]. - self atNewIndex: index put: newObject. ^ newObject! Item was changed: ----- Method: WeakSet>>add: (in category 'adding') ----- add: newObject "Include newObject as one of the receiver's elements, but only if not already present. Answer newObject" | index element | - newObject ifNil: [self error: 'Sets cannot meaningfully contain nil as an element']. index := self scanFor: newObject. ((element := array at: index) == flag or: [ element == nil ]) + ifTrue: [self atNewIndex: index put: newObject asSetElement]. - ifTrue: [self atNewIndex: index put: newObject]. ^newObject! Item was changed: ----- Method: KeyedSet>>noCheckAdd: (in category 'private') ----- noCheckAdd: anObject self deprecated: 'This method should not be used anymore.'. + array at: (self scanFor: (keyBlock value: anObject)) put: anObject asSetElement. - array at: (self scanFor: (keyBlock value: anObject)) put: anObject. tally := tally + 1! Item was changed: ----- Method: WeakSet>>fixCollisionsFrom: (in category 'private') ----- fixCollisionsFrom: start "The element at start has been removed and replaced by flag. This method moves forward from there, relocating any entries that had been placed below due to collisions with this one." | element index | index := start. [ (element := array at: (index := index \\ array size + 1)) == flag ] whileFalse: [ | newIndex | + (newIndex := self scanFor: element enclosedSetElement) = index ifFalse: [ - (newIndex := self scanFor: element) = index ifFalse: [ array swap: index with: newIndex ] ] ! Item was changed: ----- Method: KeyedSet>>at:ifAbsent: (in category 'accessing') ----- at: key ifAbsent: aBlock "Answer the value associated with the key or, if key isn't found, answer the result of evaluating aBlock." + ^(array at: (self scanFor: key)) ifNil: [ aBlock value ] ifNotNil:[:obj| obj enclosedSetElement]! - ^(array at: (self scanFor: key)) ifNil: [ aBlock value ]! Item was changed: ----- Method: WeakSet>>scanForLoadedSymbol: (in category 'private') ----- scanForLoadedSymbol: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or zero if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements" | element start finish | start := (anObject hash \\ array size) + 1. finish := array size. "Search from (hash mod size) to the end." start to: finish do: + [:index | ((element := array at: index) == flag or: [element enclosedSetElement asString = anObject asString]) - [:index | ((element := array at: index) == flag or: [element asString = anObject asString]) ifTrue: [^ index ]]. "Search from 1 to where we started." 1 to: start-1 do: + [:index | ((element := array at: index) == flag or: [element enclosedSetElement asString = anObject asString]) - [:index | ((element := array at: index) == flag or: [element asString = anObject asString]) ifTrue: [^ index ]]. ^ 0 "No match AND no empty slot"! Item was changed: ----- Method: WeakSet>>do:after: (in category 'public') ----- do: aBlock after: anElement | startIndex | tally = 0 ifTrue: [ ^self ]. startIndex := anElement ifNil: [ 0 ] ifNotNil: [ self scanFor: anElement ]. startIndex + 1 to: array size do: [ :index | (array at: index) ifNotNil: [ :object | object == flag ifFalse: [ + aBlock value: object enclosedSetElement] ] ]! - aBlock value: object ] ] ]! Item was changed: ----- Method: WeakSet>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either flag (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject hash \\ array size + 1. [ | element | + ((element := array at: index) == flag or: [ element enclosedSetElement = anObject ]) - ((element := array at: index) == flag or: [ element = anObject ]) ifTrue: [ ^index ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was changed: ----- Method: KeyedSet>>removeKey:ifAbsent: (in category 'removing') ----- removeKey: key ifAbsent: aBlock | index obj | index := self scanFor: key. (obj := array at: index) == nil ifTrue: [ ^ aBlock value ]. array at: index put: nil. tally := tally - 1. self fixCollisionsFrom: index. + ^ obj enclosedSetElement! - ^ obj! Item was changed: ----- Method: KeyedSet>>noCheckNoGrowFillFrom: (in category 'private') ----- noCheckNoGrowFillFrom: anArray "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." 1 to: anArray size do: [ :index | (anArray at: index) ifNotNil: [ :object | array + at: (self scanForEmptySlotFor: (keyBlock value: object enclosedSetElement)) - at: (self scanForEmptySlotFor: (keyBlock value: object)) put: object ] ]! Item was changed: ----- Method: KeyedSet>>add: (in category 'adding') ----- add: newObject "Include newObject as one of the receiver's elements, but only if not already present. Answer newObject." | index | - newObject ifNil: [self error: 'Sets cannot meaningfully contain nil as an element']. index := self scanFor: (keyBlock value: newObject). + (array at: index) ifNil: [self atNewIndex: index put: newObject asSetElement]. - (array at: index) ifNil: [self atNewIndex: index put: newObject]. ^ newObject! Item was changed: ----- Method: KeyedSet>>fixCollisionsFrom: (in category 'private') ----- fixCollisionsFrom: start "The element at start has been removed and replaced by nil. This method moves forward from there, relocating any entries that had been placed below due to collisions with this one." | element index | index := start. [ (element := array at: (index := index \\ array size + 1)) == nil ] whileFalse: [ | newIndex | + (newIndex := self scanFor: (keyBlock value: element enclosedSetElement)) = index ifFalse: [ - (newIndex := self scanFor: (keyBlock value: element)) = index ifFalse: [ array swap: index with: newIndex ] ]! Item was changed: ----- Method: WeakSet>>do: (in category 'enumerating') ----- do: aBlock tally = 0 ifTrue: [ ^self ]. 1 to: array size do: [ :index | (array at: index) ifNotNil: [ :object | object == flag ifFalse: [ + aBlock value: object enclosedSetElement] ] ]! - aBlock value: object ] ] ]! Item was changed: ----- Method: WeakSet>>like: (in category 'accessing') ----- like: anObject "Answer an object in the receiver that is equal to anObject, nil if no such object is found. Relies heavily on hash properties" | element | ^(element := array at: (self scanFor: anObject)) == flag + ifFalse: [ element enclosedSetElement]! - ifFalse: [ element ]! Item was changed: ----- Method: WeakSet>>collect: (in category 'enumerating') ----- collect: aBlock | newSet | newSet := self species new: self size. tally = 0 ifTrue: [ ^newSet ]. 1 to: array size do: [ :index | (array at: index) ifNotNil: [ :object | object == flag ifFalse: [ + newSet add: (aBlock value: object enclosedSetElement) ] ] ]. - newSet add: (aBlock value: object) ] ] ]. ^newSet!

1 0

The Trunk: Collections-ar.289.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

The Trunk: Collections-ar.289.mcz
by commits＠source.squeak.org 02 Feb '10

02 Feb '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2010