The Trunk: Tests-dtl.403.mcz

David T. Lewis uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-dtl.403.mcz

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

Name: Tests-dtl.403
Author: dtl
Time: 10 November 2018, 11:36:09.849981 pm
UUID: 8dbfba83-a491-4618-9a7f-a9e46ccd1a77
Ancestors: Tests-pre.402

Add unit tests in InstallerTest to provide coverage of #mcThing version selection logic in InstallerMonticello. Methods are mocked to allow test execution without connecting to actual repositories or MC caches.

Documents a bug in version selection for Installer-Core version 424 and earlier.

=============== Diff against Tests-pre.402 ===============

Item was added:
+ InstallerMonticello subclass: #InstallerMonticelloMock
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Installer-Core'!
+
+ !InstallerMonticelloMock commentStamp: 'dtl 11/10/2018 21:02' prior: 0!
+ An InstallerMonticelloMock is a Monticello installer with dummy methods
+ to mock the behavior of InstallerMonticello without connection to an
+ actual repository.
+
+ Some related classes are mocked as instances of InstallerTest, which
+ is sufficent to support the tests in InstallerTest.
+ !

Item was added:
+ ----- Method: InstallerMonticelloMock>>initialize (in category 'initialize-release') -----
+ initialize
+ super initialize.
+ "Let a new instance of InstallerTest serve as a mock for the default MCRepositoryGroup"
+ mc := InstallerTest new.!

Item was added:
+ ----- Method: InstallerMonticelloMock>>setMockCache: (in category 'initialize-release') -----
+ setMockCache: fileNames
+ "Set the mock cache with file names similar to what might be expected
+ in a MCRepositoryGroup."
+ mc allFileNames: fileNames!

Item was changed:
  TestCase subclass: #InstallerTest
+ instanceVariableNames: 'listOfFileNames mockAllFileNames mockConfigurationVersion'
- instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Tests-Installer-Core'!

Item was added:
+ ----- Method: InstallerTest>>allFileNames: (in category 'mock MCRepositoryGroup') -----
+ allFileNames: listOfNames
+ "mocking support - the list of names is a stand-in for the cache and file name retrieval"
+ mockAllFileNames := listOfNames
+ !

Item was added:
+ ----- Method: InstallerTest>>allFileNamesOrCache (in category 'mock MCRepositoryGroup') -----
+ allFileNamesOrCache
+ "mock for MCFileBasedRepository>>allFileNamesOrCache"
+ ^mockAllFileNames!

Item was added:
+ ----- Method: InstallerTest>>isKindOf: (in category 'mock MCConfiguration') -----
+ isKindOf: aClass
+ "InstallerMonticello>>mcThing sends isKindOf: MCConfiguration. Let an Instance
+ of InstallerTest stand in as a replacement MCConfiguration for purposes of determing
+ the return value of #mcThing."
+ ^(super isKindOf: aClass)
+ or: [MCConfiguration withAllSubclasses
+ detect: [ :e | e = MCConfiguration]
+ ifNone: false.
+ true]
+ !

Item was added:
+ ----- Method: InstallerTest>>mockConfigurationVersion (in category 'mock MCConfiguration') -----
+ mockConfigurationVersion
+ ^mockConfigurationVersion!

Item was added:
+ ----- Method: InstallerTest>>mockConfigurationVersion: (in category 'mock MCConfiguration') -----
+ mockConfigurationVersion: aVersion
+ mockConfigurationVersion := aVersion
+ !

