KCI-KANBAN/tests/integration/TestAuthRoutes.asp

<!-- #include file="../aspunit/Lib/ASPUnit.asp" -->
<!-- #include file="../bootstrap.asp" -->

<%
Call ASPUnit.AddModule( _
    ASPUnit.CreateModule( _
        "Auth Route Integration Tests", _
        Array( _
            ASPUnit.CreateTest("AuthLoginRouteResolvesToAuthControllerLogin"), _
            ASPUnit.CreateTest("AuthCallbackRouteResolvesToAuthControllerCallback"), _
            ASPUnit.CreateTest("AuthLogoutRouteResolvesToAuthControllerLogout") _
        ), _
        ASPUnit.CreateLifeCycle("SetupAuthRoutes", "TeardownAuthRoutes") _
    ) _
)

Call ASPUnit.Run()

Sub SetupAuthRoutes()
    Call ResetTestRuntime()
    Call RegisterDefaultRoutes()
End Sub

Sub TeardownAuthRoutes()
    Call ResetTestRuntime()
End Sub

Function AuthLoginRouteResolvesToAuthControllerLogin()
    Dim routeArray
    routeArray = router.Resolve("GET", "/auth/login")
    Call ASPUnit.Ok( _
        (LCase(routeArray(0)) = "authcontroller" And LCase(routeArray(1)) = "login"), _
        "GET /auth/login should resolve to AuthController.Login" _
    )
End Function

Function AuthCallbackRouteResolvesToAuthControllerCallback()
    Dim routeArray
    routeArray = router.Resolve("GET", "/auth/callback")
    Call ASPUnit.Ok( _
        (LCase(routeArray(0)) = "authcontroller" And LCase(routeArray(1)) = "callback"), _
        "GET /auth/callback should resolve to AuthController.Callback" _
    )
End Function

Function AuthLogoutRouteResolvesToAuthControllerLogout()
    Dim routeArray
    routeArray = router.Resolve("GET", "/auth/logout")
    Call ASPUnit.Ok( _
        (LCase(routeArray(0)) = "authcontroller" And LCase(routeArray(1)) = "logout"), _
        "GET /auth/logout should resolve to AuthController.Logout" _
    )
End Function
%>