"{ Package: 'stx:goodies/builder/reports' }"

"{ NameSpace: Builder }"

XML::SAXDriver subclass:#JUnitReportReader
	instanceVariableNames:'currentTestResult currentOutcome'
	classVariableNames:''
	poolDictionaries:''
	category:'Builder-Reports-Readers'
!


!JUnitReportReader class methodsFor:'reading'!

readFromFile: aStringOrFilename
    ^ self readFromStream: aStringOrFilename asFilename readStream

    "Created: / 12-03-2015 / 17:27:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

readFromStream: aStream
    ^ (self on: aStream beforeScanDo:[:parse| parse validate:false]) testResult

    "Created: / 12-03-2015 / 17:27:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!JUnitReportReader methodsFor:'accessing'!

testResult
    ^ currentTestResult

    "Created: / 12-03-2015 / 17:41:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!JUnitReportReader methodsFor:'content handler'!

endElement: localName namespace: nameSpace prefix: nameSpacePrefix
    localName = 'testcase' ifTrue:[ 
        currentOutcome result == TestResult statePass ifTrue:[ 
            currentTestResult passedOutcomes add: currentOutcome
        ] ifFalse:[ 
        currentOutcome result == TestResult stateFail ifTrue:[ 
            currentTestResult failureOutcomes add: currentOutcome
        ] ifFalse:[  
        currentOutcome result == TestResult stateError ifTrue:[ 
            currentTestResult errorOutcomes add: currentOutcome
        ] ifFalse:[ 
            self error: 'No result for current outcome!!'
        ]]].
    ].

    "Created: / 12-03-2015 / 17:24:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 12-03-2015 / 18:25:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

startDocument
    currentTestResult :=TestResult new.

    "Created: / 12-03-2015 / 17:24:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

startElement: localName namespace: namespace prefix: nameSpacePrefix attributes: attributes
    localName = 'testcase' ifTrue:[ 
        | classname name |

        classname := (attributes detect:[:e | e tag type = 'classname' ]) value.
             name := (attributes detect:[:e | e tag type = 'name' ]) value.

        currentOutcome := TestCaseOutcome forCase: (self testCaseForClassName: classname selector: name).
        currentOutcome result: TestResult statePass.
    ].
    localName = 'error' ifTrue:[ 
        currentOutcome result: TestResult stateError
    ].
    localName = 'failure' ifTrue:[ 
        currentOutcome result: TestResult stateFail
    ]

    "Created: / 12-03-2015 / 17:23:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!JUnitReportReader methodsFor:'private'!

testCaseForClassName:className selector:selector
    "/ Fake for now...
    ^ MessageSend receiver: className selector: selector

    "Created: / 12-03-2015 / 17:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!JUnitReportReader class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !