Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

The Trunk: TraitsTests-fbs.12.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of TraitsTests to project The Trunk: http://source.squeak.org/trunk/TraitsTests-fbs.12.mcz ==================== Summary ==================== Name: TraitsTests-fbs.12 Author: fbs Time: 6 November 2013, 6:42:36.843 pm UUID: baabd372-cbd4-2343-a4b7-4c42c2a111a8 Ancestors: TraitsTests-fbs.11 More #shouldnt:raise: Error fixes. =============== Diff against TraitsTests-fbs.11 =============== Item was changed: ----- Method: ClassTraitTest>>testChanges (in category 'testing') ----- testChanges "Test the most important features to ensure that general functionality of class traits are working." "self run: #testChanges" | classTrait | classTrait := self t1 classTrait. classTrait compile: 'm1ClassSide ^17' classified: 'mycategory'. "local selectors" self assert: (classTrait includesLocalSelector: #m1ClassSide). self deny: (classTrait includesLocalSelector: #otherSelector). "propagation" self assert: (self t5 classSide methodDict includesKey: #m1ClassSide). self assert: (self c2 class methodDict includesKey: #m1ClassSide). - self shouldnt: [self c2 m1ClassSide] raise: Error. self assert: self c2 m1ClassSide = 17. "category" self assert: (self c2 class organization categoryOfElement: #m1ClassSide) = 'mycategory'. "conflicts" self t2 classSide compile: 'm1ClassSide' classified: 'mycategory'. self assert: (self c2 class methodDict includesKey: #m1ClassSide). self deny: (self c2 class includesLocalSelector: #m1ClassSide). self should: [self c2 m1ClassSide] raise: Error. "conflict category" self assert: (self c2 class organization categoryOfElement: #m1ClassSide) = #mycategory!

1 0

The Trunk: ToolsTests-fbs.67.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.67.mcz ==================== Summary ==================== Name: ToolsTests-fbs.67 Author: fbs Time: 6 November 2013, 6:41:41.919 pm UUID: 2a6872a7-eff9-634e-8ff6-4e32849ac245 Ancestors: ToolsTests-fbs.66 More #shouldnt:raise: Error fixes. =============== Diff against ToolsTests-fbs.66 =============== Item was changed: ----- Method: FileListTest>>testAllRegisteredServices (in category 'test') ----- testAllRegisteredServices "(self selector: #testAllRegisteredServices) debug" + "This should not throw an exception." + FileList allRegisteredServices.! - self shouldnt: [FileList allRegisteredServices] raise: Error! Item was changed: ----- Method: OrderedCollectionInspectorTest>>testUninitialized (in category 'as yet unclassified') ----- testUninitialized "Single stepping through a debugger can observe the object state after creation but before initiialisation." "Thus 'object size' may throw an axception for trying to do arithmetic on nil." "Modified OrderedCollectionInspector>>fieldList to call 'self objectSize' to handle this exception." "Original error reproduction: [ self halt. OrderedCollectionInspector openOn: (OrderedCollection new: 5) ] " + "This should not throw an exception." + (OrderedCollectionInspector openOn: OrderedCollection basicNew) delete.! - self shouldnt: [ (OrderedCollectionInspector openOn: OrderedCollection basicNew) delete ] raise: Error.!

1 0

