[Pkg] The Trunk: MorphicExtrasTests-fbs.2.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed May 8 11:36:51 UTC 2013
Frank Shearar uploaded a new version of MorphicExtrasTests to project The Trunk:
http://source.squeak.org/trunk/MorphicExtrasTests-fbs.2.mcz
==================== Summary ====================
Name: MorphicExtrasTests-fbs.2
Author: fbs
Time: 8 May 2013, 12:36:01.654 pm
UUID: 9547b25a-dd03-4c17-a5c2-ef253b5d5e4f
Ancestors: MorphicExtrasTests-fbs.1
Flap tests belong in MorphicExtrasTests.
=============== Diff against MorphicExtrasTests-fbs.1 ===============
Item was removed:
- SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Filters'!
Item was added:
+ SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Filters'!
+ SystemOrganization addCategory: #'MorphicExtrasTests-Flaps'!
Item was added:
+ TestCase subclass: #FlapTabTests
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'MorphicExtrasTests-Flaps'!
+
+ !FlapTabTests commentStamp: 'wiz 6/11/2007 17:58' prior: 0!
+ A FlapTabTests is here to test infinite recursion bug when extent: message is sent to some flap tabs see
+ http://bugs.squeak.org/view.php?id=6486
+ for report.
+
+ Instance Variables
+ We inherit cases which can be filled with morphs that need to be deleted at the end of the test.
+
+ !
Item was added:
+ ----- Method: FlapTabTests>>testFlapTabRecusion (in category 'tests') -----
+ testFlapTabRecusion
+ | a b tab |
+ "Create a float close to 466.700581395349"
+ a := 1.1
+ at: 1 put: 1081944885;
+ at: 2 put: 2497074009;
+ yourself.
+ b := 105.
+ self deny: a + b - a = b.
+
+ tab := Flaps newFlapTitled: 'Test' onEdge: #top.
+ tab left: a.
+
+ self
+ should: [tab extent: b asPoint]
+ notTakeMoreThanMilliseconds: 10
+ !
More information about the Packages
mailing list