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 !