The Trunk: SystemChangeNotification-Tests-fbs.22.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of SystemChangeNotification-Tests to project The Trunk: http://source.squeak.org/trunk/SystemChangeNotification-Tests-fbs.22.mcz ==================== Summary ==================== Name: SystemChangeNotification-Tests-fbs.22 Author: fbs Time: 6 November 2013, 6:40:50.652 pm UUID: e1173a94-99d0-e742-a5a2-5a6c8a44776d Ancestors: SystemChangeNotification-Tests-fbs.21 More #shouldnt:raise: Error fixes. =============== Diff against SystemChangeNotification-Tests-fbs.21 =============== Item was changed: ----- Method: ChangeHooksTest>>methodCreationEvent1: (in category 'Events-Methods') ----- methodCreationEvent1: event | methodCreated | self addSingleEvent: event. + methodCreated := generatedTestClass >> createdMethodName. - self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] - raise: Error. self checkEvent: event kind: #Added item: methodCreated itemKind: AbstractEvent methodKind! Item was changed: ----- Method: ChangeHooksTest>>methodCreationEvent2: (in category 'Events-Methods') ----- methodCreationEvent2: event | methodCreated | self addSingleEvent: event. + methodCreated := generatedTestClass >> createdMethodName. - self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] - raise: Error. self checkEvent: event kind: #Added item: methodCreated itemKind: AbstractEvent methodKind! Item was changed: ----- Method: ChangeHooksTest>>methodRecategorizationEvent: (in category 'Events-Methods') ----- methodRecategorizationEvent: event | methodCreated | self addSingleEvent: event. + methodCreated := generatedTestClass >> createdMethodName. - self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] - raise: Error. self assert: ((generatedTestClass organization categoryOfElement: createdMethodName) = #newCategory). self assert: event oldCategory = #testing. self checkEvent: event kind: #Recategorized item: methodCreated itemKind: AbstractEvent methodKind.!

1 0

The Trunk: SUnit-fbs.96.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-fbs.96.mcz ==================== Summary ==================== Name: SUnit-fbs.96 Author: fbs Time: 6 November 2013, 6:38:17.322 pm UUID: 51fae66a-7146-aa4b-89b0-f7063528bd95 Ancestors: SUnit-fbs.95 More #shouldnt:raise: Error fixes. =============== Diff against SUnit-fbs.95 =============== Item was changed: ----- Method: ClassTestCase>>testNew (in category 'tests') ----- testNew + "This should not throw an exception." + self targetClass new.! - self shouldnt: [self targetClass new] raise: Error.!

1 0

The Trunk: NetworkTests-fbs.37.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-fbs.37.mcz ==================== Summary ==================== Name: NetworkTests-fbs.37 Author: fbs Time: 6 November 2013, 6:35:55.414 pm UUID: 97699685-5826-fe47-af98-356971abf2fb Ancestors: NetworkTests-fbs.36 More #shouldnt:raise: Error fixes. =============== Diff against NetworkTests-fbs.36 =============== Item was changed: ----- Method: SocketTest>>testPeerName (in category 'tests') ----- testPeerName + "None of these should throw an exception." + Socket new peerName. - - self shouldnt: [ Socket new peerName ] raise: Error. self testServerAccept. + listenerSocket peerName. + clientSocket peerName. + serverSocket peerName.! - self shouldnt: [ listenerSocket peerName ] raise: Error. - self shouldnt: [ clientSocket peerName ] raise: Error. - self shouldnt: [ serverSocket peerName ] raise: Error! Item was changed: ----- Method: UrlTest>>testAbsolutePortErrorFix (in category 'tests') ----- testAbsolutePortErrorFix + "This should not throw an exception." + Url absoluteFromText: 'http://swikis.ddo.jp:8823/'. - - self shouldnt: [Url absoluteFromText: 'http://swikis.ddo.jp:8823/'] raise: Error. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:-1/'] raise: Error. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:65536/'] raise: Error. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:auau/'] raise: Error.!

1 0

The Trunk: MultilingualTests-fbs.18.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-fbs.18.mcz ==================== Summary ==================== Name: MultilingualTests-fbs.18 Author: fbs Time: 6 November 2013, 6:35:02.811 pm UUID: 07e26018-8455-3349-9b44-9ecb4aaeefb2 Ancestors: MultilingualTests-nice.17 More #shouldnt:raise: Error fixes. =============== Diff against MultilingualTests-nice.17 =============== Item was changed: ----- Method: UTF8TextConverterTest>>testLazyConversion (in category 'tests') ----- testLazyConversion "Ensure the lazy conversions do what they should" | strict result | strict := UTF8TextConverter strictUtf8Conversions. [UTF8TextConverter strictUtf8Conversions: false. + result := 'Grüß Gott' utf8ToSqueak. - self shouldnt:[result := 'Grüß Gott' utf8ToSqueak ] raise: Error. ] ensure:[UTF8TextConverter strictUtf8Conversions: strict]. self assert: result = 'Grüß Gott'. !

