The Inbox: ToolsTests-fbs.9.mcz

A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.9.mcz

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

Name: ToolsTests-fbs.9
Author: fbs
Time: 5 March 2011, 9:54:48.327 pm
UUID: 73b81967-976e-f949-84fa-2d49db19013d
Ancestors: ToolsTests-fbs.8

More tests, and catching up to Tools-fbs.304's renamings.

=============== Diff against ToolsTests-fbs.8 ===============

Item was changed:
  ----- Method: BrowserHierarchicalListTest>>hierarchicalClassListForCategory: (in category 'helper') -----
  hierarchicalClassListForCategory: category
 
  ^ Browser new
+ selectSystemCategory: category;
- selectedSystemCategory: category;
  hierarchicalClassList.!

Item was added:
+ ----- Method: BrowserTest>>testAlphabetizeMessageCategories (in category 'as yet unclassified') -----
+ testAlphabetizeMessageCategories
+ browser selectSystemCategory: browser class category.
+ self deny: browser alphabetizeMessageCategories.
+
+ browser selectClass: browser class.
+ browser metaClassIndicated: false.
+ self assert: browser alphabetizeMessageCategories.
+ self assert: browser classOrMetaClassOrganizer categories isSorted.
+
+ browser metaClassIndicated: true.
+ self assert: browser alphabetizeMessageCategories.
+ self assert: browser classOrMetaClassOrganizer categories isSorted.!

Item was changed:
  ----- Method: BrowserTest>>testDefaultClassList (in category 'as yet unclassified') -----
  testDefaultClassList
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
  self assert: browser defaultClassList isEmpty.
 
  browser selectedSystemCategory: Browser category.
  self assert: browser defaultClassList = (SystemOrganization listAtCategoryNamed: Browser category)!

Item was changed:
  ----- Method: BrowserTest>>testGetSystemCategoryListIndex (in category 'as yet unclassified') -----
  testGetSystemCategoryListIndex
  | cat |
  cat := SystemOrganization categories first.
+ browser selectSystemCategory: cat.
- browser selectedSystemCategory: cat.
  self assert: browser systemCategoryListIndex = (SystemOrganization categories indexOf: browser selectedSystemCategory).!

Item was changed:
  ----- Method: BrowserTest>>testMessageCatListSingleton (in category 'as yet unclassified') -----
  testMessageCatListSingleton
  | catName |
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: browser class.
 
  self assert: browser messageCatListSingleton = #().
 
  catName := browser messageCategoryList second.
  browser selectMessageCategoryNamed: catName.
 
  self assert: browser messageCatListSingleton = {catName}.!

Item was changed:
  ----- Method: BrowserTest>>testMessageCategoryList (in category 'as yet unclassified') -----
  testMessageCategoryList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: browser class.
 
  self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class organization categories).
 
  browser selectClass: nil.
  self assert: browser messageCategoryList = #().
 
  browser selectClass: browser class.
  browser metaClassIndicated: true.
  self assert: browser messageCategoryList = ({ClassOrganizer allCategory}, browser class classSide organization categories).!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedFalseOnExistingClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser classListIndex: (browser classList indexOf: browser class name).
  browser metaClassIndicated: false.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self deny: browser contents isEmpty. "It shows the class definition."
 
  self deny: browser messageCategoryList isEmpty.
 
  self assert: browser messageList = (browser class organization allMethodSelectors).
  self assert: browser editSelection = #editClass.!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedNotOnNoClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedNotOnNoClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: nil.
  browser metaClassIndicated: false.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self deny: browser contents isEmpty. "It shows the class definition."
 
  self assert: browser messageCategoryList isEmpty.
 
  self assert: browser messageList isEmpty.
  self assert: browser editSelection = #newClass.!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedNotWithNoSystemCategorySelected (in category 'as yet unclassified') -----
  testMetaClassIndicatedNotWithNoSystemCategorySelected
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
  browser metaClassIndicated: false.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self assert: browser contents isEmpty. "It shows the Class definition."
  self assert: browser messageCategoryList isEmpty.
  self assert: browser editSelection = #none.!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedOnNoClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedOnNoClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: nil.
  browser metaClassIndicated: true.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self assert: browser contents isEmpty.
 
  self assert: browser messageCategoryList isEmpty.
 
  self assert: browser messageList isEmpty.
  self assert: browser editSelection = #none.!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedTrueOnExistingClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser classListIndex: (browser classList indexOf: browser class name).
  browser metaClassIndicated: true.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self deny: browser contents isEmpty. "It shows the Class definition."
  self deny: browser messageCategoryList isEmpty.
 
  self assert: browser messageList = (browser class classSide organization allMethodSelectors).!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedWithNoSystemCategorySelected (in category 'as yet unclassified') -----
  testMetaClassIndicatedWithNoSystemCategorySelected
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
  browser metaClassIndicated: true.
 
  self assert: browser messageListIndex = 0.
  self assert: browser messageCategoryListIndex = 0.
  self assert: browser contents isEmpty. "It shows the Class definition."
  self assert: browser messageCategoryList isEmpty.
  self assert: browser editSelection = #none.!

