[Pkg] The Trunk: HelpSystem-Tests-pre.21.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 13 11:22:55 UTC 2018


Patrick Rein uploaded a new version of HelpSystem-Tests to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Tests-pre.21.mcz

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

Name: HelpSystem-Tests-pre.21
Author: pre
Time: 13 December 2018, 12:22:53.399468 pm
UUID: 34bfe3d0-cae7-40ed-a82a-0ab59110965a
Ancestors: HelpSystem-Tests-dtl.20

Categorizes uncategorized methods in the HelpSystem tests package.

=============== Diff against HelpSystem-Tests-dtl.20 ===============

Item was changed:
+ ----- Method: AdvancedHelpBrowserDummy>>model (in category 'accessing') -----
- ----- Method: AdvancedHelpBrowserDummy>>model (in category 'testing') -----
  model
  	^self!

Item was changed:
+ ----- Method: AdvancedHelpBrowserDummy>>showFirstTopic (in category 'mocking') -----
- ----- Method: AdvancedHelpBrowserDummy>>showFirstTopic (in category 'testing') -----
  showFirstTopic
  	^rootTopic!

Item was changed:
+ ----- Method: ClassAPIHelpBuilderTest>>testDefaultBuilding (in category 'tests') -----
- ----- Method: ClassAPIHelpBuilderTest>>testDefaultBuilding (in category 'testing') -----
  testDefaultBuilding
  	|topic|
  	topic := CurrentReadOnlySourceFiles cacheDuring: [
  		ClassAPIHelpBuilder buildHelpTopicFrom: Integer ].
  	self assert: topic subtopics size = 2.
  	self assert: topic subtopics first title = 'Instance side'.
  	self assert: topic subtopics last title = 'Class side'
   
  
   !

Item was changed:
+ ----- Method: ClassAPIHelpBuilderTest>>testMethodsButNoSubclasses (in category 'tests') -----
- ----- Method: ClassAPIHelpBuilderTest>>testMethodsButNoSubclasses (in category 'testing') -----
  testMethodsButNoSubclasses
  	|topic|
  	topic := CurrentReadOnlySourceFiles cacheDuring: [
  		ClassAPIHelpBuilder 
  			buildHierarchicalHelpTopicFrom: Integer 
  			withSubclasses: false 
  			withMethods: true ].
  	self assert: topic subtopics size = 2.
  	self assert: topic subtopics first title = 'Instance side'.
  	self assert: topic subtopics last title = 'Class side'
   
  
   !

Item was changed:
+ ----- Method: HelpBrowserTest>>testDefaultHelpBrowser (in category 'tests') -----
- ----- Method: HelpBrowserTest>>testDefaultHelpBrowser (in category 'testing') -----
  testDefaultHelpBrowser
  	
  	| current replacement instance |
  	current := self defaultTestClass defaultHelpBrowser.
  	replacement := AdvancedHelpBrowserDummy.
  	[
  	  self defaultTestClass defaultHelpBrowser: replacement.
  	  self assert: self defaultTestClass defaultHelpBrowser == replacement.
   
  	  instance := self defaultTestClass open.
  	  self assert: instance rootTopic notNil.
  	  self assert: instance isOpen.
  	] ensure: [ self defaultTestClass defaultHelpBrowser: current ]
  	 !

Item was changed:
+ ----- Method: HelpBrowserTest>>testDefaultHelpBrowserIsReplacable (in category 'tests') -----
- ----- Method: HelpBrowserTest>>testDefaultHelpBrowserIsReplacable (in category 'testing') -----
  testDefaultHelpBrowserIsReplacable
  	
  	| current replacement instance |
  	"save the one that is registered"
  	current := self defaultTestClass defaultHelpBrowser.
  	replacement := AdvancedHelpBrowserDummy.
  	[
  	  self defaultTestClass defaultHelpBrowser: replacement.
  	  self assert: self defaultTestClass defaultHelpBrowser == replacement.	  
  	  instance := self defaultTestClass open.
  	  
  	] ensure: [
  		self defaultTestClass defaultHelpBrowser: current
  	]
  	 !

Item was changed:
+ ----- Method: HelpBrowserTest>>testLazyDefaultHelpBrowser (in category 'tests') -----
- ----- Method: HelpBrowserTest>>testLazyDefaultHelpBrowser (in category 'testing') -----
  testLazyDefaultHelpBrowser
  	
  	self assert: self defaultTestClass defaultHelpBrowser notNil!

Item was changed:
+ ----- Method: HelpBrowserTest>>testOpen (in category 'tests') -----
- ----- Method: HelpBrowserTest>>testOpen (in category 'testing') -----
  testOpen
  
  	| browser |
  	[ 
  		"This should not throw an exception."
  		browser := self defaultTestClass open.
  		Project current world doOneCycleNow ]
  		ensure: [
  			browser ifNotNil: [ browser delete ] ]!

Item was changed:
+ ----- Method: HelpBrowserTest>>testRegistration (in category 'tests') -----
- ----- Method: HelpBrowserTest>>testRegistration (in category 'testing') -----
  testRegistration
  	        
  	TheWorldMenu registeredOpenCommands detect: [:each | each first = 'Help Browser'] ifNone: [self fail].
  	!

Item was changed:
+ ----- Method: HelpIconsTest>>testIconCaching (in category 'tests') -----
- ----- Method: HelpIconsTest>>testIconCaching (in category 'testing') -----
  testIconCaching
  	 
  	| first second |
  	#(bookIcon pageIcon refreshIcon) do: [:iconSymbol |
  		first := self defaultTestClass iconNamed: iconSymbol.
  		second := self defaultTestClass iconNamed: iconSymbol.	
  		self assert: first notNil.
  		self assert: first == second.
  	]
  	!

Item was changed:
+ ----- Method: HelpTopicListItemWrapperTest>>testDisplayLabel (in category 'tests') -----
- ----- Method: HelpTopicListItemWrapperTest>>testDisplayLabel (in category 'testing') -----
  testDisplayLabel
  	|instance|
  	instance := self defaultTestClass with: (HelpTopic named: 'My Topic').
  	self assert: instance asString = 'My Topic'
  	!

Item was changed:
+ ----- Method: HelpTopicTest>>testAddingSubtopic (in category 'tests') -----
- ----- Method: HelpTopicTest>>testAddingSubtopic (in category 'testing') -----
  testAddingSubtopic
  
  	|subtopic returned|
  	subtopic := self defaultTestClass named: 'Subtopic'.
  	returned := topic addSubtopic: subtopic.
  	self assert: returned == subtopic.
  	self assert: (topic subtopics includes: subtopic) !

Item was changed:
+ ----- Method: HelpTopicTest>>testInitialization (in category 'tests') -----
- ----- Method: HelpTopicTest>>testInitialization (in category 'testing') -----
  testInitialization
  
  	self assert: topic title = 'Unnamed Topic'.
  	self assert: topic contents isEmpty !

Item was changed:
+ ----- Method: HelpTopicTest>>testInstanceCreation (in category 'tests') -----
- ----- Method: HelpTopicTest>>testInstanceCreation (in category 'testing') -----
  testInstanceCreation
  
  	|instance|
  	instance := self defaultTestClass named: 'My Topic'.
  	self assert: instance title = 'My Topic'.
  !

Item was changed:
+ ----- Method: HelpTopicTest>>testSortOrder (in category 'tests') -----
- ----- Method: HelpTopicTest>>testSortOrder (in category 'testing') -----
  testSortOrder
  
  	|a b c sorted |
  	a := self defaultTestClass named: 'A'.
  	b := self defaultTestClass named: 'B'.
  	c := self defaultTestClass named: 'C'.
  	sorted := (OrderedCollection with: b with: c with: a) sort.
  	self assert: sorted first = a.
  	self assert: sorted last = c.
  	!



More information about the Packages mailing list