1 0

The Trunk: MorphicTests-fbs.23.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-fbs.23.mcz ==================== Summary ==================== Name: MorphicTests-fbs.23 Author: fbs Time: 6 November 2013, 6:34:14.575 pm UUID: 0e3eb6f1-238b-3247-a9ef-66945de6a16a Ancestors: MorphicTests-fbs.22 More #shouldnt:raise: Error fixes. =============== Diff against MorphicTests-fbs.22 =============== Item was changed: ----- Method: FormCanvasTest>>testFrameAndFillDegenerateRoundRect01 (in category 'tests') ----- testFrameAndFillDegenerateRoundRect01 | fill canvas smallRect | fill := GradientFillStyle sample. canvas := FormCanvas extent: 100@100. canvas fillColor: Color black. smallRect := 0@0 corner: 20@20. + + "This should not throw an exception." + canvas + frameAndFillRoundRect: smallRect + radius: smallRect width / 2 + 1 + fillStyle: fill + borderWidth: 0 + borderColor: Color lightGray.! - self shouldnt: [ - canvas - frameAndFillRoundRect: smallRect - radius: smallRect width / 2 + 1 - fillStyle: fill - borderWidth: 0 - borderColor: Color lightGray] - raise: Error.! Item was changed: ----- Method: FormCanvasTest>>testFrameAndFillDegenerateRoundRect02 (in category 'tests') ----- testFrameAndFillDegenerateRoundRect02 | fill canvas smallRect | fill := GradientFillStyle sample. canvas := FormCanvas extent: 100@100. canvas fillColor: Color black. smallRect := 0@0 corner: 20@20. + + "This should not throw an exception." + canvas + frameAndFillRoundRect: smallRect + radius: 0 + fillStyle: fill + borderWidth: 0 + borderColor: Color lightGray.! - self shouldnt: [ - canvas - frameAndFillRoundRect: smallRect - radius: 0 - fillStyle: fill - borderWidth: 0 - borderColor: Color lightGray] - raise: Error.! Item was changed: ----- Method: MorphBugs>>adhereToEdgeTest (in category 'as yet unclassified') ----- adhereToEdgeTest + "self new adhereToEdgeTest" + "self run: #adhereToEdgeTest" - "self new adhereToEdgeTest" - "self run: #adhereToEdgeTest" + | r | + r := RectangleMorph new openInWorld . - | r | - r := RectangleMorph new openInWorld . + "This should not throw an exception." + [ r adhereToEdge: #eternity ] ensure: [ r delete ]. + r delete . - self shouldnt: [ [ r adhereToEdge: #eternity ] ensure: [ r delete ] ] raise: Error . - r delete . ^true ! Item was changed: ----- Method: MorphTest>>testOpenInWorld (in category 'testing - initialization') ----- testOpenInWorld + "This should not throw an exception." + morph openInWorld.! - self shouldnt: [morph openInWorld] raise: Error.! Item was changed: ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') ----- testShowAllBinParts "self new testShowAllBinParts" "MorphicUIBugTest run: #testShowAllBinParts" + self assert: Smalltalk isMorphic. + "This should not throw an exception." + cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld! - self assert: ( Smalltalk isMorphic ) . - self shouldnt: [cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld ] raise: Error . - - - - - ! Item was changed: ----- Method: TextMorphTest>>testInitialize (in category 'testing') ----- testInitialize "For now, just make sure initialization doesn't throw exception" + TextMorph initialize.! - - self shouldnt: [TextMorph initialize] raise: Error.! Item was changed: ----- Method: UnimplementedCallBugz>>testPolyIntersect (in category 'as yet unclassified') ----- testPolyIntersect + "self run: #testPolyIntersect" + "This should not throw an exception." + PolygonMorph initializedInstance + intersects: ( Rectangle + center: Display center + extent: 100 asPoint ).! - - "self run: #testPolyIntersect" - - self shouldnt: [ PolygonMorph initializedInstance - intersects: ( Rectangle center: Display center - extent: 100 asPoint ) ] - raise: Error .!