Item was added:
+ ----- Method: InstallerTest>>setUp (in category 'running') -----
+ setUp
+ "A list of version names as might be answered by MCFileBasedRepository>>versionNamesForPackageNamed:"
+
+ listOfFileNames := #('Chronology-Core-dtl.23.mcz' 'Chronology-Core.UTC-dtl.9.mcz' 'Chronology-Core-XXX.8.mcz' 'Chronology-Core-dtl.24.mcz' 'Chronology-Core-XXX.14.mcz' 'Chronology-Core-bf.7.mcz' 'Chronology-Core-dtl.29.mcz' 'Chronology-Core-cmm.15.mcz' 'Chronology-Core-XXX.9.mcz' 'Chronology-Core-dtl.3.mcz' 'Chronology-Core-dtl.16.mcz' 'Chronology-Core.UTC-dtl.28.mcz' 'Chronology-Core-XXX.21.mcz' 'Chronology-Core.UTC-dtl.20.mcz' 'Chronology-Core-XXX.27.mcz' 'Chronology-Core-mt.11.mcz' 'Chronology-Core-dtl.4.mcz' 'Chronology-Core.UTC-dtl.22.mcz' 'Chronology-Core-XXX.3.mcz' 'Chronology-Core.UTC-dtl.27.mcz' 'Chronology-Core-XXX.10.mcz' 'Chronology-Core-dtl.18.mcz' 'Chronology-Core-bf.4.mcz' 'Chronology-Core-cmm.6.mcz' 'Chronology-Core.UTC-dtl.5.mcz' 'Chronology-Core-dtl.6.mcz' 'Chronology-Core.UTC-dtl.3.mcz' 'Chronology-Core-XXX.26.mcz' 'Chronology-Core-dtl.26.mcz' 'Chronology-Core-XXX.23.mcz' 'Chronology-Core.UTC-dtl.19.mcz' 'Chronology-Core-cmm.3.mcz' 'Chronology-Core-XXX.28.mcz' '
 Chronology-Core-dtl.20.mcz' 'Chronology-Core-ul.8.mcz' 'Chronology-Core-dtl.27.mcz' 'Chronology-Core-dtl.9.mcz' 'Chronology-Core-dtl.11.mcz' 'Chronology-Core.UTC-dtl.10.mcz' 'Chronology-Core-dtl.28.mcz' 'Chronology-Core-XXX.11.mcz' 'Chronology-Core.UTC-dtl.25.mcz' 'Chronology-Core-XXX.18.mcz' 'Chronology-Core-XXX.30.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core.UTC-dtl.26.mcz' 'Chronology-Core-bf.5.mcz' 'Chronology-Core-XXX.5.mcz' 'Chronology-Core.UTC-dtl.15.mcz' 'Chronology-Core.UTC-dtl.11.mcz' 'Chronology-Core-dtl.8.mcz' 'Chronology-Core.UTC-dtl.21.mcz' 'Chronology-Core.UTC-dtl.24.mcz' 'Chronology-Core.UTC-ul.13.mcz' 'Chronology-Core-cmm.2.mcz' 'Chronology-Core-XXX.29.mcz' 'Chronology-Core-dtl.22.mcz' 'Chronology-Core.UTC-dtl.14.mcz' 'Chronology-Core.UTC-dtl.17.mcz' 'Chronology-Core-dtl.25.mcz' 'Chronology-Core.UTC-dtl.7.mcz' 'Chronology-Core.UTC-dtl.30.mcz' 'Chronology-Core-dtl.21.mcz' 'Chronology-Core-XXX.12.mcz' 'Chronology-Core-dtl.10.mcz' 'Chronology-Core-dtl.15.mcz' 'Chr
 onology-Core-XXX.17.mcz' 'Chronology-Core-XXX.25.mcz' 'Chronology-Core.UTC-dtl.23.mcz' 'Chronology-Core-dtl.12.mcz' 'Chronology-Core-dtl.19.mcz' 'Chronology-Core-XXX.19.mcz' 'Chronology-Core.UTC-dtl.29.mcz' 'Chronology-Core-ul.10.mcz' 'Chronology-Core.UTC-dtl.6.mcz' 'Chronology-Core-XXX.4.mcz' 'Chronology-Core.UTC-dtl.18.mcz' 'Chronology-Core.UTC-dtl.16.mcz' 'Chronology-Core-pre.9.mcz' 'Chronology-Core-tcj.12.mcz' 'Chronology-Core.UTC-dtl.8.mcz' 'Chronology-Core-dtl.30.mcz' 'Chronology-Core-XXX.7.mcz' 'Chronology-Core-XXX.6.mcz' 'Chronology-Core-XXX.15.mcz' 'Chronology-Core.UTC-dtl.12.mcz' 'Chronology-Core-dtl.5.mcz' 'Chronology-Core-dtl.7.mcz' 'Chronology-Core-XXX.22.mcz' 'Chronology-Core.UTC-dtl.4.mcz' 'Chronology-Core-dtl.14.mcz' 'Chronology-Core-XXX.24.mcz' 'Chronology-Core-dtl.17.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core-XXX.20.mcz' 'Chronology-Core-XXX.16.mcz').
+
+
+
+ !

Item was changed:
+ ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'package and version') -----
- ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'as yet unclassified') -----
  testPackageAndVersionNameShouldSanitiseInput
  | installer |
  installer := Installer new.
  self assert: {'Foo'. ''} equals: (installer packageAndVersionFrom: 'Foo').
  self assert: {'Foo'. '1'} equals: (installer packageAndVersionFrom: 'Foo(1)').
  self assert: {'Foo'. 'head'} equals: (installer packageAndVersionFrom: ' Foo ( head ) ').!

