63 lines
2.6 KiB
Elm
63 lines
2.6 KiB
Elm
module MastodonTest.HttpTest exposing (..)
|
|
|
|
import Dict
|
|
import Test exposing (..)
|
|
import Expect
|
|
import Mastodon.Http exposing (..)
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "Mastodon.Http"
|
|
[ describe "extractLinks"
|
|
[ test "should handle absence of link header" <|
|
|
\() ->
|
|
extractLinks (Dict.fromList [])
|
|
|> Expect.equal { prev = Nothing, next = Nothing }
|
|
, test "should parse a link header" <|
|
|
\() ->
|
|
let
|
|
headers =
|
|
Dict.fromList
|
|
[ ( "link", "<nextLinkUrl>; rel=\"next\", <prevLinkUrl>; rel=\"prev\"" )
|
|
]
|
|
in
|
|
extractLinks headers
|
|
|> Expect.equal { prev = Just "prevLinkUrl", next = Just "nextLinkUrl" }
|
|
, test "should handle link header name case appropriately" <|
|
|
\() ->
|
|
let
|
|
headers =
|
|
Dict.fromList
|
|
[ ( "Link", "<nextLinkUrl>; rel=\"next\", <prevLinkUrl>; rel=\"prev\"" )
|
|
]
|
|
in
|
|
extractLinks headers
|
|
|> Expect.equal { prev = Just "prevLinkUrl", next = Just "nextLinkUrl" }
|
|
, test "should extract a single prev link" <|
|
|
\() ->
|
|
let
|
|
headers =
|
|
Dict.fromList [ ( "link", "<prevLinkUrl>; rel=\"prev\"" ) ]
|
|
in
|
|
extractLinks headers
|
|
|> Expect.equal { prev = Just "prevLinkUrl", next = Nothing }
|
|
, test "should extract a single next link" <|
|
|
\() ->
|
|
let
|
|
headers =
|
|
Dict.fromList [ ( "link", "<nextLinkUrl>; rel=\"next\"" ) ]
|
|
in
|
|
extractLinks headers
|
|
|> Expect.equal { prev = Nothing, next = Just "nextLinkUrl" }
|
|
, test "should only extract prev and next links" <|
|
|
\() ->
|
|
let
|
|
headers =
|
|
Dict.fromList [ ( "link", "<nextLinkUrl>; rel=\"next\", <blurp>; rel=\"blop\"" ) ]
|
|
in
|
|
extractLinks headers
|
|
|> Expect.equal { prev = Nothing, next = Just "nextLinkUrl" }
|
|
]
|
|
]
|