Squeak 4.5: Tests-cmm.290.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Squeak 4.5: Tests-cmm.290.mcz

commits-2
Chris Muller uploaded a new version of Tests to project Squeak 4.5:
http://source.squeak.org/squeak45/Tests-cmm.290.mcz

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

Name: Tests-cmm.290
Author: cmm
Time: 17 February 2014, 4:35:24.565 pm
UUID: f3fccfae-6baf-4093-ba62-e15ef110a687
Ancestors: Tests-cwp.289

Minor factoring.

=============== Diff against Tests-cwp.289 ===============

Item was changed:
  ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') -----
+ assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames
- assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames
-
  | failBlock |
  self sourceCode: someCode.
+ failBlock := [ self fail ].
+ [ self class
+ compile: self sourceCode
+ notifying: self
+ trailer: self class defaultMethodTrailer
+ ifFail: failBlock ]
- failBlock := [self fail].
- [self class
- compile: self sourceCode
- notifying: self
- trailer: self class defaultMethodTrailer
- ifFail: failBlock]
  on: UnusedVariable
+ do:
+ [ : aNotification | aNotification openMenuIn:
+ [ : options : emptyCollection : someText | aNotification resume:
+ (someTempNames anySatisfy:
+ [ : tempName | someText beginsWith: tempName ]) ] ].
- do: [:aNotification | aNotification
- openMenuIn: [:options :emptyCollection :someText |
- (someTempNames anySatisfy: [:tempName | someText startsWith: tempName])
- ifTrue: [aNotification resume: true]
- ifFalse: [aNotification resume: false]]].
  self assert: self sourceCode = someOtherCode!