diff --git a/src/Moose-Core-Tests/MooseEntityTest.class.st b/src/Moose-Core-Tests/MooseEntityTest.class.st index 0e1ca7aa..510dfe0a 100644 --- a/src/Moose-Core-Tests/MooseEntityTest.class.st +++ b/src/Moose-Core-Tests/MooseEntityTest.class.st @@ -30,17 +30,6 @@ MooseEntityTest >> testBookmark [ self assert: bookmark isBookmarked ] -{ #category : #tests } -MooseEntityTest >> testIsRoot [ - | entity | - entity := self actualClass new. - entity stub parents willReturn: { }. - self assert: entity isRoot. - - entity stub parents willReturn: { MooseEntity new }. - self deny: entity isRoot -] - { #category : #tests } MooseEntityTest >> testIsStub [ self deny: self actualClass new isStub. diff --git a/src/Moose-Core/MooseEntity.class.st b/src/Moose-Core/MooseEntity.class.st index daba30eb..020a71c7 100644 --- a/src/Moose-Core/MooseEntity.class.st +++ b/src/Moose-Core/MooseEntity.class.st @@ -184,13 +184,6 @@ MooseEntity >> isMooseEntity [ ^ true ] -{ #category : #testing } -MooseEntity >> isRoot [ - "Return true if the entity is not contained in any other entity." - - ^ self parents isEmpty -] - { #category : #testing } MooseEntity >> isStub [ ^ self attributeAt: #privateIsStub ifAbsent: [ false ] diff --git a/src/Moose-Query/TEntityMetaLevelDependency.trait.st b/src/Moose-Query/TEntityMetaLevelDependency.trait.st index 00fe3cd6..7a190c41 100644 --- a/src/Moose-Query/TEntityMetaLevelDependency.trait.st +++ b/src/Moose-Query/TEntityMetaLevelDependency.trait.st @@ -699,6 +699,16 @@ TEntityMetaLevelDependency >> isIncludedIn: anEntity parentSelectorsCache: paren ^ false ] +{ #category : #testing } +TEntityMetaLevelDependency >> isRoot [ + + + + + ^ self parents isEmpty +] + { #category : #accessing } TEntityMetaLevelDependency >> numberOfChildren [