The Inbox: ToolsTests-fbs.8.mcz

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

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

Name: ToolsTests-fbs.8
Author: fbs
Time: 4 March 2011, 9:00:58.929 pm
UUID: 617b9178-f45c-8b4e-9b01-46aa311e27e8
Ancestors: ToolsTests-fbs.7

Lots more Browser tests.

=============== Diff against ToolsTests-fbs.7 ===============

Item was changed:
  TestCase subclass: #BrowserTest
  instanceVariableNames: 'browser'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolsTests-Browser'!
+
+ !BrowserTest commentStamp: 'fbs 3/4/2011 07:22' prior: 0!
+ I provide the test suite for Browser.
+ !

Item was added:
+ ----- Method: BrowserTest>>testMessageCatListSingleton (in category 'as yet unclassified') -----
+ testMessageCatListSingleton
+ | catName |
+ 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 added:
+ ----- Method: BrowserTest>>testMessageCategoryList (in category 'as yet unclassified') -----
+ testMessageCategoryList
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') -----
+ testMetaClassIndicatedFalseOnExistingClass
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedNotOnNoClass (in category 'as yet unclassified') -----
+ testMetaClassIndicatedNotOnNoClass
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedNotWithNoSystemCategorySelected (in category 'as yet unclassified') -----
+ testMetaClassIndicatedNotWithNoSystemCategorySelected
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedOnNoClass (in category 'as yet unclassified') -----
+ testMetaClassIndicatedOnNoClass
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') -----
+ testMetaClassIndicatedTrueOnExistingClass
+ 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 added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedWithNoSystemCategorySelected (in category 'as yet unclassified') -----
+ testMetaClassIndicatedWithNoSystemCategorySelected
+ 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 added:
+ ----- Method: BrowserTest>>testRawMessageCategoryList (in category 'as yet unclassified') -----
+ testRawMessageCategoryList
+ 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>>testSelectClassSelectsClass (in category 'as yet unclassified') -----
+ testSelectClassSelectsClass
+ browser selectedSystemCategory: browser class category.
+ browser classListIndex: (browser classList indexOf: browser class name).
+ self assert: browser classListIndex ~= 0.!

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

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