The Trunk: HelpSystem-Tests-tbn.12.mcz

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!