[Pkg] The Trunk: ToolsTests-fbs.10.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 20 23:28:28 UTC 2011


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

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

Name: ToolsTests-fbs.10
Author: fbs
Time: 5 March 2011, 10:29:46.868 pm
UUID: 6fd8f061-0e22-5b46-b18f-24a35d9f6222
Ancestors: ToolsTests-fbs.9

Initial HierarchyBrowser tests.

=============== 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 added:
+ TestCase subclass: #HierarchyBrowserTest
+ 	instanceVariableNames: 'browser'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'ToolsTests-Browser'!

Item was added:
+ ----- Method: HierarchyBrowserTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	browser := HierarchyBrowser new.!

Item was added:
+ ----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'as yet unclassified') -----
+ testSelectedClassName
+ 	browser initHierarchyForClass: browser class.
+ 	self assert: browser selectedClassName = browser class name.!

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



More information about the Packages mailing list