The Trunk: GraphicsTests-ul.34.mcz

Levente Uzonyi uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-ul.34.mcz

==================== Summary ====================

Name: GraphicsTests-ul.34
Author: ul
Time: 4 September 2013, 4:22:37.151 pm
UUID: 5a880e16-3d95-4f7c-bddf-a2e7a5952efc
Ancestors: GraphicsTests-tpr.33

- added a test for JPEGReadWriter2, which checks if images with high entropy data can be written in high quality

=============== Diff against GraphicsTests-tpr.33 ===============

Item was added:
+ TestCase subclass: #JPEGReadWriter2Test
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'GraphicsTests-Files'!

Item was added:
+ ----- Method: JPEGReadWriter2Test>>testHighEntropyImageCanBeWrittenInHighQuality (in category 'tests') -----
+ testHighEntropyImageCanBeWrittenInHighQuality
+
+ 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!