[squeak-dev] The Trunk: ToolsTests-fbs.60.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 3 22:58:28 UTC 2013
Frank Shearar uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.60.mcz
==================== Summary ====================
Name: ToolsTests-fbs.60
Author: fbs
Time: 3 January 2013, 10:58:12.844 pm
UUID: 02ef57f8-3585-42cf-9369-a2f4ead08e67
Ancestors: ToolsTests-fbs.59
Much better testing for Browser >> #annotationForClassCommentFor:.
=============== Diff against ToolsTests-fbs.59 ===============
Item was changed:
----- Method: BrowserTest>>testClassCommentAnnotation (in category 'as yet unclassified') -----
testClassCommentAnnotation
+ | annotation |
browser selectSystemCategory: browser class category.
browser selectClass: browser class.
+ annotation := browser annotationForClassCommentFor: browser class.
+ self assert: (annotation includesSubString: browser class organization commentStamp).
+ self assert: (annotation includesSubString: 'class comment for').
+ self assert: (annotation includesSubString: browser className).!
- self assert: 'class comment for Browser - cwp 12/27/2012 11:09' equals: (browser annotationForClassCommentFor: browser class).
- "And the method ignores the parameter:"
- self assert: 'class comment for Browser - cwp 12/27/2012 11:09' equals: (browser annotationForClassCommentFor: browser class superclass).!
Item was added:
+ ----- Method: BrowserTest>>testClassCommentAnnotationIgnoresParameter (in category 'as yet unclassified') -----
+ testClassCommentAnnotationIgnoresParameter
+ | annotation |
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ "And the method ignores the parameter:"
+ annotation := browser annotationForClassCommentFor: browser class superclass.
+ self assert: (annotation includesSubString: browser className).!
More information about the Squeak-dev
mailing list
|