<% '******************************************************************** ' Name: ASPUnitRunner.asp ' ' Purpose: Contains the UnitRunner class which is used to render the unit testing UI '******************************************************************** '******************************************************************** ' Include Files '******************************************************************** %> <% Const ALL_TESTCONTAINERS = "All Test Containers" Const ALL_TESTCASES = "All Test Cases" Const FRAME_PARAMETER = "UnitRunner" Const FRAME_SELECTOR = "selector" Const FRAME_RESULTS = "results" Const STYLESHEET = "aspunit/include/ASPUnit.css" Const SCRIPTFILE = "aspunit/include/ASPUnitRunner.js" Class UnitRunner Private m_dicTestContainer Private Sub Class_Initialize() Set m_dicTestContainer = CreateObject("Scripting.Dictionary") End Sub Public Sub AddTestContainer(oTestContainer) m_dicTestContainer.Add TypeName(oTestContainer), oTestContainer End Sub Public Function Display() If (Request.QueryString(FRAME_PARAMETER) = FRAME_SELECTOR) Then DisplaySelector ElseIf (Request.QueryString(FRAME_PARAMETER) = FRAME_RESULTS) Then DisplayResults Else ShowFrameSet End if End Function '******************************************************************** ' Frameset '******************************************************************** Private Function ShowFrameSet() %> <% End Function Private Function GetSelectorFrameSrc() GetSelectorFrameSrc = Request.ServerVariables("SCRIPT_NAME") & "?" & FRAME_PARAMETER & "=" & FRAME_SELECTOR End Function Private Function GetResultsFrameSrc() GetResultsFrameSrc = Request.ServerVariables("SCRIPT_NAME") & "?" & FRAME_PARAMETER & "=" & FRAME_RESULTS End Function '******************************************************************** ' Selector Frame '******************************************************************** Private Function DisplaySelector() %>

Test:

<% = ALL_TESTCONTAINERS %> <% AddTestContainers %>

Test Method:

<% = ALL_TESTCASES %> <% AddTestMethods %>

Show Passing Tests

<% End Function Private Function AddTestContainers() Dim oTestContainer, sTestContainer For Each oTestContainer In m_dicTestContainer.Items() sTestContainer = TypeName(oTestContainer) If (sTestContainer = Request.Form("cboTestContainers")) Then Response.Write("" & sTestContainer) Else Response.Write("" & sTestContainer) End If Next End Function Private Function AddTestMethods() Dim oTestContainer, sContainer, sTestMethod If (Request.Form("cboTestContainers") <> ALL_TESTCONTAINERS And Request.Form("cboTestContainers") <> "") Then sContainer = CStr(Request.Form("cboTestContainers")) Set oTestContainer = m_dicTestContainer.Item(sContainer) For Each sTestMethod In oTestContainer.TestCaseNames() Response.Write("" & sTestMethod) Next End If End Function Private Function TestName(oResult) If (oResult.TestCase Is Nothing) Then TestName = "" Else TestName = TypeName(oResult.TestCase.TestContainer) & "." & oResult.TestCase.TestMethod End If End Function '******************************************************************** ' Results Frame '******************************************************************** Private Function DisplayResults() %> <% Dim oTestResult, oTestSuite Set oTestResult = New TestResult ' Create TestSuite Set oTestSuite = BuildTestSuite() ' Run Tests oTestSuite.Run oTestResult ' Display Results DisplayResultsTable oTestResult %> <% End Function Private Function BuildTestSuite() Dim oTestSuite, oTestContainer, sContainer Set oTestSuite = New TestSuite If (Request.Form("cmdRun") <> "") Then If (Request.Form("cboTestContainers") = ALL_TESTCONTAINERS) Then For Each oTestContainer In m_dicTestContainer.Items() If Not(oTestContainer Is Nothing) Then oTestSuite.AddAllTestCases oTestContainer End If Next Else sContainer = CStr(Request.Form("cboTestContainers")) Set oTestContainer = m_dicTestContainer.Item(sContainer) Dim sTestMethod sTestMethod = Request.Form("cboTestCases") If (sTestMethod = ALL_TESTCASES) Then oTestSuite.AddAllTestCases oTestContainer Else oTestSuite.AddTestCase oTestContainer, sTestMethod End If End If End If Set BuildTestSuite = oTestSuite End Function Private Function DisplayResultsTable(oTestResult) %> <% If Not(oTestResult Is Nothing) Then Dim oResult If (Request.Form("chkShowSuccess") <> "") Then For Each oResult in oTestResult.Successes Response.Write(" ") Next End If For Each oResult In oTestResult.Errors Response.Write(" ") Next For Each oResult In oTestResult.Failures Response.Write(" ") Next Response.Write " " End If %>

Type	Test	Description
Success	" & TestName(oResult) & "	" & oResult.Source & oResult.Description & "
Error	" & TestName(oResult) & "	" & oResult.Source & " (" & Trim(oResult.ErrNumber) & "): " & oResult.Description & "
Failure	" & TestName(oResult) & "	" & oResult.Description & "
" & "Tests: " & oTestResult.RunTests & ", Errors: " & oTestResult.Errors.Count & ", Failures: " & oTestResult.Failures.Count & "

<% End Function Private Function ResultRowClass(oTestResult) if oTestResult.Errors.Count > 0 then ResultRowClass = "error" elseif oTestResult.Failures.Count > 0 then ResultRowClass = "warning" elseif oTestResult.Successes.Count > 0 then ResultRowClass = "success" end if End Function Public Sub OnStartTest() End Sub Public Sub OnEndTest() End Sub Public Sub OnError() End Sub Public Sub OnFailure() End Sub Public Sub OnSuccess() End Sub End Class %>