Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.214.mcz
==================== Summary ====================
Name: KernelTests-nice.214
Author: nice
Time: 3 March 2012, 3:22:15.752 pm
UUID: 9f9a6dfc-5949-414f-aaeb-99d26e27111c
Ancestors: KernelTests-ul.213
Add RandomTest>>testWellKnownSequence
This is to replace Random>>theItsCompletelyBrokenTest.
=============== Diff against KernelTests-ul.213 ===============
Item was added:
+ ----- Method: RandomTest>>testWellKnownSequence (in category 'tests') -----
+ testWellKnownSequence
+ "This test assert the immutability of Random generation algorithm.
+ It uses Float equality tests, which is a very strict notion of immutability.
+ Anyone changing Random algorithm will have to adapt this test."
+
+ | theSeedOfWellKnownSequence wellKnownSequence rng effectiveSequence |
+ theSeedOfWellKnownSequence := 2345678901.
+ wellKnownSequence := #(0.14924326965084453 0.3316330217437972 0.7561964480002394 0.3937015400238808 0.9417831813645471 0.5499291939427746 0.6599625962134277 0.991354559078512 0.6960744325518955 0.922987899707159 ).
+ rng := Random new.
+ rng seed: theSeedOfWellKnownSequence.
+ effectiveSequence := (1 to: 10) collect: [:i | rng next ].
+ self assert: effectiveSequence equals: wellKnownSequence!
Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.214.mcz
==================== Summary ====================
Name: KernelTests-nice.214
Author: nice
Time: 3 March 2012, 3:22:15.752 pm
UUID: 9f9a6dfc-5949-414f-aaeb-99d26e27111c
Ancestors: KernelTests-ul.213
Add RandomTest>>testWellKnownSequence
This is to replace Random>>theItsCompletelyBrokenTest.
=============== Diff against KernelTests-ul.213 ===============
Item was added:
+ ----- Method: RandomTest>>testWellKnownSequence (in category 'tests') -----
+ testWellKnownSequence
+ "This test assert the immutability of Random generation algorithm.
+ It uses Float equality tests, which is a very strict notion of immutability.
+ Anyone changing Random algorithm will have to adapt this test."
+
+ | theSeedOfWellKnownSequence wellKnownSequence rng effectiveSequence |
+ theSeedOfWellKnownSequence := 2345678901.
+ wellKnownSequence := #(0.14924326965084453 0.3316330217437972 0.7561964480002394 0.3937015400238808 0.9417831813645471 0.5499291939427746 0.6599625962134277 0.991354559078512 0.6960744325518955 0.922987899707159 ).
+ rng := Random new.
+ rng seed: theSeedOfWellKnownSequence.
+ effectiveSequence := (1 to: 10) collect: [:i | rng next ].
+ self assert: effectiveSequence equals: wellKnownSequence!
Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.214.mcz
==================== Summary ====================
Name: KernelTests-nice.214
Author: nice
Time: 3 March 2012, 3:22:15.752 pm
UUID: 9f9a6dfc-5949-414f-aaeb-99d26e27111c
Ancestors: KernelTests-ul.213
Add RandomTest>>testWellKnownSequence
This is to replace Random>>theItsCompletelyBrokenTest.
=============== Diff against KernelTests-ul.213 ===============
Item was added:
+ ----- Method: RandomTest>>testWellKnownSequence (in category 'tests') -----
+ testWellKnownSequence
+ "This test assert the immutability of Random generation algorithm.
+ It uses Float equality tests, which is a very strict notion of immutability.
+ Anyone changing Random algorithm will have to adapt this test."
+
+ | theSeedOfWellKnownSequence wellKnownSequence rng effectiveSequence |
+ theSeedOfWellKnownSequence := 2345678901.
+ wellKnownSequence := #(0.14924326965084453 0.3316330217437972 0.7561964480002394 0.3937015400238808 0.9417831813645471 0.5499291939427746 0.6599625962134277 0.991354559078512 0.6960744325518955 0.922987899707159 ).
+ rng := Random new.
+ rng seed: theSeedOfWellKnownSequence.
+ effectiveSequence := (1 to: 10) collect: [:i | rng next ].
+ self assert: effectiveSequence equals: wellKnownSequence!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.671.mcz
==================== Summary ====================
Name: Kernel-nice.671
Author: nice
Time: 3 March 2012, 3:20:12.779 pm
UUID: 8b75db5b-1aab-4de9-87e1-75c3fb99e976
Ancestors: Kernel-eem.670
Remove Random>>theItsCompletelyBrokenTest
Replace it with a RandomTest.
=============== Diff against Kernel-eem.670 ===============
Item was removed:
- ----- Method: Random class>>theItsCompletelyBrokenTest (in category 'testing') -----
- theItsCompletelyBrokenTest
- "Random theItsCompletelyBrokenTest"
- "The above should print as...
- (0.149243269650845 0.331633021743797 0.75619644800024 0.393701540023881 0.941783181364547 0.549929193942775 0.659962596213428 0.991354559078512 0.696074432551896 0.922987899707159 )
- If they are not these values (accounting for precision of printing) then something is horribly wrong: DO NOT USE THIS CODE FOR ANYTHING. "
- | rng |
- rng := Random new.
- rng seed: 2345678901.
- ^ (1 to: 10) collect: [:i | rng next]!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.671.mcz
==================== Summary ====================
Name: Kernel-nice.671
Author: nice
Time: 3 March 2012, 3:20:12.779 pm
UUID: 8b75db5b-1aab-4de9-87e1-75c3fb99e976
Ancestors: Kernel-eem.670
Remove Random>>theItsCompletelyBrokenTest
Replace it with a RandomTest.
=============== Diff against Kernel-eem.670 ===============
Item was removed:
- ----- Method: Random class>>theItsCompletelyBrokenTest (in category 'testing') -----
- theItsCompletelyBrokenTest
- "Random theItsCompletelyBrokenTest"
- "The above should print as...
- (0.149243269650845 0.331633021743797 0.75619644800024 0.393701540023881 0.941783181364547 0.549929193942775 0.659962596213428 0.991354559078512 0.696074432551896 0.922987899707159 )
- If they are not these values (accounting for precision of printing) then something is horribly wrong: DO NOT USE THIS CODE FOR ANYTHING. "
- | rng |
- rng := Random new.
- rng seed: 2345678901.
- ^ (1 to: 10) collect: [:i | rng next]!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.671.mcz
==================== Summary ====================
Name: Kernel-nice.671
Author: nice
Time: 3 March 2012, 3:20:12.779 pm
UUID: 8b75db5b-1aab-4de9-87e1-75c3fb99e976
Ancestors: Kernel-eem.670
Remove Random>>theItsCompletelyBrokenTest
Replace it with a RandomTest.
=============== Diff against Kernel-eem.670 ===============
Item was removed:
- ----- Method: Random class>>theItsCompletelyBrokenTest (in category 'testing') -----
- theItsCompletelyBrokenTest
- "Random theItsCompletelyBrokenTest"
- "The above should print as...
- (0.149243269650845 0.331633021743797 0.75619644800024 0.393701540023881 0.941783181364547 0.549929193942775 0.659962596213428 0.991354559078512 0.696074432551896 0.922987899707159 )
- If they are not these values (accounting for precision of printing) then something is horribly wrong: DO NOT USE THIS CODE FOR ANYTHING. "
- | rng |
- rng := Random new.
- rng seed: 2345678901.
- ^ (1 to: 10) collect: [:i | rng next]!
Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.612.mcz
==================== Summary ====================
Name: Morphic-bf.612
Author: bf
Time: 1 March 2012, 6:41:06.021 pm
UUID: ad8ae1d7-09a2-494d-8de9-33f2ad722962
Ancestors: Morphic-nice.611
- make dismiss halo button work again
=============== Diff against Morphic-nice.611 ===============
Item was changed:
----- Method: Morph>>dismissMorph (in category 'meta-actions') -----
dismissMorph
"This is called from an explicit halo destroy/delete action.
So first disconnect all constraints to keep the graph up to date."
(self respondsTo: #disconnectAllConstraints) "Connectors package"
ifTrue: [ self perform: #disconnectAllConstraints ].
(self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)"
ifTrue: [ self perform: #releaseGraphModels ].
- self releaseGraphModels.
self world ifNotNilDo:
[:w | w abandonAllHalos; stopStepping: self].
self delete!
Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.612.mcz
==================== Summary ====================
Name: Morphic-bf.612
Author: bf
Time: 1 March 2012, 6:41:06.021 pm
UUID: ad8ae1d7-09a2-494d-8de9-33f2ad722962
Ancestors: Morphic-nice.611
- make dismiss halo button work again
=============== Diff against Morphic-nice.611 ===============
Item was changed:
----- Method: Morph>>dismissMorph (in category 'meta-actions') -----
dismissMorph
"This is called from an explicit halo destroy/delete action.
So first disconnect all constraints to keep the graph up to date."
(self respondsTo: #disconnectAllConstraints) "Connectors package"
ifTrue: [ self perform: #disconnectAllConstraints ].
(self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)"
ifTrue: [ self perform: #releaseGraphModels ].
- self releaseGraphModels.
self world ifNotNilDo:
[:w | w abandonAllHalos; stopStepping: self].
self delete!
Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.612.mcz
==================== Summary ====================
Name: Morphic-bf.612
Author: bf
Time: 1 March 2012, 6:41:06.021 pm
UUID: ad8ae1d7-09a2-494d-8de9-33f2ad722962
Ancestors: Morphic-nice.611
- make dismiss halo button work again
=============== Diff against Morphic-nice.611 ===============
Item was changed:
----- Method: Morph>>dismissMorph (in category 'meta-actions') -----
dismissMorph
"This is called from an explicit halo destroy/delete action.
So first disconnect all constraints to keep the graph up to date."
(self respondsTo: #disconnectAllConstraints) "Connectors package"
ifTrue: [ self perform: #disconnectAllConstraints ].
(self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)"
ifTrue: [ self perform: #releaseGraphModels ].
- self releaseGraphModels.
self world ifNotNilDo:
[:w | w abandonAllHalos; stopStepping: self].
self delete!