WIP test for checking email confirmation code

Author: blaix

src/Route/Session.gren

@@ -67,8 +67,8 @@ confirmEmail :
     }
     -> Task Never Response
 confirmEmail { db, requestData, response } =
-    Task.succeed response  
-    --Route.Error.invalidRequestData response "Invalid token"
+    --Task.succeed response  
+    Route.Error.invalidRequestData response "Invalid token"
 
 
 -- ACTIONS

src/Test/E2E/Helper.gren

@@ -2,6 +2,7 @@ module Test.E2E.Helper exposing
     ( createSession
     , expectBadStatus
     , expectJson
+    , expectStringContains
     , initDb
     , get
     , post
@@ -40,11 +41,11 @@ url path =
 
 
 
-get : HttpClient.Permission -> String -> Task HttpClient.Error (HttpClient.Response {})
+get : HttpClient.Permission -> String -> Task HttpClient.Error (HttpClient.Response String)
 get httpPerm path =
     url path
         |> HttpClient.get
-        |> HttpClient.expectAnything
+        |> HttpClient.expectString
         |> HttpClient.send httpPerm
 
 
@@ -109,3 +110,15 @@ createSession { db, secureContext } =
                     , user = user 
                     }
             )
+
+
+-- STRINGS
+
+expectStringContains : String -> String -> Expectation
+expectStringContains expected actual =
+    if String.contains expected actual then
+        Expect.pass
+    else
+        "Expected \"" ++ actual ++ "\" to contain \"" ++ expected ++ "\""
+            |> Expect.fail
+

src/Test/E2E/Route/Session.gren

@@ -100,22 +100,27 @@ tests httpPerm secureContext =
                         }
 
                 httpGet token =
-                    Route.Session.confirmEmailPath { token = Just token }
+                    Route.Session.confirmEmailPath { token = token }
                         |> Helper.get httpPerm
 
             in
-            [ awaitError "GET with bad token" (httpGet "bad token") <| \responseError ->
-                test "is auth error" <| \_ ->
+            [ awaitError "GET with missing token" (httpGet Nothing) <| \responseError ->
+                test "is client error" <| \_ ->
+                    expectBadStatus 400 responseError
+
+            , awaitError "GET with bad token" (httpGet (Just "bad token")) <| \responseError ->
+                test "is client error" <| \_ ->
                     expectBadStatus 400 responseError
 
             , await "create test session" createTestSession <| \session ->
-              await "GET with good token" (httpGet session.emailConfirmationToken) <|
+              await "GET with good token" (httpGet (Just session.emailConfirmationToken)) <|
                 \response ->
                     concat
                         [ test "is success" <| \_ ->
                             Expect.equal 200 response.statusCode
                         , test "responds with confirmation code" <| \_ ->
-                            Expect.fail "TODO: check response for confirmation code"
+                            response.data
+                                |> Helper.expectStringContains "TODO: real code"
                         ]
             ]
         ]