[Pkg] The Trunk: KernelTests-ul.178.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.178.mcz

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

Name: KernelTests-ul.178
Author: ul
Time: 28 March 2011, 4:22:28.491 am
UUID: 43194183-238c-ef48-b4ab-f2f23dfe48d5
Ancestors: KernelTests-mha.177

- MonthTest >> #testIndexOfMonth used invalid syntax
- use #embeddedBlockClosures instead of #embeddedBlockMethods in CompiledMethodTest >> #testClosureNLRs

=============== Diff against KernelTests-mha.177 ===============

Item was changed:
  ----- Method: CompiledMethodTest>>testClosureNLRs (in category 'tests - closures') -----
  testClosureNLRs
  	self
  		assert:
+ 			((self class >> #withClosure) embeddedBlockClosures at: 1)
- 			((self class >> #withClosure) embeddedBlockMethods at: 1)
  				hasMethodReturn;
  		assert:
+ 			((self class >> #withClosureNoNLR) embeddedBlockClosures at: 1) 
- 			((self class >> #withClosureNoNLR) embeddedBlockMethods at: 1) 
  				hasMethodReturn not!

Item was changed:
  ----- Method: MonthTest>>testIndexOfMonth (in category 'Tests') -----
  testIndexOfMonth
  
  	| m |
  	m := #(#January #February #March #April #May #June #July #August #September #October #November #December).
  	
  	m withIndexDo: [:item :index | self assert: (Month indexOfMonth: item) = index].
  	
  	self should: [Month indexOfMonth: 1] raise: TestResult error.
+ 	self should: [Month indexOfMonth: #'1'] raise: TestResult error.
- 	self should: [Month indexOfMonth: #1] raise: TestResult error.
  	self should: [Month indexOfMonth: #Marsh] raise: TestResult error. "notice the misspell!!"
  	self should: [Month indexOfMonth: #UnexistingMonth] raise: TestResult error.!