SCComponentTestCase

• debug
• makeDebugging
• run:
• runCaseAsFailure:
• tearDown

• browser
• isDebugging
• session

• answer
• componentAnswered
• componentAnswered:

• configureApplicationForComponent:
• newApplicationWithRootClass:
• newApplicationWithRootClass:initializeWith:
• removeApplication
• responseSemaphore

• component
• frontMostComponent

• checkResponseForDebugging:
• errorOccurred:

• back
• backAndRefresh
• establishSession
• followAnchor:
• lastResponse
• refresh
• submitForm:pressingButton:

• isAbstract

inferredType:

UndefinedObject

InitialValue:

a SCBrowserSimulator

inferredType:

SCBrowserSimulator

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

InitialValue:

a Semaphore()

inferredType:

Semaphore

	self resources
		do: [:res | res isAvailable
				ifFalse: [^ res signalInitializationError]].
	[(self class selector: testSelector) makeDebugging; runCase]
		sunitEnsure: [self resources
				do: [:each | each reset]]

	debugging _ true

	debugging _ false.
	^super run: aResult

 
	self makeDebugging.
	super runCaseAsFailure: aSemaphore

	self removeApplication.

	^ browser
		ifNil: [browser _ SCBrowserSimulator new
			responseSemaphore: self responseSemaphore;
			yourself]

	^debugging

	^ pseudomain storedSession

	| checker |
	checker _ pseudomain answerChecker.
	^checker hasAnswer
		ifTrue: [checker answerValue]
		ifFalse: [self error: 'Component did not answer.']

	^ pseudomain answerChecker hasAnswer

 
	| checker |
	checker := pseudomain answerChecker.
	^checker hasAnswer and: [checker answerValue = value]

 
	app preferenceAt: #deploymentMode put: true.
	pseudomain _ SCTestingPseudomain new.
	app preferenceAt: #mainClass put: pseudomain.
	handler _ SCTestErrorHandler new.
	handler case: self.
	app preferenceAt: #errorHandler put: handler

 
	app := SCTesterApplication path: aComponentClass name.
	app configuration 
		addAncestor: WARenderLoopConfiguration localConfiguration.
	app preferenceAt: #rootComponent put: aComponentClass.
	WADispatcher default registerEntryPoint: app at: aComponentClass name.
	self configureApplicationForComponent: aComponentClass.
	^app

	app := SCTesterApplication path: aComponentClass name.
	app configuration 
		addAncestor: WARenderLoopConfiguration localConfiguration.
	app preferenceAt: #rootComponent put: aComponentClass.
	WADispatcher default registerEntryPoint: app at: aComponentClass name.
	self configureApplicationForComponent: aComponentClass.
	pseudomain initializeComponentWith: aBlock.
	^app

	WADispatcher default removeEntryPoint: app.

	^ responseSema
		ifNil: [responseSema _ Semaphore new]

	^pseudomain component

	^ pseudomain component visiblePresentersDo: [:each |
		each isDecoration ifFalse: [^each]]

 
	| a finalResponse |
	finalResponse _ response.
	self isDebugging
		ifTrue: [a _ response anchorWithLabel: 'Debug' ifNone: [^finalResponse].
			[finalResponse _ self followAnchor: a] fork.
			self halt: 'Browser waiting for response, proceed when you''re done debugging.'].
	^ finalResponse

 
	self isDebugging
		ifFalse: [self error: 'An error occured during request processing']

	^self browser back

	self back.
	^self refresh

	^ self checkResponseForDebugging:  (self browser establishSessionAtBase: app baseUrl asString)

 
	| response |
	response _ self browser followAnchor: anAnchor.
	^self checkResponseForDebugging: response

	^self browser lastResponse

	^self browser refresh

 
	| response |
	response _ self browser submitForm: form pressingButton: button.
	^self checkResponseForDebugging: response

	"Override to true if a TestCase subclass is Abstract and should not have
	TestCase instances built from it"

	^self sunitName = #SCComponentTestCase