[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
|