Frank I don't want to disrupt the CI server, so this one just to the
Inbox for now.  It makes a test out of loading each of the
external-packages so that, if an "external-package" is suddenly no
longer loadable, the CI server could see it and report it.

I know you were already working on something along these lines, I
think even where you were running each external packages Test suite.
This does not do that, so I'm just in the Inbox for now to await your
feedback.

On Fri, Aug 9, 2013 at 5:22 PM,  <commits at source.squeak.org> wrote:
> A new version of Tests was added to project The Inbox:
> http://source.squeak.org/inbox/Tests-cmm.247.mcz
>
> ==================== Summary ====================
>
> Name: Tests-cmm.247
> Author: cmm
> Time: 8 August 2013, 10:54:50.713 pm
> UUID: 93fd43c1-0207-42ed-bfe5-f2d6acfaa2c2
> Ancestors: Tests-nice.246
>
> Tests for loading each of the external-packages defined in Installer.
>
> =============== Diff against Tests-nice.246 ===============
>
> Item was added:
> + ----- Method: InstallerTest class>>suiteClass (in category 'as yet unclassified') -----
> + suiteClass
> +       ^ InstallerTestSuite!
>
> Item was added:
> + TestSuite subclass: #InstallerTestSuite
> +       instanceVariableNames: ''
> +       classVariableNames: ''
> +       poolDictionaries: ''
> +       category: 'Tests-Installer-Core'!
>
> Item was added:
> + ----- Method: InstallerTestSuite>>ensureTestMethods (in category 'initialize-release') -----
> + ensureTestMethods
> +       "Ensure InstallerTest has test methods for each externally-loadable package defined by Installer.  By generating these methods, they don't have to be maintained separately."
> +       ^ (Installer methodsInCategory: 'external-packages') do:
> +               [ : each | (InstallerTest canUnderstand: each) ifFalse:
> +                       [ InstallerTest
> +                               compile:
> +                                       (String streamContents:
> +                                               [ : stream | stream
> +                                                        nextPutAll: 'test'; nextPutAll: each;
> +                                                        cr; tab;
> +                                                        nextPutAll: 'Installer new merge: #'; nextPutAll: each ])
> +                               classified: '*generated' ] ]!
>
> Item was added:
> + ----- Method: InstallerTestSuite>>initialize (in category 'initialize-release') -----
> + initialize
> +       super initialize.
> +       self ensureTestMethods!
>
>