The Trunk: ToolsTests-ul.73.mcz

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

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

Name: ToolsTests-ul.73
Author: ul
Time: 14 August 2015, 7:51:04.12 pm
UUID: 96d8803b-6424-4249-8fbf-fa62eb44c966
Ancestors: ToolsTests-topa.72

#includesSubString: -> #includesSubstring:

=============== Diff against ToolsTests-topa.72 ===============

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: (annotation includesSubString: browser class organization commentStamp).
- self assert: (annotation includesSubString: 'class comment for').
- self assert: (annotation includesSubString: browser className).!

Item was changed:
  ----- 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).!
- self assert: (annotation includesSubString: browser className).!

Item was changed:
  ----- Method: BrowserTest>>testLabelStringAlwaysShowsBrowserType (in category 'as yet unclassified') -----
  testLabelStringAlwaysShowsBrowserType
  browser selectSystemCategory: browser class category.
+ self assert: (browser labelString includesSubstring: 'System Browser').
- self assert: (browser labelString includesSubString: 'System Browser').
  browser selectClass: browser class.
+ self assert: (browser labelString includesSubstring: 'System Browser').
- self assert: (browser labelString includesSubString: 'System Browser').
  browser selectSystemCategory: DependencyBrowser category.
  browser selectClass: DependencyBrowser.
+ self assert: (browser labelString includesSubstring: 'System Browser').!
- self assert: (browser labelString includesSubString: 'System Browser').!

Item was changed:
  ----- Method: BrowserTest>>testLabelStringShowsBrowsedClassName (in category 'as yet unclassified') -----
  testLabelStringShowsBrowsedClassName
  browser selectSystemCategory: DependencyBrowser category.
  browser selectClass: DependencyBrowser.
+ self assert: (browser labelString includesSubstring: DependencyBrowser name).!
- self assert: (browser labelString includesSubString: DependencyBrowser name).!