Item was added:
+ ----- Method: InstallerTest>>testSelectFullySpecifiedBranchVersion (in category 'version selection') -----
+ testSelectFullySpecifiedBranchVersion
+ | installer |
+ installer := InstallerMonticelloMock new.
+
+ installer setMockCache: listOfFileNames.
+ installer packages: { 'Chronology-Core.UTC-dtl.30' }.
+ self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+
+ installer setMockCache: listOfFileNames.
+ installer packages: { 'Chronology-Core.UTC-dtl.30.mcz' }.
+ self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+ !

Item was added:
+ ----- Method: InstallerTest>>testSelectFullySpecifiedVersion (in category 'version selection') -----
+ testSelectFullySpecifiedVersion
+ | installer |
+ installer := InstallerMonticelloMock new.
+
+ installer packages: { 'Chronology-Core-dtl.30' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+
+ installer packages: { 'Chronology-Core-dtl.30.mcz' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName.
+
+ installer packages: { 'Chronology-Core-bf.7' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName.
+
+ installer packages: { 'Chronology-Core-bf.7.mcz' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName.
+
+ !

Item was added:
+ ----- Method: InstallerTest>>testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous (in category 'version selection') -----
+ testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous
+ "Documents a bug in earlier versions of the Monticello installer, in which a
+ requiest to load version 3 would load the wrong version if a version 30 existed
+ in the same repository."
+
+ "(self selector: #testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous) debug"
+
+ | installer |
+ installer := InstallerMonticelloMock new.
+
+ installer packages: { 'Chronology-Core-dtl.3' }.
+ installer setMockCache: listOfFileNames.
+ self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName
+ description: 'version 3 was specified, but version 30 was selected'.
+ self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName
+ description: 'version 3 was specified, but version 30 was selected'.
+ self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName.
+
+ installer packages: { 'Chronology-Core-dtl.3.mcz' }.
+ self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName
+ description: 'version 3 was specified, but version 30 was selected'.
+ self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName.
+ installer setMockCache: listOfFileNames reversed.
+ self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName
+ description: 'version 3 was specified, but version 30 was selected'.
+ self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName.
+ !

Item was added:
+ ----- Method: InstallerTest>>testSelectLatestVersionForPackage (in category 'version selection') -----
+ testSelectLatestVersionForPackage
+ "The listOfFileNames test data set contains more than one Chronology-Core-???.30
+ version differing by author initials. The first detected in sort order is valid, therefore
+ test only for package, branch, and version number."
+ | installer |
+ installer := InstallerMonticelloMock new.
+
+ installer packages: { 'Chronology-Core' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName.
+ self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber.
+
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName.
+ self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber.
+
+ !

Item was added:
+ ----- Method: InstallerTest>>testSelectLatestVersionInBranchForPackage (in category 'version selection') -----
+ testSelectLatestVersionInBranchForPackage
+ "The listOfFileNames test data set contains more than one Chronology-Core.UTC-???.30
+ version differing by author initials. The first detected in sort order is valid, therefore
+ test only for package, branch, and version number."
+ | installer |
+ installer := InstallerMonticelloMock new.
+
+ installer packages: { 'Chronology-Core.UTC' }.
+ installer setMockCache: listOfFileNames.
+ self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName.
+ self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber.
+
+ installer setMockCache: listOfFileNames reversed.
+ self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName.
+ self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber.
+
+ !

Item was added:
+ ----- Method: InstallerTest>>versionNamed: (in category 'mock MCRepositoryGroup') -----
+ versionNamed: fileToLoad
+ "mock for MCFileBasedRepository>>versionNamed:"
+ ^InstallerTest new mockConfigurationVersion: fileToLoad "mock MCConfiguration"!

Item was added:
+ ----- Method: InstallerTest>>versionNamesForPackageNamed: (in category 'mock MCRepositoryGroup') -----
+ versionNamesForPackageNamed: packageName
+ "mock for MCFileBasedRepository>>versionNamesForPackageNamed:"
+ ^ Array streamContents:
+ [ : stream | | wantBranch |
+ wantBranch := packageName includes: $..
+ self allFileNamesOrCache do:
+ [ : each | | mcVersionName branchName |
+ mcVersionName := each asMCVersionName.
+ branchName := wantBranch
+ ifTrue: [mcVersionName packageAndBranchName]
+ ifFalse: [mcVersionName packageName].
+ packageName = branchName ifTrue: [ stream nextPut: mcVersionName ] ] ]!