"{ 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::                                                                                                                        $'
! !