A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-wiz.129.mcz

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

Name: Tests-wiz.129
Author: wiz
Time: 23 May 2011, 8:41:13.662 pm
UUID: 6adddaae-d5f8-417f-ada0-da25040053e0
Ancestors: Tests-nice.128

Tests for class fraction parameters being passed to copy bit. Two main tests should fail and pass after test is implemented. The third test was for debugging one of the main tests. It should run green before and after.

=============== Diff against Tests-nice.128 ===============

Item was added:
+ ----- Method: BitBltClipBugs>>testFloatingFractionOrigin (in category 'as yet unclassified') -----
+ testFloatingFractionOrigin
+   "Copy bits should be able to handle fractional extents w/o error."
+ "self debug: #testFloatingFractionOrigin"
+ 	| f1 bb f2 |
+ 	f1 := Form extent: 100 at 100 depth: 1.
+ 	f2 := Form extent: 100 at 100 depth: 1.
+ 	bb := BitBlt toForm: f1.
+ 	bb combinationRule: 3.
+ 	bb sourceForm: f2.
+ 	bb destOrigin: 0 @ (0.5) .
+ 	bb width: 100; height: 200.
+ 	self shouldnt:[bb copyBits] raise: Error.
+ !

Item was added:
+ ----- Method: BitBltClipBugs>>testFractionalExtent (in category 'as yet unclassified') -----
+ testFractionalExtent
+   "Copy bits should be able to handle fractional extents w/o error."
+ 	| f1 bb f2 |
+ 	f1 := Form extent: 100 at 100 depth: 1.
+ 	f2 := Form extent: 100 at 100 depth: 1.
+ 	bb := BitBlt toForm: f1.
+ 	bb combinationRule: 3.
+ 	bb sourceForm: f2.
+ 	bb destOrigin: 0 asPoint.
+ 	bb width: 100; height: 201/2.
+ 	self shouldnt:[bb copyBits] raise: Error.
+ !

Item was added:
+ ----- Method: BitBltClipBugs>>testFractionalOrigin (in category 'as yet unclassified') -----
+ testFractionalOrigin
+   "Copy bits should be able to handle fractional extents w/o error."
+ 	| f1 bb f2 |
+ 	f1 := Form extent: 100 at 100 depth: 1.
+ 	f2 := Form extent: 100 at 100 depth: 1.
+ 	bb := BitBlt toForm: f1.
+ 	bb combinationRule: 3.
+ 	bb sourceForm: f2.
+ 	bb destOrigin: 0 @ (1/2) ..
+ 	bb width: 100; height: 200.
+ 	self shouldnt:[bb copyBits] raise: Error.
+ !