SCTestRunner

• viewHistoryFor:

• initializeForCase:

• renderBrowserAnchorFor:on:
• renderContentOn:
• renderErrorOn:
• renderFailedOn:
• renderHistoryAnchorFor:on:
• renderPassedOn:

• forCase:

	self call: (SCBrowserHistoryView forBrowser: aTestCase browser)

 
	case := aTestCase.
	result := aTestCase run

 
	| browser |
	html
		anchorWithPopupAction: [browser _ WABrowser fullOnClass: aTestCase class.
			browser model selectedMessageName: aTestCase selector.
			self call: browser]
		extent: 825@560
		text: 'Browse'

 
	html heading: case name level: 2.
	html text: result printString.
	html hr.
	self renderFailedOn: html.
	self renderErrorOn: html.
	self renderPassedOn: html.
	html br.
	html
		anchorWithAction: [self answer]
		text: 'close'

 
	html heading: 'Errors:' level: 3.
	result errors
		do: [:each | 
			html cssClass: 'error-test'.
			html
				span: [html text: each printString].
			html space.
			html
				anchorWithAction: [each debug]
				text: 'Debug'.
			html space.
			self renderBrowserAnchorFor: each on: html.
			html space.
			self renderHistoryAnchorFor: each on: html.
			html br].
	html hr

 
	html heading: 'Failed:' level: 3.
	result failures
		do: [:each | 
			html cssClass: 'failed-test'.
			html span: each printString.
			html space.
			html
				anchorWithAction: [each debugAsFailure]
				text: 'Debug'.
			html space.
			self renderBrowserAnchorFor: each on: html.
			html space.
			self renderHistoryAnchorFor: each on: html.
			html br].
	html hr

	html anchorWithAction: [self viewHistoryFor: aCase] text: 'History'

 
	html heading: 'Passed:' level: 3.
	result passed
		do: [:each | 
			html cssClass: 'passed-test'.
			html span: each printString.
			html space.
			self renderBrowserAnchorFor: each on: html.
			html space.
			self renderHistoryAnchorFor: each on: html.
			html br].
	html hr

	^ self new initializeForCase: aTestCase