[squeak-dev] The Trunk: GraphicsTests-fbs.36.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Nov 6 18:32:23 UTC 2013
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 at 1.!
- self shouldnt:[bitBlt pixelAt: 1 at 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 at 1 put: 0.!
- self shouldnt:[bitBlt pixelAt: 1 at 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 at 0 extent: 1 at 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.!
More information about the Squeak-dev
mailing list
|