[squeak-dev] The Trunk: Monticello-tfel.320.mcz

Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-tfel.320.mcz

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

Name: Monticello-tfel.320
Author: tfel
Time: 28 August 2009, 8:47:40 am
UUID: cd4608e7-7d48-4111-b449-f0b0b1cf06bd
Ancestors: Monticello-rkrk.319

Adapt a test-case to reality
        - In the MCSnapshotBrowser, when we have abolutely
        nothing selected, we don't want to see an empty
        string, instead we see the packages scripts or, in
        the testcase, the info that this package doesn't define
        any scripts

=============== Diff against Monticello-rkrk.319 ===============

Item was changed:
  ----- Method: MCMethodDefinitionTest>>override (in category 'mocks') -----
  override ^ 1!

Item was changed:
  ----- Method: MCSnapshotBrowserTest>>testNoSelection (in category 'testing') -----
  testNoSelection
  self assertAListMatches: self allCategories.
  self denyAListIncludesAnyOf: self definedClasses.
  self denyAListIncludesAnyOf: self allProtocols.
  self denyAListIncludesAnyOf: self allMethods.
+ "and if there I need to see the packages scripts (or none)"
+ self assertTextIs: '(package defines no scripts)'.!
- self assertTextIs: ''.!

Item was changed:
  ----- Method: MCSnapshotBrowser>>scriptDefinitionString (in category 'text') -----
  scriptDefinitionString
  | defs |
  defs := items select: [:ea | ea isScriptDefinition].
  defs isEmpty ifTrue: [^'(package defines no scripts)'].
+
-
  ^ String streamContents: [:stream |
  defs asArray sort
  do: [:ea | stream nextPutAll: '---------- package ';
  nextPutAll: ea scriptSelector;
  nextPutAll: ' ----------'; cr;
  nextPutAll: ea script; cr]
  separatedBy: [stream cr]].!