[squeak-dev] The Trunk: MorphicExtrasTests-nice.4.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 31 16:45:17 UTC 2015


Nicolas Cellier uploaded a new version of MorphicExtrasTests to project The Trunk:
http://source.squeak.org/trunk/MorphicExtrasTests-nice.4.mcz

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

Name: MorphicExtrasTests-nice.4
Author: nice
Time: 31 October 2015, 5:44:19.516 pm
UUID: c4f7d3c0-bde7-41b9-b6a3-5588544e6e9d
Ancestors: MorphicExtrasTests-fbs.3

Do not use at:put: on a Float (especially a literal!), this superpower should be considered harmful and it is not 64-bits spur compatible anyway.

=============== Diff against MorphicExtrasTests-fbs.3 ===============

Item was changed:
  ----- Method: FlapTabTests>>testFlapTabRecusion (in category 'tests') -----
  testFlapTabRecusion
  	| a b tab |
+ 	"This float is 466.7005813953488"
+ 	a := (16r1D2B3594D65359 asFloat timesTwoPower: -44).
- 	"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 Squeak-dev mailing list