[squeak-dev] The Inbox: ToolsTests-fbs.8.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 9 22:46:36 UTC 2011


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.!




More information about the Squeak-dev mailing list