mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-11-27 11:05:46 +03:00
107 lines
3.9 KiB
Elm
107 lines
3.9 KiB
Elm
module SetCookieTest exposing (all)
|
|
|
|
import Expect
|
|
import Server.SetCookie exposing (..)
|
|
import Test exposing (Test, describe, test)
|
|
import Time
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "SetCookie"
|
|
[ test "simple value" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withoutPath
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "sessionId" "38afes7a8"
|
|
|> toString
|
|
|> Expect.equal "sessionId=38afes7a8"
|
|
, test "with expiration" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withoutPath
|
|
|> withExpiration (Time.millisToPosix 1445412480000)
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Expires=Wed, 21 Oct 2015 07:28:00 GMT"
|
|
, test "http-only, multiple values" <|
|
|
\() ->
|
|
initOptions
|
|
|> withoutPath
|
|
|> nonSecure
|
|
|> withExpiration (Time.millisToPosix 1445412480000)
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Expires=Wed, 21 Oct 2015 07:28:00 GMT; HttpOnly"
|
|
, test "immediate expiration" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withoutPath
|
|
|> withImmediateExpiration
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Expires=Thu, 01 Jan 1970 00:00:00 GMT"
|
|
, test "with path" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withPath "/"
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Path=/"
|
|
, test "with max-age" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withMaxAge 123
|
|
|> makeVisibleToJavaScript
|
|
|> withoutPath
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Max-Age=123"
|
|
, test "encodes values" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withoutPath
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "This needs encoding & it uses url encoding"
|
|
|> toString
|
|
|> Expect.equal "id=This%20needs%20encoding%20%26%20it%20uses%20url%20encoding"
|
|
, test "with domain" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withoutPath
|
|
|> withDomain "example.com"
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Domain=example.com"
|
|
, test "secure" <|
|
|
\() ->
|
|
initOptions
|
|
|> makeVisibleToJavaScript
|
|
|> withoutPath
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; Secure"
|
|
, test "SameSite" <|
|
|
\() ->
|
|
initOptions
|
|
|> nonSecure
|
|
|> withSameSite Strict
|
|
|> withoutPath
|
|
|> makeVisibleToJavaScript
|
|
|> setCookie "id" "a3fWa"
|
|
|> toString
|
|
|> Expect.equal "id=a3fWa; SameSite=Strict"
|
|
]
|