RSUMLClassBuilderTest613.st

'From Pharo8.0.0 of 22 January 2020 [Build information: Pharo-8.0.0+build.1124.sha.0932da82f08175e906b0e2a8052120c823374e9f (64 Bit)] on 14 October 2020 at 4:11:35.471435 pm'!
RSUMLClassBuilderTest subclass: #RSUMLClassBuilderTest613
	instanceVariableNames: ''
	classVariableNames: ''
	package: 'SmallAmpFinalClasses'!

!RSUMLClassBuilderTest613 methodsFor: 'as yet unclassified' stamp: 'Mehrdad 10/9/2020 17:38'!
testBasic_amp
	"I test correctness of: 

- `^ classes` in method: `RSUMLClassBuilder >> #classes` when {#classes->nil}

"

	<smallAmpCoveres: 'RemoveCaretOperator#RSUMLClassBuilder#classes#10#18'>
	<madeBySmallAmp>
	| builder classes |
	classes := RSAttachPoint withAllSubclasses.
	builder := self classToTest new.
	self assert: builder classes isNil.
	builder
		classes: classes;
		build! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

RSUMLClassBuilderTest613 class
	instanceVariableNames: ''!

!RSUMLClassBuilderTest613 class methodsFor: 'as yet unclassified' stamp: 'Mehrdad 10/9/2020 17:38'!
allTestSelectors
		| answer |
		answer := Set withAll: self testSelectors.
		answer addAll: self superclass allTestSelectors.
		^ answer asSortedCollection asOrderedCollection! !

!RSUMLClassBuilderTest613 class methodsFor: 'as yet unclassified' stamp: 'Mehrdad 10/9/2020 17:38'!
defaultTimeLimit
	^ 3 seconds ! !