[squeak-dev] The Trunk: Tests-ul.100.mczcommits at source.squeak.org commits at source.squeak.orgTue Nov 16 04:12:31 UTC 2010
Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.100.mcz ==================== Summary ==================== Name: Tests-ul.100 Author: ul Time: 16 November 2010, 5:12:04.762 am UUID: 26603fe0-a505-2b4e-8e20-3807a552ed2c Ancestors: Tests-ul.99 - use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 ) =============== Diff against Tests-ul.99 =============== Item was changed: ----- Method: ExceptionTests>>testResumableOuter (in category 'testing-outer') ----- testResumableOuter | result | result := [Notification signal. 4] on: Notification do: [:ex | ex outer. ex return: 5]. + self assert: result = 5 - self assert: result == 5 ! Item was changed: ----- Method: ExceptionTests>>testResumablePass (in category 'testing-outer') ----- testResumablePass | result | result := [Notification signal. 4] on: Notification do: [:ex | ex pass. ex return: 5]. + self assert: result = 4 - self assert: result == 4 ! Item was changed: ----- Method: ExpandedSourceFileArrayTest>>testChangesFileAddressRange (in category 'testing') ----- testChangesFileAddressRange "Test file position to source pointer address translation for the changes file" | sf i p a a2 | sf := ExpandedSourceFileArray new. 0 to: 16r1FFFFFFF by: 4093 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. i := sf fileIndexFromSourcePointer: a. + self assert: i = 2. - self assert: i == 2. p := sf filePositionFromSourcePointer: a. self assert: p = e. a2 := sf sourcePointerFromFileIndex: 2 andPosition: p. self assert: a2 = a]. 0 to: 16rFFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r2000000 and: 16r2FFFFFF)]. 16r1000000 to: 16r1FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r4000000 and: 16r4FFFFFF)]. 16r2000000 to: 16r2FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r6000000 and: 16r6FFFFFF)]. 16r3000000 to: 16r3FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r8000000 and: 16r8FFFFFF)]. 16r4000000 to: 16r4FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16rA000000 and: 16rAFFFFFF)]. 16r5000000 to: 16r5FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16rC000000 and: 16rCFFFFFF)]. 16r6000000 to: 16r6FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16rE000000 and: 16rEFFFFFF)]. 16r7000000 to: 16r7FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r10000000 and: 16r10FFFFFF)] ! Item was changed: ----- Method: ExpandedSourceFileArrayTest>>testSourcesFileAddressRange (in category 'testing') ----- testSourcesFileAddressRange "Test file position to source pointer address translation for the sources file" | sf i p a a2 | sf := ExpandedSourceFileArray new. 0 to: 16r1FFFFFFF by: 4093 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. i := sf fileIndexFromSourcePointer: a. + self assert: i = 1. - self assert: i == 1. p := sf filePositionFromSourcePointer: a. self assert: p = e. a2 := sf sourcePointerFromFileIndex: 1 andPosition: p. self assert: a2 = a]. 0 to: 16rFFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r1000000 and: 16r1FFFFFF)]. 16r1000000 to: 16r1FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r3000000 and: 16r3FFFFFF)]. 16r2000000 to: 16r2FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r5000000 and: 16r5FFFFFF)]. 16r3000000 to: 16r3FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r7000000 and: 16r7FFFFFF)]. 16r4000000 to: 16r4FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r9000000 and: 16r9FFFFFF)]. 16r5000000 to: 16r5FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16rB000000 and: 16rBFFFFFF)]. 16r6000000 to: 16r6FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16rD000000 and: 16rDFFFFFF)]. 16r7000000 to: 16r7FFFFFF by: 811 do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16rF000000 and: 16rFFFFFFF)] ! Item was changed: ----- Method: StandardSourceFileArrayTest>>testChangesFileAddressRange (in category 'testing') ----- testChangesFileAddressRange "Test file position to source pointer address translation for the changes file" | sf a | sf := StandardSourceFileArray new. (0 to: 16r1FFFFFF by: 811) do: [:e | | a2 i p | a := sf sourcePointerFromFileIndex: 2 andPosition: e. i := sf fileIndexFromSourcePointer: a. + self assert: i = 2. - self assert: i == 2. p := sf filePositionFromSourcePointer: a. self assert: p = e. a2 := sf sourcePointerFromFileIndex: 2 andPosition: p. self assert: a2 = a]. (0 to: 16rFFFFFF by: 811) do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r2000000 and: 16r2FFFFFF)]. (16r1000000 to: 16r1FFFFFF by: 811) do: [:e | a := sf sourcePointerFromFileIndex: 2 andPosition: e. self assert: (a between: 16r4000000 and: 16r4FFFFFF)] ! Item was changed: ----- Method: StandardSourceFileArrayTest>>testSourcesFileAddressRange (in category 'testing') ----- testSourcesFileAddressRange "Test file position to source pointer address translation for the sources file" | sf a | sf := StandardSourceFileArray new. (0 to: 16r1FFFFFF by: 811) do: [:e | | a2 p i | a := sf sourcePointerFromFileIndex: 1 andPosition: e. i := sf fileIndexFromSourcePointer: a. + self assert: i = 1. - self assert: i == 1. p := sf filePositionFromSourcePointer: a. self assert: p = e. a2 := sf sourcePointerFromFileIndex: 1 andPosition: p. self assert: a2 = a]. (0 to: 16rFFFFFF by: 811) do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r1000000 and: 16r1FFFFFF)]. (16r1000000 to: 16r1FFFFFF by: 811) do: [:e | a := sf sourcePointerFromFileIndex: 1 andPosition: e. self assert: (a between: 16r3000000 and: 16r3FFFFFF)] !
More information about the Squeak-dev mailing list |