1 0

The Trunk: HelpSystem-Tests-fbs.15.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of HelpSystem-Tests to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Tests-fbs.15.mcz ==================== Summary ==================== Name: HelpSystem-Tests-fbs.15 Author: fbs Time: 6 November 2013, 6:33:06.535 pm UUID: 8927a848-29a0-f54c-8c79-efb8070c4702 Ancestors: HelpSystem-Tests-ul.14 More #shouldnt:raise: Error fixes. =============== Diff against HelpSystem-Tests-ul.14 =============== Item was changed: - SystemOrganization addCategory: #'HelpSystem-Tests-Core-Model'! SystemOrganization addCategory: #'HelpSystem-Tests-Builders'! + SystemOrganization addCategory: #'HelpSystem-Tests-Core-Model'! SystemOrganization addCategory: #'HelpSystem-Tests-Core-UI'! Item was changed: ----- Method: HelpBrowserTest>>testOpen (in category 'testing') ----- testOpen + |browser| + "This should not throw an exception." + browser := self defaultTestClass open. + World doOneCycleNow. + browser close.! - |block| - block := [ - |browser| - browser := self defaultTestClass open. - World doOneCycleNow. - browser close ]. - - self shouldnt: block raise: Error - - - !

1 0

The Trunk: GraphicsTests-fbs.36.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-fbs.36.mcz ==================== Summary ==================== Name: GraphicsTests-fbs.36 Author: fbs Time: 6 November 2013, 6:32:22.764 pm UUID: fe4e1768-0ce3-2541-8356-7a9143ee5ad7 Ancestors: GraphicsTests-nice.35 More #shouldnt:raise: Error fixes. =============== Diff against GraphicsTests-nice.35 =============== Item was changed: ----- Method: BitBltTest>>testPeekerUnhibernateBug (in category 'bugs') ----- testPeekerUnhibernateBug "self run: #testPeekerUnhibernateBug" | bitBlt | bitBlt := BitBlt bitPeekerFromForm: Display. bitBlt destForm hibernate. + + "This should not throw an exception." + bitBlt pixelAt: 1@1.! - self shouldnt:[bitBlt pixelAt: 1@1] raise: Error.! Item was changed: ----- Method: BitBltTest>>testPokerUnhibernateBug (in category 'bugs') ----- testPokerUnhibernateBug "self run: #testPokerUnhibernateBug" | bitBlt | bitBlt := BitBlt bitPokerToForm: Display. bitBlt sourceForm hibernate. + + "This should not throw an exception." + bitBlt pixelAt: 1@1 put: 0.! - self shouldnt:[bitBlt pixelAt: 1@1 put: 0] raise: Error.! Item was changed: ----- Method: ColorTest>>testPrintHtmlString (in category 'tests') ----- testPrintHtmlString "self debug: #testPrintHtmlString" - self shouldnt: [Color white printHtmlString ] raise: Error. self assert: Color white printHtmlString = 'FFFFFF'. self assert: Color red printHtmlString = 'FF0000'. self assert: Color black printHtmlString = '000000'.! Item was changed: ----- Method: JPEGReadWriter2Test>>testHighEntropyImageCanBeWrittenInHighQuality (in category 'tests') ----- testHighEntropyImageCanBeWrittenInHighQuality + "This should not throw an exception." + ByteArray streamContents: [ :stream | + | form rng | + form := Form extent: 20 @ 20 depth: 32. + rng := Random seed: 36rSQUEAK. + 0 to: form height do: [ :y | + 0 to: form width do: [ :x | + form pixelValueAt: x @ y put: (rng nextInt: 16r100000000) - 1 ] ]. + (JPEGReadWriter2 on: stream) + nextPutImage: form quality: 100 progressiveJPEG: true ]! - - self - shouldnt: [ - ByteArray streamContents: [ :stream | - | form rng | - form := Form extent: 20 @ 20 depth: 32. - rng := Random seed: 36rSQUEAK. - 0 to: form height do: [ :y | - 0 to: form width do: [ :x | - form pixelValueAt: x @ y put: (rng nextInt: 16r100000000) - 1 ] ]. - (JPEGReadWriter2 on: stream) - nextPutImage: form quality: 100 progressiveJPEG: true ] ] - raise: Error! Item was changed: ----- Method: PointTest>>testSign (in category 'testing - testing') ----- testSign + | samples results rejects | + samples := 0 asPoint eightNeighbors , (Array with: 0 asPoint). + results := samples collect: [ :each | each sign ]. - | samples results rejects | - samples := - 0 asPoint eightNeighbors - , (Array with: 0 asPoint) . - - self shouldnt: [ results := - samples collect: [ :each | each sign ] ] - raise: Error . + rejects := (1 to: samples size ) reject: [ :each | - rejects := - (1 to: samples size ) reject: [ :each | (samples at: each) = (results at: each) ] . + self assert: (rejects isEmpty) - self assert: ( rejects isEmpty) ! Item was changed: ----- Method: PointTest>>testZeroPointNormal (in category 'testing - testing') ----- testZeroPointNormal + "old: normal of zero point raised divide by zero error. + new: normal of zero point returns a direction right rotated from zero points direction." - "old: normal of zero point raised divide by zero error. - new: normal of zero point returns a direction right rotated from zero points direction." + self assert: 90 equals: (0 asPoint normal bearingToPoint: 0 asPoint).! - - self shouldnt: [ (0 asPoint normal bearingToPoint: 0 asPoint) = 90 ] raise: Error. - ! Item was changed: ----- Method: RectangleTest>>testStoreOn (in category 'tests') ----- testStoreOn - | assoc assoc2 | assoc := (0@0 extent: 1@1) -> 0. + assoc2 := Compiler evaluate: assoc storeString. - self shouldnt: [assoc2 := Compiler evaluate: assoc storeString] raise: Error. self assert: assoc key = assoc2 key. self assert: assoc value = assoc2 value.!

