The Trunk: Tests-ul.100.mcz

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)]
 
  !