The Trunk: MorphicTests-bp.14.mcz

Andreas Raab uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-bp.14.mcz

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

Name: MorphicTests-bp.14
Author: bp
Time: 2 April 2010, 11:32:53.032 pm
UUID: 3a037f09-63d5-4111-9f2c-cfdc5d5254f1
Ancestors: MorphicTests-ar.13

created LayoutFrameTest

=============== Diff against MorphicTests-ar.13 ===============

Item was changed:
  SystemOrganization addCategory: #'MorphicTests-Basic'!
  SystemOrganization addCategory: #'MorphicTests-Kernel'!
+ SystemOrganization addCategory: #'MorphicTests-Layouts'!
+ SystemOrganization addCategory: #'MorphicTests-Support'!
  SystemOrganization addCategory: #'MorphicTests-Text Support'!
  SystemOrganization addCategory: #'MorphicTests-Widgets'!
- SystemOrganization addCategory: #'MorphicTests-Support'!
  SystemOrganization addCategory: #'MorphicTests-Worlds'!

Item was added:
+ TestCase subclass: #LayoutFrameTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicTests-Layouts'!

Item was added:
+ ----- Method: LayoutFrameTest>>testRightBottomQuadrant (in category 'as yet unclassified') -----
+ testRightBottomQuadrant
+ | lf rectangle |
+ lf := LayoutFrame new
+ leftFraction: 1/2 offset: 1;
+ topFraction: 1/2 offset: 1;
+ rightFraction: 1 offset: -2;
+ bottomFraction: 1 offset: -2;
+ yourself.
+ rectangle := lf layout: nil in: (50@10 corner: 150@70).
+ self assert: (101@41 corner: 148@68) = rectangle!

Item was added:
+ ----- Method: LayoutFrameTest>>testInset (in category 'as yet unclassified') -----
+ testInset
+ | lf rectangle |
+ lf := LayoutFrame new
+ leftFraction: 0 offset: 10;
+ topFraction: 0 offset: 10;
+ rightFraction: 1 offset: -10;
+ bottomFraction: 1 offset: -10;
+ yourself.
+ rectangle := lf layout: nil in: (50@10 corner: 150@70).
+ self assert: (60@20 corner: 140@60) = rectangle!

Item was added:
+ ----- Method: LayoutFrameTest>>testSpaceFill (in category 'as yet unclassified') -----
+ testSpaceFill
+ | lf rectangle |
+ lf := LayoutFrame new
+ leftFraction: 0 offset: 0;
+ topFraction: 0 offset: 0;
+ rightFraction: 1 offset: 0;
+ bottomFraction: 1 offset: 0;
+ yourself.
+ rectangle := lf layout: nil in: (50@10 corner: 150@70).
+ self assert: (50@10 corner: 150@70) = rectangle!

Item was added:
+ ----- Method: LayoutFrameTest>>testLeftTopAligned (in category 'as yet unclassified') -----
+ testLeftTopAligned
+ | lf rectangle |
+ lf := LayoutFrame new
+ leftFraction: 0 offset: 10;
+ topFraction: 0 offset: 10;
+ rightFraction: 0 offset: 60;
+ bottomFraction: 0 offset: 25;
+ yourself.
+ rectangle := lf layout: nil in: (50@10 corner: 150@70).
+ self assert: (60@20 corner: 110@35) = rectangle!