1 0

mcz files --> change sets for Squeak files since 2008? (was Re: [squeak-dev] more archaeology)
by H. Hirzel 06 Nov '13

06 Nov '13

Bob Monticello files are just zip files and they contain source code in the subfolder snapshot. However these are not change sets. I assume this is not new information for you. I remember there is a way to generate the change sets from the mcz files from within the image and this has been discussed on this list before (some years ago... maybe). However at the moment I do not have a reference. So the question is -- how do we generate change sets from the mcz files for the Squeak versions since 2008? Regards Hannes On 10/31/13, Bob Arning <arning315(a)comcast.net> wrote: > Hannes, > > I suppose Monticello could be coaxed into providing suitable data, but I > know next to nothing about Monticello or what the procedures were in > those days. So, if someone want to make some change sets, I'll merge > them in. The logical place to start would be where the old updates faded > out. Do one/a few and we'll see what happens. > > Cheers, > Bob > > p.s. are you where your ip address seems to indicate? I assume so. Plz contact off-list. > On 10/30/13 9:35 PM, H. Hirzel wrote: >> This offers interesting insights. It shows when and where changes have >> been made. Large parts of the system remain untouched for years! >> >> I wonder if it is possible to extend the display from 2008 up to now >> (unpacking mcz files)? >> >> --Hannes >> >> On 10/31/13, Bob Arning <arning315(a)comcast.net> wrote: >>> /time now offers option to see by class or by category >>> >>> Cheers, >>> Bob >>> >>> On 10/30/13 5:36 PM, Chris Muller wrote: >>>> Cool! >>>> >>>> On Wed, Oct 30, 2013 at 9:40 AM, Bob Arning <arning315(a)comcast.net> >>>> wrote: >>>>> http://69.251.218.6:9116/time now allows clicking on a cell to see all >>>>> the >>>>> changes therein. >>>>> >>>>> Cheers, >>>>> Bob >>>>> >>>>> >>>>> >>>>> >>> >> > >

4 7

← Newer
1
...
15
16
17
18
19
20
21
22
23
Older →

Jump to page: