[squeak-dev] The Trunk: HelpSystem-Tests-tbn.12.mcz

commits at source.squeak.org commits at source.squeak.org
Sun May 9 00:58:33 UTC 2010


Torsten Bergmann uploaded a new version of HelpSystem-Tests to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Tests-tbn.12.mcz

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

Name: HelpSystem-Tests-tbn.12
Author: tbn
Time: 9 May 2010, 2:58:26.362 am
UUID: 85d6aa84-5ffb-db45-bae5-f4c75ff35c99
Ancestors: HelpSystem-Tests-tbn.11

Merge in HelpSystem-Tests-tbn.10 from squeaksource/HelpSystem to allow to set
a new help browser.
Fixes also http://code.google.com/p/pharo/issues/detail?id=2397

=============== Diff against HelpSystem-Tests-tbn.11 ===============

Item was added:
+ ----- 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 added:
+ ----- Method: AdvancedHelpBrowserDummy>>rootTopic (in category 'mocking') -----
+ rootTopic
+ 	^rootTopic!

Item was added:
+ ----- Method: AdvancedHelpBrowserDummy>>isOpen (in category 'testing') -----
+ isOpen
+ 	^isOpen!

Item was changed:
  ----- Method: HelpBrowserTest>>testOpen (in category 'testing') -----
  testOpen
  	|block|
  	block := [
  		|browser|
+ 		browser := self defaultTestClass open.
- 		browser := self defaulTestClass open.
  		World doOneCycleNow. 
  		browser close ].
  	
  	self shouldnt: block raise: Exception
  
  
  		!

Item was added:
+ ----- Method: HelpBrowserTest>>defaultTestClass (in category 'accessing') -----
+ defaultTestClass
+ 	^HelpBrowser!

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

Item was added:
+ ----- Method: AdvancedHelpBrowserDummy>>initialize (in category 'initialize-release') -----
+ initialize
+ 	isOpen := false!

Item was added:
+ ----- 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 added:
+ ----- Method: AdvancedHelpBrowserDummy>>rootTopic: (in category 'mocking') -----
+ rootTopic: aTopic
+ 	rootTopic := aTopic!

Item was added:
+ ----- Method: AdvancedHelpBrowserDummy>>open (in category 'mocking') -----
+ open
+ 	isOpen := true!

Item was added:
+ Object subclass: #AdvancedHelpBrowserDummy
+ 	instanceVariableNames: 'rootTopic isOpen'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'HelpSystem-Tests-Core-UI'!
+ 
+ !AdvancedHelpBrowserDummy commentStamp: 'tbn 5/3/2010 19:30' prior: 0!
+ This is a dummy for a custom Help browser that can be registered as a replacement for the HelpBrowser class.
+ 
+ Instance Variables
+ 	rootTopic:		<HelpTopic>
+ 
+ rootTopic
+ 	- The root help topic
+ !

Item was removed:
- ----- Method: HelpBrowserTest>>defaulTestClass (in category 'accessing') -----
- defaulTestClass
- 	^HelpBrowser!




More information about the Squeak-dev mailing list