"{ Package: 'stx:goodies/metacello' }"

MetacelloCommonVersionNumberTestCase subclass:#MetacelloSemanticVersionNumberTestCase

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Metacello-TestsCore'

!

!MetacelloSemanticVersionNumberTestCase methodsFor:'private'!

versionClass

    ^ MetacelloSemanticVersionNumber

! !

!MetacelloSemanticVersionNumberTestCase methodsFor:'test matching'!

testInvalidSpecialMatch

    self should: [ (self versionClass fromString: '1.1.1') match: '?.?.?' ] raise: Error

!

testSpecialMatch

    self assert: ((self versionClass fromString: '1.1.0') match: '?').

    self assert: ((self versionClass fromString: '1.0.0-alpha') match: '?').

    self assert: ((self versionClass fromString: '1.0.0-rc.1+build.1') match: '?').

    self assert: ((self versionClass fromString: '1.1.0') match: '*.*.?').

    self assert: ((self versionClass fromString: '1.3.7+build.2.b8f12d7') match: '?').

    self assert: ((self versionClass fromString: '1.3.7+build.11.e0f985a') match: '?').

    self deny: ((self versionClass fromString: '1.1.0') match: '*.*.*-?').

    self deny: ((self versionClass fromString: '1.1.0') match: '*.*.*+?').

    self assert: ((self versionClass fromString: '1.1.1') match: '*.?')

!

testStandardMatch

    self assert: ((self versionClass fromString: '1.0.0+alpha5.0') match: '1.0.0+alpha#.0').

    self assert: ((self versionClass fromString: '1.1.1') match: '*.*.*').

    self deny: ((self versionClass fromString: '1.1.1') match: '*.*').

    self assert: ((self versionClass fromString: '1.1.0') match: '1.1.*').

    self assert: ((self versionClass fromString: '1.1.0') match: '1.#.*').

    self deny: ((self versionClass fromString: '1.10.0+build.0') match: '1.#.*').

    self assert: ((self versionClass fromString: '1.0.0-alpha5.0') match: '1.0.0-alpha#.0').

    self assert: ((self versionClass fromString: '1.0.0-alpha5+build5.0') match: '1.0.0-alpha5+build#.0').

    self deny: ((self versionClass fromString: '1.0.0-alpha10.0') match: '1.0.0-alpha#.0')

! !

!MetacelloSemanticVersionNumberTestCase methodsFor:'tests'!

sampleVersionStrings

    ^ #('1.0.0+-' '1.0.0-alpha' '1.0.0-alpha.1' '1.0.0-0.3.7' '1.0.0-x.7.z.92')

        , #('1.0.0+build.1' '1.3.7+build.11.e0f985a')

        ,

            #('1.0.0-alpha' '1.0.0-alpha.1' '1.0.0-beta.2' '1.0.0-beta.11' '1.0.0-rc.1' '1.0.0-rc.1+build.1' '1.0.0' '1.0.0+0.3.7' '1.3.7+build' '1.3.7+build.2.b8f12d7' '1.3.7+build.11.e0f985a')

        , #('1.0.0-alp-h-a' '1.0.0-r-c.1' '1.0.0+alp-h-a' '1.0.0+r-c.1')

!

testEqualityComparison

    self deny: '1.0.0+-' asMetacelloSemanticVersionNumber = '1.0.0--' asMetacelloSemanticVersionNumber.

    self sampleVersionStrings

        do: [ :versionString | self assert: versionString asMetacelloSemanticVersionNumber = versionString asMetacelloSemanticVersionNumber ]

!

testLessThanComparison

    self assert: '1.0.0-rc.1+build.1' asMetacelloSemanticVersionNumber < '1.0.0' asMetacelloSemanticVersionNumber.

    self

        assert: '1.0.0-rc.1+build.1' asMetacelloSemanticVersionNumber < '1.0.0+build.0' asMetacelloSemanticVersionNumber.

    self assert: '1.0.0-alpha.1' asMetacelloSemanticVersionNumber < '1.0.0-0.3.7' asMetacelloSemanticVersionNumber.

    self assert: '1.0.0-alpha' asMetacelloSemanticVersionNumber < '1.0.0-alpha.1' asMetacelloSemanticVersionNumber.

    self assert: '1.0.0+-' asMetacelloSemanticVersionNumber < '1.0.0+a' asMetacelloSemanticVersionNumber.

    self assert: '1.0.0-0.3.7' asMetacelloSemanticVersionNumber < '1.0.0-x.7.z.92' asMetacelloSemanticVersionNumber

!

testPrinting

    | x vrsn |

    self sampleVersionStrings

        do: [ :versionString | self assert: versionString = (x := (vrsn := versionString asMetacelloSemanticVersionNumber) printString) ]

!

