[Pkg] The Trunk: KernelTests-fbs.251.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat May 18 22:23:35 UTC 2013
Frank Shearar uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-fbs.251.mcz
==================== Summary ====================
Name: KernelTests-fbs.251
Author: fbs
Time: 18 May 2013, 11:23:10.344 pm
UUID: 8da479f4-14bd-464d-ba9a-8207f2c04200
Ancestors: KernelTests-dtl.250
Make meaningful error messages.
Cool kids categorise conscientiously.
=============== Diff against KernelTests-dtl.250 ===============
Item was changed:
+ ----- Method: CompiledMethodTest>>expectedFailures (in category 'testing') -----
- ----- Method: CompiledMethodTest>>expectedFailures (in category 'as yet unclassified') -----
expectedFailures
Smalltalk isRunningCog ifTrue: [ ^super expectedFailures ].
^#(
"The following two are not supported by the interpreter VM. See their comments for details"
testPerformCanExecutelongMethodWithTemps
testPerformInSuperclassCanExecutelongMethodWithTemps
)!
Item was changed:
----- Method: CompiledMethodTest>>testMethodClass (in category 'tests - accessing') -----
testMethodClass
| method cls |
method := self class >> #returnTrue.
+ self assert: #returnTrue equals: method selector.
- self assert: method selector = #returnTrue.
"now make an orphaned method by just deleting the class.
old: #unknown
+ new semantics: return Obsolete class"
- new semantics: return Absolete class"
Smalltalk removeClassNamed: #TUTU.
cls := Object
subclass: #TUTU
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'KernelTests-Methods'.
cls compile: 'foo ^ 10'.
method := cls >> #foo.
Smalltalk removeClassNamed: #TUTU.
+ self assert: cls equals: method methodClass description: 'methodClass after class removal'.!
- self assert: method methodClass = cls!
More information about the Packages
mailing list