Item was changed:
  ----- Method: BrowserTest>>testRawMessageCategoryList (in category 'as yet unclassified') -----
  testRawMessageCategoryList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: browser class.
 
  self assert: browser rawMessageCategoryList = browser class organization categories.
 
  browser selectClass: nil.
  self assert: browser rawMessageCategoryList = #().
 
  browser selectClass: browser class.
  browser metaClassIndicated: true.
  self assert: browser rawMessageCategoryList = browser class classSide organization categories.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassNamed (in category 'as yet unclassified') -----
+ testSelectClassNamed
+ browser selectSystemCategory: browser class category.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClassName = browser class name.
+
+ browser selectClassNamed: nil.
+ self assert: browser selectedClassName isNil.
+
+ browser selectClassNamed: browser class name asString.
+ self assert: browser selectedClassName = browser class name.!

Item was changed:
  ----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'as yet unclassified') -----
  testSelectClassSelectsClass
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser classListIndex: (browser classList indexOf: browser class name).
  self assert: browser classListIndex ~= 0.!

Item was changed:
  ----- Method: BrowserTest>>testSelectMessageCategoryNamed (in category 'as yet unclassified') -----
  testSelectMessageCategoryNamed
  | catName |
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  browser selectClass: browser class.
 
  catName := browser messageCategoryList anyOne.
  browser selectMessageCategoryNamed: catName.
  self assert: browser selectedMessageCategoryName = catName.!

Item was added:
+ ----- Method: BrowserTest>>testSelectedClass (in category 'as yet unclassified') -----
+ testSelectedClass
+ browser selectSystemCategory: browser class category.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClass = browser class.
+
+ browser selectClassNamed: nil.
+ self assert: browser selectedClass isNil.
+
+ browser selectSystemCategory: nil.
+ browser selectClassNamed: browser class name.
+ self assert: browser selectedClass isNil.!

Item was changed:
  ----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') -----
  testSelectedEnvironment
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  self assert: browser selectedEnvironment = Smalltalk.
 
  browser selectedSystemCategory: nil.
  self assert: browser selectedEnvironment isNil.!

Item was changed:
  ----- Method: BrowserTest>>testSelectedSystemCategory (in category 'as yet unclassified') -----
  testSelectedSystemCategory
  | cat newCat |
  cat := SystemOrganization categories first.
  newCat := SystemOrganization categories second.
+ browser selectSystemCategory: cat.
- browser selectedSystemCategory: cat.
  self assert: browser selectedSystemCategory = cat.
 
  browser systemCategoryListIndex: 2.
  self assert: browser selectedSystemCategory = newCat.!

Item was changed:
  ----- Method: PackagePaneBrowserTest>>testClassList (in category 'as yet unclassified') -----
  testClassList
+ browser selectSystemCategory: browser class category.
- browser selectedSystemCategory: browser class category.
  self assert: browser classList = (SystemOrganization listAtCategoryNamed: browser class category).
 
  browser selectedSystemCategory: nil.
  self assert: browser classList isEmpty.!

Item was changed:
  ----- Method: PackagePaneBrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') -----
  testSelectCategoryForClass
  | catName pkgName |
  pkgName := browser class category copyUpTo: $-.
  catName := browser class category allButFirst: pkgName size + 1.
  browser selectCategoryForClass: browser class.
  self assert: browser selectedSystemCategory = catName.
  self assert: browser packageListIndex = (browser packageList indexOf: pkgName).
+ browser selectSystemCategory: nil.
- browser selectedSystemCategory: nil.
  self assert: browser classList isEmpty.!