testSemanticVersioning

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0-rc.1+build.2' '1.0.0-rc.2+build.0').

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0+build.0').

    self validateSemanticVersionStrings: #('1.0.0-alpha' '1.0.0-1').

    self validateSemanticVersionStrings: #('1.0.0-1' '1.0.0+alpha').

    self validateSemanticVersionStrings: #('1.0.0-alpha' '1.0.0+1').

    self validateSemanticVersionStrings: #('1.0.0+alpha' '1.0.0+1').

    self validateSemanticVersionStrings: #('1.0.0--' '1.0.0-a').

    self validateSemanticVersionStrings: #('1.0.0+-' '1.0.0+a').

    self validateSemanticVersionStrings: #('1.0.0-rc.1' '1.0.0' '1.0.0+build.1').

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0-rc.1+build.2' '1.0.0-rc.2+build.3').

    self validateSemanticVersionStrings: #('1.0.0-rc.1' '1.0.0-rc.1+build.2' '1.0.0-rc.2').

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0-rc.1+build.2' '1.0.0-rc.2').

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0-rc.1+build.2' '1.0.0-rc.2+build.2').

    self validateSemanticVersionStrings: #('1.0.0-rc.1+build.1' '1.0.0' '1.0.0+build.0').

    self validateSemanticVersionStrings: #('1.0.0+10000' '1.0.0+a').

    self validateSemanticVersionStrings: #('1.0.0-10000' '1.0.0-a')

!

testSemanticVersioningSpecItem10

    "[Semantic Versioning 2.0.0-rc.1](http://semver.org/)"

    self validateSemanticVersionStrings: #('1.0.0-alpha' '1.0.0-alpha.1' '1.0.0-0.3.7' '1.0.0-x.7.z.92')

!

testSemanticVersioningSpecItem11

    "[Semantic Versioning 2.0.0-rc.1](http://semver.org/)"

    self validateSemanticVersionStrings: #('1.0.0+build.1' '1.3.7+build.11.e0f985a')

!

testSemanticVersioningSpecItem12

    "According to [Semantic Versioning 2.0.0-rc.1](http://semver.org/), the following expression should be true:

	1.0.0-alpha < 1.0.0-alpha.1 < 1.0.0-beta.2 < 1.0.0-beta.11 < 1.0.0-rc.1 < 1.0.0-rc.1+build.1 < 1.0.0 < 

		1.0.0+0.3.7 < 1.3.7+build < 1.3.7+build.2.b8f12d7 < 1.3.7+build.11.e0f985a"

    self

        validateSemanticVersionStrings:

            #('1.0.0-alpha' '1.0.0-alpha.1' '1.0.0-beta.2' '1.0.0-beta.11' '1.0.0-rc.1' '1.0.0-rc.1+build.1' '1.0.0' '1.0.0+0.3.7' '1.3.7+build' '1.3.7+build.2.b8f12d7' '1.3.7+build.11.e0f985a')

!

testSemanticVersioningSubsetCompliance

    "subset of sample versions that are compatible with MetacellVersionNumber syntax"

    self

        validateSemanticVersionStrings:

            #('1.0.0-alpha' '1.0.0-alpha.1' '1.0.0-beta.2' '1.0.0-beta.11' '1.0.0-rc.1' '1.0.0')

!

testVersion05

    | v1 v2 |

    v1 := self versionClass fromString: '3.0.0'.

    v2 := self versionClass fromString: '2.0.0'.

    self assert: v1 > v2

!

testVersion09

    | v1 v2 |

    v1 := self versionClass fromString: '1.0.0'.

    v2 := self versionClass fromString: '0.7.0'.

    self assert: v1 >= v2.

    self assert: v2 <= v1

!

testVersion10

    | x y |

    self

        assert:

            (x := (({(self versionClass fromString: '1.0.0').

            (self versionClass fromString: '0.7.0').

            (self versionClass fromString: '0.8.0').

            (self versionClass fromString: '0.9.0').

            (self versionClass fromString: '1.0.1')} sort: [ :a :b | a <= b ]) collect: [ :each | each versionString ])

                asArray) = (y := #('0.7.0' '0.8.0' '0.9.0' '1.0.0' '1.0.1'))

!

testVersion12

    self deny: (self versionClass fromString: '1.0.0') <= (self versionClass fromString: '0.7.0')

!

testVersion15

    self assert: (self versionClass fromString: '1.0.0-beta.0') < (self versionClass fromString: '1.0.0-beta.1')

!

testVersion16

    self assert: (self versionClass fromString: '1.0.0-beta.0') < (self versionClass fromString: '1.0.0')

!

testVersion17

    self assert: (self versionClass fromString: '1.0.0') > (self versionClass fromString: '1.0.0-0').

    self assert: (self versionClass fromString: '1.0.0') > (self versionClass fromString: '1.0.0-beta.0').

    self assert: (self versionClass fromString: '1.0.0') > (self versionClass fromString: '1.0.0-beta')

!

testVersion18

    | x y |

    self deny: (x := self versionClass fromString: '1.0.0') < (y := self versionClass fromString: '1.0.0-0').

    self assert: (x := self versionClass fromString: '1.0.0') > (y := self versionClass fromString: '1.0.0-0').

    self assert: (x := self versionClass fromString: '1.0.0') < (y := self versionClass fromString: '1.0.0+0').

    self deny: (x := self versionClass fromString: '1.0.0') > (y := self versionClass fromString: '1.0.0+0')

!

testVersion19

    self assert: (self versionClass fromString: '1.0.0-beta.0') < (self versionClass fromString: '1.0.0')

!

validateSemanticVersionStrings: versionStrings

    | versions version |

    versions := versionStrings collect: [ :each | each asMetacelloSemanticVersionNumber ].

    version := versions at: 1.

    2 to: versions size do: [ :index | 

        | nextVersion |

        nextVersion := versions at: index.

        self assert: version < nextVersion.

        version := nextVersion ]

! !

!MetacelloSemanticVersionNumberTestCase class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !