[Pkg] Sake : Sake-Tests-kph.49.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Sake-Tests was added to project Sake :
http://www.squeaksource.com/Sake/Sake-Tests-kph.49.mcz

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

Name: Sake-Tests-kph.49
Author: kph
Time: 21 January 2009, 3:11:39 pm
UUID: f7216fa7-7afc-4145-a4bf-44c855a39e7c
Ancestors: Sake-Tests-kph.48

test pass
added testNot

=============== Diff against Sake-Tests-kph.48 ===============

Item was added:
+ ----- Method: SakeTaskTest>>testNot (in category 'as yet unclassified') -----
+ testNot
+ 
+ 	self should: [  (SakeTaskTest ruleIfClassExists not) run ] raise: SakeStop.
+ 	self should: [  (SakeTaskTest ruleIfClassDoesntExist not) run ]
+ !

Item was changed:
  ----- Method: SakeTaskTest class>>ruleBlock (in category 'as yet unclassified') -----
  ruleBlock
  
+ 	^ SakeTask action: [ 1 ]!
- 	^ SakeTask block: [ 1 ]!

Item was changed:
  ----- Method: SakeFileTaskTest>>testRuleFile (in category 'as yet unclassified') -----
  testRuleFile
  
+ 	(Smalltalk classNamed: 'FileKernel') isNil ifTrue: [ self fail ].
- 	(Smalltalk classNamed: 'RioKernel') isNil ifTrue: [ self fail ].
  
+ 	self deny: ('testDir/test' asFile exists).
- 	self deny: ('testDir/test' asRio exists).
  
  	SakeTaskTest ruleFile run.
  	
+ 	self assert: ('testDir/test' asFile contents = 'ruleFile').!
- 	self assert: ('testDir/test' asRio contents = 'ruleFile').!

Item was changed:
  ----- Method: SakeFileTaskTest>>setUp (in category 'as yet unclassified') -----
  setUp
  
+ 	'testDir' asDirectory all delete!
- 	'testDir' asRio all delete!

Item was changed:
  ----- Method: SakeClassTaskTest>>testEnsureSubclass (in category 'as yet unclassified') -----
  testEnsureSubclass
  	
  	
  	| result |
  	
  	result := (SakeTask define: [ :task |
  		
+ 		task dependsOn: { (SakeTask class: 'SakeClassTaskTest') subclass: 'SakeTemp' }.
- 		task dependsOn: { (SakeTask class: 'SakeClassTaskTest') ensureSubclass: 'SakeTemp' }.
  
  		task action: [ true ].
  			 
  	]) run.
  
  	self assert: result 
  	
   !