<%
Class ASPUnitRunner
Private _
m_Theme, _
m_Pages
Private Sub Class_Initialize()
Set m_Theme = New ASPUnitUIModern
Set m_Pages = Server.CreateObject("System.Collections.ArrayList")
End Sub
Private Sub Class_Terminate()
Set m_Pages = Nothing
Set m_Theme = Nothing
End Sub
Public Property Set Theme(ByRef objValue)
Set m_Theme = objValue
End Property
Public Property Get Pages
Set Pages = m_Pages
End Property
' Public methods to specify test pages
Public Sub AddPage(strPage)
Call m_Pages.Add(strPage)
End Sub
Public Sub AddPages(arrPages)
Dim i
For i = 0 To UBound(arrPages)
Call AddPage(arrPages(i))
Next
End Sub
' Method to run UI
Public Sub Run()
If m_Pages.Count = 0 Then
Call AddCurrentPage()
End If
Call m_Theme.Render(Me)
End Sub
Private Sub AddCurrentPage()
Call AddPage(Request.ServerVariables("URL"))
End Sub
Public Sub RenderJSLib() %>
<%
End Sub
Public Sub RenderJSInit() %>
<%
End Sub
Private Function GetPagesAsJSString()
Dim strReturn, _
i
strReturn = ""
For i = 0 To (m_Pages.Count - 1)
strReturn = strReturn & "'" & m_Pages.Item(i) & "'"
If i < (m_Pages.Count - 1) Then
strReturn = strReturn & ", "
End If
Next
GetPagesAsJSString = strReturn
End Function
End Class
%>