Extension { #name : #ClassTestCase }

{ #category : #'*Manifest-Core' }
ClassTestCase >> assertValidLintRule: aLintRule [
	| runner |
	runner := ReSmalllintChecker new.
	runner 
		rule: {aLintRule};
		environment: RBBrowserEnvironment default;
		run.
	self
		assert: (runner criticsOf: aLintRule) isEmpty
		description: [ aLintRule rationale ]
]

{ #category : #'*Manifest-Core' }
ClassTestCase >> targetClassEnvironment [
	^RBClassEnvironment class: self targetClass.
]

Extension { #name : #ClassTestCase }

{ #category : #'*Manifest-Core' }
ClassTestCase >> assertValidLintRule: aLintRule [
	| runner |
	runner := ReSmalllintChecker new.
	runner 
		rule: {aLintRule};
		environment: self targetClassEnvironment;
		run.
	self
		assert: (runner criticsOf: aLintRule) isEmpty
		description: [ aLintRule rationale ]
]

{ #category : #'*Manifest-Core' }
ClassTestCase >> targetClassEnvironment [
	^RBClassEnvironment class: self targetClass.
]

Use targetClassEnvironment in ClassTestCase rule validation
Use targetClassEnvironment in ClassTestCase rule validation
estebanlm/pharo,estebanlm/pharo,estebanlm/pharo