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

MetacelloSpecTestCase subclass:#MetacelloGroupSpecTestCase

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Metacello-TestsCore-Specs'

!

!MetacelloGroupSpecTestCase methodsFor:'tests'!

testGroupMergeSpec

    | groupA groupB group |

    groupA := self groupSpec

        name: 'Platform';

        includes: 'Core';

        yourself.

    groupB := self groupSpec

        name: 'Platform';

        includes: 'Tests';

        yourself.

    group := groupA mergeSpec: groupB.

    self assert: (group includes includes: 'Core').

    self assert: (group includes includes: 'Tests')

!

testGroupSpec

    | group |

    group := self groupSpec

        name: 'Platform';

        includes: 'Core';

        yourself.

    self assert: group name = 'Platform'.

    self assert: (group includes includes: 'Core').

    group := self groupSpec

        name: 'Platform';

        includes: #('Core');

        yourself.

    self assert: group name = 'Platform'.

    self assert: (group includes includes: 'Core').

    self should: [ group requires: #() ] raise: Error.

    self should: [ group answers: #() ] raise: Error.

    group

        projectDo: [ :ignored | self assert: false ]

        packageDo: [ :ignored | self assert: false ]

        groupDo: [ :grp | self assert: group == grp ]

! !

!MetacelloGroupSpecTestCase class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !