<%
Class PlainRunnerTheme
Public Sub Render(ByRef objRunner)
%>
MVC-Starter Test Runner
MVC-Starter Test Runner
Dev-only aspunit runner for the separate tests/ IIS application.
Running tests...
<%
End Sub
Private Function GetPagesAsJSArray(ByRef pages)
Dim strReturn, i
strReturn = ""
For i = 0 To (pages.Count - 1)
strReturn = strReturn & """" & Replace(pages.Item(i), """", "\""") & """"
If i < (pages.Count - 1) Then
strReturn = strReturn & ", "
End If
Next
GetPagesAsJSArray = strReturn
End Function
End Class
%>