elm-pages-v3-beta/tests/StaticHttpRequestsTests.elm

module StaticHttpRequestsTests exposing (all)

import ApiRoute
import Codec
import DataSource exposing (DataSource)
import DataSource.File
import DataSource.Glob as Glob
import DataSource.Http
import Dict
import Expect
import Html
import Json.Decode as JD
import Json.Encode as Encode
import OptimizedDecoder as Decode exposing (Decoder)
import Pages.ContentCache as ContentCache exposing (ContentCache)
import Pages.Internal.NotFoundReason
import Pages.Internal.Platform.Cli exposing (..)
import Pages.Internal.Platform.Effect as Effect exposing (Effect)
import Pages.Internal.Platform.ToJsPayload as ToJsPayload
import Pages.Internal.StaticHttpBody as StaticHttpBody
import Pages.Manifest as Manifest
import Pages.ProgramConfig exposing (ProgramConfig)
import Pages.StaticHttp.Request as Request
import Path
import ProgramTest exposing (ProgramTest)
import Regex
import RenderRequest
import Secrets
import SimulatedEffect.Cmd
import SimulatedEffect.Ports
import SimulatedEffect.Task
import Test exposing (Test, describe, test)


all : Test
all =
    describe "Static Http Requests"
        [ test "initial requests are sent out" <|
            \() ->
                startSimple []
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86 }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":86}"""
                          )
                        ]
        , test "StaticHttp request for initial are resolved" <|
            \() ->
                startSimple
                    [ "post-1" ]
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86 }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":86}"""
                          )
                        ]
        , describe "single page renders"
            [ test "single pages that are pre-rendered" <|
                \() ->
                    startSimple [ "post-1" ]
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
                        |> simulateHttp
                            (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                            """{ "stargazer_count": 86 }"""
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.PageProgress portData ] ->
                                        portData.is404
                                            |> Expect.false "Expected page to be found and rendered"

                                    _ ->
                                        Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
                            )
            , test "data sources are not resolved 404 pages with matching route but not pre-rendered" <|
                \() ->
                    startWithRoutes [ "post-2" ]
                        [ [ "post-1" ]
                        ]
                        []
                        [ ( [ "post-2" ]
                          , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                          )
                        ]
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.PageProgress portData ] ->
                                        portData.is404
                                            |> Expect.true "Expected 404 not found page"

                                    _ ->
                                        Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
                            )
            ]
        , test "the stripped JSON from the same request with different decoders is merged so the decoders succeed" <|
            \() ->
                startSimple
                    [ "post-1" ]
                    (DataSource.map2 Tuple.pair
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
                            (Decode.field "stargazer_count" Decode.int)
                        )
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
                            (Decode.field "language" Decode.string)
                        )
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86, "language": "Elm" }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":86,"language":"Elm"}"""
                          )
                        ]
        , test "andThen" <|
            \() ->
                startSimple
                    [ "elm-pages" ]
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.succeed ())
                        |> DataSource.andThen
                            (\_ ->
                                DataSource.Http.get (Secrets.succeed "NEXT-REQUEST") (Decode.succeed ())
                            )
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """null"""
                    |> simulateHttp
                        (Secrets.succeed (get "NEXT-REQUEST"))
                        """null"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """null"""
                          )
                        , ( get "NEXT-REQUEST"
                          , """null"""
                          )
                        ]
        , test "andThen chain avoids repeat requests" <|
            \() ->
                let
                    getReq : String -> Decoder a -> DataSource a
                    getReq url decoder =
                        DataSource.Http.request
                            (Secrets.succeed (get url))
                            decoder

                    pokemonDetailRequest : DataSource ()
                    pokemonDetailRequest =
                        getReq
                            "https://pokeapi.co/api/v2/pokemon/"
                            (Decode.list
                                (Decode.field "url" Decode.string
                                    |> Decode.map
                                        (\url ->
                                            getReq url
                                                (Decode.field "image" Decode.string)
                                        )
                                )
                            )
                            |> DataSource.resolve
                            |> DataSource.map (\_ -> ())
                in
                startSimple
                    [ "elm-pages" ]
                    pokemonDetailRequest
                    |> simulateMultipleHttp
                        [ ( Secrets.succeed (get "https://pokeapi.co/api/v2/pokemon/")
                          , """[
                            {"url": "url1"},
                            {"url": "url2"},
                            {"url": "url3"},
                            {"url": "url4"},
                            {"url": "url5"},
                            {"url": "url6"},
                            {"url": "url7"},
                            {"url": "url8"},
                            {"url": "url9"},
                            {"url": "url10"}
                            ]"""
                          )
                        , ( Secrets.succeed (get "url1")
                          , """{"image": "image1.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url2")
                          , """{"image": "image2.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url3")
                          , """{"image": "image3.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url4")
                          , """{"image": "image4.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url5")
                          , """{"image": "image5.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url6")
                          , """{"image": "image6.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url7")
                          , """{"image": "image7.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url8")
                          , """{"image": "image8.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url9")
                          , """{"image": "image9.jpg"}"""
                          )
                        , ( Secrets.succeed (get "url10")
                          , """{"image": "image10.jpg"}"""
                          )
                        ]
                    |> expectSuccess
                        [ ( get "https://pokeapi.co/api/v2/pokemon/"
                          , """[{"url":"url1"},{"url":"url2"},{"url":"url3"},{"url":"url4"},{"url":"url5"},{"url":"url6"},{"url":"url7"},{"url":"url8"},{"url":"url9"},{"url":"url10"}]"""
                          )
                        , ( get "url1"
                          , """{"image":"image1.jpg"}"""
                          )
                        , ( get "url2"
                          , """{"image":"image2.jpg"}"""
                          )
                        , ( get "url3"
                          , """{"image":"image3.jpg"}"""
                          )
                        , ( get "url4"
                          , """{"image":"image4.jpg"}"""
                          )
                        , ( get "url5"
                          , """{"image":"image5.jpg"}"""
                          )
                        , ( get "url6"
                          , """{"image":"image6.jpg"}"""
                          )
                        , ( get "url7"
                          , """{"image":"image7.jpg"}"""
                          )
                        , ( get "url8"
                          , """{"image":"image8.jpg"}"""
                          )
                        , ( get "url9"
                          , """{"image":"image9.jpg"}"""
                          )
                        , ( get "url10"
                          , """{"image":"image10.jpg"}"""
                          )
                        ]

        --, test "port is sent out once all requests are finished" <|
        --    \() ->
        --        start
        --            [ ( [ "elm-pages" ]
        --              , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
        --              )
        --            , ( [ "elm-pages-starter" ]
        --              , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") starDecoder
        --              )
        --            ]
        --            |> ProgramTest.simulateHttpOk
        --                "GET"
        --                "https://api.github.com/repos/dillonkearns/elm-pages"
        --                """{ "stargazer_count": 86 }"""
        --            |> ProgramTest.simulateHttpOk
        --                "GET"
        --                "https://api.github.com/repos/dillonkearns/elm-pages-starter"
        --                """{ "stargazer_count": 22 }"""
        --            |> expectSuccess
        --                [ ( "elm-pages"
        --                  , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
        --                      , """{"stargazer_count":86}"""
        --                      )
        --                    ]
        --                  )
        --                , ( "elm-pages-starter"
        --                  , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
        --                      , """{"stargazer_count":22}"""
        --                      )
        --                    ]
        --                  )
        --                ]
        , test "reduced JSON is sent out" <|
            \() ->
                startSimple []
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int))
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86, "unused_field": 123 }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":86}"""
                          )
                        ]
        , test "you can use elm/json decoders with StaticHttp.unoptimizedRequest" <|
            \() ->
                startSimple []
                    (DataSource.Http.unoptimizedRequest
                        (Secrets.succeed
                            { url = "https://api.github.com/repos/dillonkearns/elm-pages"
                            , method = "GET"
                            , headers = []
                            , body = DataSource.Http.emptyBody
                            }
                        )
                        (DataSource.Http.expectUnoptimizedJson
                            (JD.field "stargazer_count" JD.int)
                        )
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86, "unused_field": 123 }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{ "stargazer_count": 86, "unused_field": 123 }"""
                          )
                        ]
        , test "plain string" <|
            \() ->
                startSimple []
                    (DataSource.Http.unoptimizedRequest
                        (Secrets.succeed
                            { url = "https://example.com/file.txt"
                            , method = "GET"
                            , headers = []
                            , body = DataSource.Http.emptyBody
                            }
                        )
                        (DataSource.Http.expectString Ok)
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://example.com/file.txt"))
                        "This is a raw text file."
                    |> expectSuccess
                        [ ( get "https://example.com/file.txt"
                          , "This is a raw text file."
                          )
                        ]
        , test "Err in String to Result function turns into decode error" <|
            \() ->
                startSimple []
                    (DataSource.Http.unoptimizedRequest
                        (Secrets.succeed
                            { url = "https://example.com/file.txt"
                            , method = "GET"
                            , headers = []
                            , body = DataSource.Http.emptyBody
                            }
                        )
                        (DataSource.Http.expectString
                            (\string ->
                                if String.toUpper string == string then
                                    Ok string

                                else
                                    Err "String was not uppercased"
                            )
                        )
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://example.com/file.txt"))
                        "This is a raw text file."
                    |> ProgramTest.expectOutgoingPortValues
                        "toJsPort"
                        (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                        (expectErrorsPort
                            """-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages



String was not uppercased"""
                        )
        , test "POST method works" <|
            \() ->
                startSimple []
                    (DataSource.Http.request
                        (Secrets.succeed
                            { method = "POST"
                            , url = "https://api.github.com/repos/dillonkearns/elm-pages"
                            , headers = []
                            , body = DataSource.Http.emptyBody
                            }
                        )
                        (Decode.field "stargazer_count" Decode.int)
                    )
                    |> simulateHttp
                        (Secrets.succeed (post "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86, "unused_field": 123 }"""
                    |> expectSuccess
                        [ ( { method = "POST"
                            , url = "https://api.github.com/repos/dillonkearns/elm-pages"
                            , headers = []
                            , body = DataSource.Http.emptyBody
                            }
                          , """{"stargazer_count":86}"""
                          )
                        ]
        , test "json is reduced from andThen chains" <|
            \() ->
                startSimple []
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int)
                        |> DataSource.andThen
                            (\_ ->
                                DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") (Decode.field "stargazer_count" Decode.int)
                            )
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 100, "unused_field": 123 }"""
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages-starter"))
                        """{ "stargazer_count": 50, "unused_field": 456 }"""
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":100}"""
                          )
                        , ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
                          , """{"stargazer_count":50}"""
                          )
                        ]
        , test "reduced json is preserved by StaticHttp.map2" <|
            \() ->
                startSimple []
                    (DataSource.map2 (\_ _ -> ())
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int))
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") (Decode.field "stargazer_count" Decode.int))
                    )
                    |> simulateMultipleHttp
                        [ ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages")
                          , """{ "stargazer_count": 100, "unused_field": 123 }"""
                          )
                        , ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages-starter")
                          , """{ "stargazer_count": 50, "unused_field": 456 }"""
                          )
                        ]
                    |> expectSuccess
                        [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                          , """{"stargazer_count":100}"""
                          )
                        , ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
                          , """{"stargazer_count":50}"""
                          )
                        ]
        , test "the port sends out even if there are no http requests" <|
            \() ->
                start
                    [ ( []
                      , DataSource.succeed ()
                      )
                    ]
                    |> expectSuccess []
        , test "the port sends out when there are duplicate http requests for the same page" <|
            \() ->
                startSimple []
                    (DataSource.map2 (\_ _ -> ())
                        (DataSource.Http.get (Secrets.succeed "http://example.com") (Decode.succeed ()))
                        (DataSource.Http.get (Secrets.succeed "http://example.com") (Decode.succeed ()))
                    )
                    |> simulateHttp
                        (Secrets.succeed (get "http://example.com"))
                        """null"""
                    |> expectSuccess
                        [ ( get "http://example.com"
                          , """null"""
                          )
                        ]
        , test "an error is sent out for decoder failures" <|
            \() ->
                startSimple [ "elm-pages" ]
                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.fail "The user should get this message from the CLI."))
                    |> simulateHttp
                        (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                        """{ "stargazer_count": 86 }"""
                    |> ProgramTest.expectOutgoingPortValues
                        "toJsPort"
                        (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                        (expectErrorsPort
                            """-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages

I encountered some errors while decoding this JSON:

  The user should get this message from the CLI.

    {
      "stargazer_count": 86
    }"""
                        )
        , test "an error is sent for missing secrets from continuation requests" <|
            \() ->
                startSimple
                    [ "elm-pages" ]
                    (DataSource.Http.get
                        (Secrets.succeed
                            (\apiKey ->
                                "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
                            )
                            |> Secrets.with "API_KEY"
                        )
                        Decode.string
                        |> DataSource.andThen
                            (\url ->
                                DataSource.Http.get
                                    (Secrets.succeed
                                        (\missingSecret ->
                                            url ++ "?apiKey=" ++ missingSecret
                                        )
                                        |> Secrets.with "MISSING"
                                    )
                                    (Decode.succeed ())
                            )
                    )
                    |> simulateHttp
                        (Secrets.succeed
                            (\apiKey ->
                                get
                                    ("https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey)
                            )
                            |> Secrets.with "API_KEY"
                        )
                        """ "continuation-url" """
                    |> ProgramTest.expectOutgoingPortValues
                        "toJsPort"
                        (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                        (expectErrorsPort
                            """-- MISSING SECRET ----------------------------------------------------- elm-pages

I expected to find this Secret in your environment variables but didn't find a match:

Secrets.get "MISSING"
             ^^^^^^^

So maybe MISSING should be API_KEY"""
                        )
        , test "uses real secrets to perform request and masked secrets to store and lookup response" <|
            \() ->
                startSimple []
                    (DataSource.Http.request
                        (Secrets.succeed
                            (\apiKey bearer ->
                                { url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
                                , method = "GET"
                                , headers = [ ( "Authorization", "Bearer " ++ bearer ) ]
                                , body = DataSource.Http.emptyBody
                                }
                            )
                            |> Secrets.with "API_KEY"
                            |> Secrets.with "BEARER"
                        )
                        (Decode.succeed ())
                    )
                    |> simulateHttpAssert
                        (Secrets.succeed
                            (\apiKey bearer ->
                                { url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
                                , method = "GET"
                                , headers = [ ( "Authorization", "Bearer " ++ bearer ) ]
                                , body = DataSource.Http.emptyBody
                                }
                            )
                            |> Secrets.with "API_KEY"
                            |> Secrets.with "BEARER"
                        )
                        """{ "stargazer_count": 86 }"""
                        (Expect.all
                            [ \requests ->
                                requests.unmasked.headers
                                    |> Expect.equal [ ( "Authorization", "Bearer XYZ789" ) ]
                            , \requests ->
                                requests.unmasked.url
                                    |> Expect.equal "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=ABCD1234"
                            ]
                        )
                    |> expectSuccess
                        [ ( { method = "GET"
                            , url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=<API_KEY>"
                            , headers =
                                [ ( "Authorization", "Bearer <BEARER>" )
                                ]
                            , body = DataSource.Http.emptyBody
                            }
                          , """{}"""
                          )
                        ]
        , describe "staticHttpCache"
            [ test "it doesn't perform http requests that are provided in the http cache flag" <|
                \() ->
                    startWithHttpCache
                        [ ( { url = "https://api.github.com/repos/dillonkearns/elm-pages"
                            , method = "GET"
                            , headers = []
                            , body = StaticHttpBody.EmptyBody
                            }
                          , """{"stargazer_count":86}"""
                          )
                        ]
                        [ ( []
                          , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                          )
                        ]
                        |> expectSuccess
                            [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                              , """{"stargazer_count":86}"""
                              )
                            ]
            , test "it ignores unused cache" <|
                \() ->
                    startSimpleWithCache []
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
                        [ ( { url = "https://this-is-never-used.example.com/"
                            , method = "GET"
                            , headers = []
                            , body = StaticHttpBody.EmptyBody
                            }
                          , """{"stargazer_count":86}"""
                          )
                        ]
                        |> simulateHttp
                            (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                            """{ "stargazer_count": 86 }"""
                        |> expectSuccess
                            [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
                              , """{"stargazer_count":86}"""
                              )
                            ]
            , test "validate DataSource is not stored for any pages" <|
                \() ->
                    startSimple [ "hello" ]
                        (DataSource.succeed "hello"
                            |> DataSource.validate identity
                                (\word ->
                                    DataSource.Http.get (Secrets.succeed ("https://api.spellchecker.com?word=" ++ word))
                                        (Decode.field "isCorrect" Decode.bool
                                            |> Decode.map
                                                (\isCorrect ->
                                                    if isCorrect then
                                                        Ok ()

                                                    else
                                                        Err "Spelling error"
                                                )
                                        )
                                )
                            |> DataSource.map (\_ -> ())
                        )
                        |> simulateHttp
                            (Secrets.succeed (get "https://api.spellchecker.com?word=hello"))
                            """{ "isCorrect": true }"""
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.PageProgress portData ] ->
                                        portData.contentJson
                                            |> Expect.equalDicts Dict.empty

                                    _ ->
                                        Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
                            )
            , test "distill stores encoded JSON but not original DataSource" <|
                \() ->
                    startSimple [ "hello" ]
                        (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                            |> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
                            |> DataSource.map (\_ -> ())
                        )
                        |> simulateHttp
                            (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                            """{ "stargazer_count": 86 }"""
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.PageProgress portData ] ->
                                        portData.contentJson
                                            |> Expect.equalDicts (Dict.fromList [ ( "abc123", "86" ) ])

                                    _ ->
                                        Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
                            )
            , test "distill with andThen chains resolves successfully" <|
                \() ->
                    let
                        andThenExample : DataSource (List ( String, String ))
                        andThenExample =
                            Glob.succeed
                                identity
                                |> Glob.match (Glob.literal "content/glossary/")
                                |> Glob.capture Glob.wildcard
                                |> Glob.match (Glob.literal ".md")
                                |> Glob.toDataSource
                                |> DataSource.map
                                    (List.map
                                        (\topic ->
                                            DataSource.File.bodyWithoutFrontmatter ("content/glossary/" ++ topic ++ ".md")
                                                |> DataSource.map (Tuple.pair topic)
                                        )
                                    )
                                |> DataSource.resolve
                                |> DataSource.map
                                    (\allNotes ->
                                        allNotes
                                            |> List.map
                                                (\note ->
                                                    DataSource.succeed note
                                                )
                                    )
                                |> DataSource.resolve
                    in
                    startWithRoutes [ "hello" ]
                        [ [ "hello" ] ]
                        []
                        [ ( [ "hello" ]
                          , andThenExample
                                |> DataSource.map (\_ -> ())
                          )
                        ]
                        |> ProgramTest.ensureOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.Glob _ ] ->
                                        Expect.pass

                                    _ ->
                                        Expect.fail <|
                                            "Expected a glob, but got\n"
                                                ++ (actualPorts
                                                        |> List.indexedMap
                                                            (\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
                                                        |> String.join "\n\n"
                                                   )
                                                ++ "\n\n"
                            )
                        |> ProgramTest.simulateIncomingPort "fromJsPort"
                            (Encode.object
                                [ ( "tag", Encode.string "GotGlob" )
                                , ( "data"
                                  , Encode.object
                                        [ ( "pattern", Encode.string "content/glossary/*.md" )
                                        , ( "result", Encode.list Encode.string [ "content/glossary/hello.md" ] )
                                        ]
                                  )
                                ]
                            )
                        |> ProgramTest.ensureOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.ReadFile _ ] ->
                                        Expect.pass

                                    _ ->
                                        Expect.fail <|
                                            "Expected a ReadFile, but got\n"
                                                ++ (actualPorts
                                                        |> List.indexedMap
                                                            (\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
                                                        |> String.join "\n\n"
                                                   )
                                                ++ "\n\n"
                            )
                        |> ProgramTest.simulateIncomingPort "fromJsPort"
                            (Encode.object
                                [ ( "tag", Encode.string "GotFile" )
                                , ( "data"
                                  , Encode.object
                                        [ ( "filePath", Encode.string "content/glossary/hello.md" )
                                        , ( "withoutFrontmatter", Encode.string "BODY" )
                                        ]
                                  )
                                ]
                            )
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ {- ToJsPayload.Glob _, ToJsPayload.ReadFile _ -} ToJsPayload.PageProgress portData ] ->
                                        portData.contentJson
                                            |> Expect.equalDicts
                                                (Dict.fromList
                                                    [ ( Request.hash
                                                            { method = "GET"
                                                            , url = "file://content/glossary/hello.md"
                                                            , headers = []
                                                            , body = DataSource.Http.emptyBody
                                                            }
                                                      , "{\"withoutFrontmatter\":\"BODY\"}"
                                                      )
                                                    , ( Request.hash
                                                            { method = "GET"
                                                            , url = "glob://content/glossary/*.md"
                                                            , headers = []
                                                            , body = DataSource.Http.emptyBody
                                                            }
                                                      , "[\"content/glossary/hello.md\"]"
                                                      )
                                                    ]
                                                )

                                    _ ->
                                        Expect.fail <|
                                            "Expected exactly 1 port of type PageProgress. Instead, got \n\n"
                                                ++ (actualPorts
                                                        |> List.indexedMap
                                                            (\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
                                                        |> String.join "\n\n"
                                                   )
                                                ++ "\n\n"
                            )
            , test "distill successfully merges data sources with same key and same encoded JSON" <|
                \() ->
                    startSimple [ "hello" ]
                        (DataSource.map2 (\_ _ -> ())
                            (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                                |> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
                            )
                            (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                                |> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
                            )
                        )
                        |> simulateHttp
                            (Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
                            """{ "stargazer_count": 86 }"""
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (\actualPorts ->
                                case actualPorts of
                                    [ ToJsPayload.PageProgress portData ] ->
                                        portData.contentJson
                                            |> Expect.equalDicts (Dict.fromList [ ( "abc123", "86" ) ])

                                    _ ->
                                        Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
                            )
            , test "distill gives an error if there are matching keys with different encoded JSON" <|
                \() ->
                    startSimple [ "hello" ]
                        (DataSource.map2 (\_ _ -> ())
                            (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
                                |> DataSource.distill "stars" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
                            )
                            (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-markdown") starDecoder
                                |> DataSource.distill "stars" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
                            )
                        )
                        |> simulateMultipleHttp
                            [ ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages")
                              , """{ "stargazer_count": 86 }"""
                              )
                            , ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-markdown")
                              , """{ "stargazer_count": 123 }"""
                              )
                            ]
                        |> ProgramTest.expectOutgoingPortValues
                            "toJsPort"
                            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
                            (expectErrorsPort """-- NON-UNIQUE DISTILL KEYS ----------------------------------------------------- elm-pages
I encountered DataSource.distill with two matching keys that had differing encoded values.

Look for DataSource.distill with the key "stars"

The first encoded value was:
123
-------------------------------
The second encoded value was:

86""")
            ]

        --, describe "generateFiles"
        --    [ test "initial requests are sent out" <|
        --        \() ->
        --            startLowLevel
        --                [ ApiRoute.succeed
        --                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
        --                        (starDecoder
        --                            |> Decode.map
        --                                (\starCount ->
        --                                    { body = "Star count: " ++ String.fromInt starCount
        --                                    }
        --                                )
        --                        )
        --                    )
        --                    |> ApiRoute.literal "test.txt"
        --                    |> ApiRoute.single
        --                ]
        --                []
        --                []
        --                |> ProgramTest.simulateHttpOk
        --                    "GET"
        --                    "https://api.github.com/repos/dillonkearns/elm-pages"
        --                    """{ "stargazer_count": 86 }"""
        --                |> expectSuccessNew
        --                    []
        --                    [ \success ->
        --                        success.filesToGenerate
        --                            |> Expect.equal
        --                                [ { path = [ "test.txt" ]
        --                                  , content = "Star count: 86"
        --                                  }
        --                                ]
        --                    ]
        --    , test "it sends success port when no HTTP requests are needed because they're all cached" <|
        --        \() ->
        --            startLowLevel
        --                [ ApiRoute.succeed
        --                    (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter")
        --                        (starDecoder
        --                            |> Decode.map
        --                                (\starCount ->
        --                                    { body = "Star count: " ++ String.fromInt starCount
        --                                    }
        --                                )
        --                        )
        --                    )
        --                    |> ApiRoute.literal "test.txt"
        --                    |> ApiRoute.single
        --                ]
        --                [ ( { url = "https://api.github.com/repos/dillonkearns/elm-pages"
        --                    , method = "GET"
        --                    , headers = []
        --                    , body = StaticHttpBody.EmptyBody
        --                    }
        --                  , """{"stargazer_count":86}"""
        --                  )
        --                , ( { url = "https://api.github.com/repos/dillonkearns/elm-pages-starter"
        --                    , method = "GET"
        --                    , headers = []
        --                    , body = StaticHttpBody.EmptyBody
        --                    }
        --                  , """{"stargazer_count":23}"""
        --                  )
        --                ]
        --                [ ( []
        --                  , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
        --                  )
        --                ]
        --                |> expectSuccessNew
        --                    [ ( ""
        --                      , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
        --                          , """{"stargazer_count":86}"""
        --                          )
        --                        ]
        --                      )
        --                    ]
        --                    [ \success ->
        --                        success.filesToGenerate
        --                            |> Expect.equal
        --                                [ { path = [ "test.txt" ]
        --                                  , content = "Star count: 23"
        --                                  }
        --                                ]
        --                    ]
        --    ]
        ]


type Route
    = Route String


start : List ( List String, DataSource a ) -> ProgramTest (Model Route) Msg Effect
start pages =
    startWithHttpCache [] pages


startWithHttpCache :
    List ( Request.Request, String )
    -> List ( List String, DataSource a )
    -> ProgramTest (Model Route) Msg Effect
startWithHttpCache =
    startLowLevel []


startLowLevel :
    List (ApiRoute.ApiRoute ApiRoute.Response)
    -> List ( Request.Request, String )
    -> List ( List String, DataSource a )
    -> ProgramTest (Model Route) Msg Effect
startLowLevel apiRoutes staticHttpCache pages =
    let
        contentCache : ContentCache
        contentCache =
            ContentCache.init Nothing

        pageToLoad : List String
        pageToLoad =
            case pages |> List.head |> Maybe.map Tuple.first of
                Just justPageToLoad ->
                    justPageToLoad

                Nothing ->
                    Debug.todo "Error - no pages"

        config : ProgramConfig Msg () Route () () ()
        config =
            { toJsPort = toJsPort
            , fromJsPort = fromJsPort
            , init = \_ _ _ _ _ -> ( (), Cmd.none )
            , getStaticRoutes =
                --StaticHttp.get (Secrets.succeed "https://my-cms.com/posts")
                --    (Decode.field "posts" (Decode.list (Decode.string |> Decode.map Route)))
                pages
                    |> List.map Tuple.first
                    |> List.map (String.join "/")
                    |> List.map Route
                    |> DataSource.succeed
            , handleRoute = \_ -> DataSource.succeed Nothing
            , urlToRoute = .path >> Route
            , update = \_ _ _ _ _ -> ( (), Cmd.none )
            , basePath = []
            , data =
                \(Route pageRoute) ->
                    let
                        thing : Maybe (DataSource a)
                        thing =
                            pages
                                |> Dict.fromList
                                |> Dict.get
                                    (pageRoute
                                        |> String.split "/"
                                        |> List.filter (\pathPart -> pathPart /= "")
                                    )
                    in
                    case thing of
                        Just request ->
                            request |> DataSource.map (\_ -> ())

                        Nothing ->
                            Debug.todo <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
            , site =
                { data = DataSource.succeed ()
                , canonicalUrl = "canonical-site-url"
                , manifest = \_ -> manifest
                , head = \_ -> []
                }
            , view =
                \page _ ->
                    let
                        thing : Maybe (DataSource a)
                        thing =
                            pages
                                |> Dict.fromList
                                |> Dict.get
                                    (page.path |> Path.toSegments)
                    in
                    case thing of
                        Just _ ->
                            \_ _ -> { view = \_ -> { title = "Title", body = Html.text "" }, head = [] }

                        Nothing ->
                            Debug.todo <| "Couldn't find page: " ++ Debug.toString page ++ "\npages: " ++ Debug.toString pages
            , subscriptions = \_ _ _ -> Sub.none
            , routeToPath = \(Route route) -> route |> String.split "/"
            , sharedData = DataSource.succeed ()
            , onPageChange = \_ -> Continue
            , apiRoutes = \_ -> apiRoutes
            , pathPatterns = []
            }

        encodedFlags : Encode.Value
        encodedFlags =
            --{"secrets":
            --        {"API_KEY": "ABCD1234","BEARER": "XYZ789"}, "mode": "prod", "staticHttpCache": {}
            --        }
            Encode.object
                [ ( "secrets"
                  , [ ( "API_KEY", "ABCD1234" )
                    , ( "BEARER", "XYZ789" )
                    ]
                        |> Dict.fromList
                        |> Encode.dict identity Encode.string
                  )
                , ( "mode", Encode.string "prod" )
                , ( "staticHttpCache", encodedStaticHttpCache )
                ]

        encodedStaticHttpCache : Encode.Value
        encodedStaticHttpCache =
            staticHttpCache
                |> List.map
                    (\( request, httpResponseString ) ->
                        ( Request.hash request, Encode.string httpResponseString )
                    )
                |> Encode.object
    in
    {-
       (Model -> model)
       -> ContentCache.ContentCache metadata view
       -> Result (List BuildError) (List ( PagePath, metadata ))
       -> Config pathKey userMsg userModel metadata view
       -> Decode.Value
       -> ( model, Effect pathKey )
    -}
    ProgramTest.createDocument
        { init =
            init
                (RenderRequest.SinglePage
                    RenderRequest.OnlyJson
                    (RenderRequest.Page
                        { path = Path.fromString (pageToLoad |> String.join "/")
                        , frontmatter = Route (pageToLoad |> String.join "/")
                        }
                    )
                    (Encode.object [])
                )
                contentCache
                config
        , update = update contentCache config
        , view = \_ -> { title = "", body = [] }
        }
        |> ProgramTest.withSimulatedEffects simulateEffects
        |> ProgramTest.start (flags (Encode.encode 0 encodedFlags))


startSimple : List String -> DataSource a -> ProgramTest (Model Route) Msg Effect
startSimple route dataSources =
    startWithRoutes route [ route ] [] [ ( route, dataSources ) ]


startSimpleWithCache : List String -> DataSource a -> List ( Request.Request, String ) -> ProgramTest (Model Route) Msg Effect
startSimpleWithCache route dataSources cache =
    startWithRoutes route [ route ] cache [ ( route, dataSources ) ]


startWithRoutes :
    List String
    -> List (List String)
    -> List ( Request.Request, String )
    -> List ( List String, DataSource a )
    -> ProgramTest (Model Route) Msg Effect
startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
    let
        contentCache : ContentCache
        contentCache =
            ContentCache.init Nothing

        config : ProgramConfig Msg () Route () () ()
        config =
            { toJsPort = toJsPort
            , fromJsPort = fromJsPort
            , init = \_ _ _ _ _ -> ( (), Cmd.none )
            , getStaticRoutes =
                staticRoutes
                    |> List.map (String.join "/")
                    |> List.map Route
                    |> DataSource.succeed
            , handleRoute =
                \(Route route) ->
                    staticRoutes
                        |> List.map (String.join "/")
                        |> List.member route
                        |> (\found ->
                                if found then
                                    Nothing

                                else
                                    Just Pages.Internal.NotFoundReason.NoMatchingRoute
                           )
                        |> DataSource.succeed
            , urlToRoute = .path >> Route
            , update = \_ _ _ _ _ -> ( (), Cmd.none )
            , basePath = []
            , data =
                \(Route pageRoute) ->
                    let
                        thing : Maybe (DataSource a)
                        thing =
                            pages
                                |> Dict.fromList
                                |> Dict.get
                                    (pageRoute
                                        |> String.split "/"
                                        |> List.filter (\pathPart -> pathPart /= "")
                                    )
                    in
                    case thing of
                        Just request ->
                            request |> DataSource.map (\_ -> ())

                        Nothing ->
                            DataSource.fail <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
            , site =
                { data = DataSource.succeed ()
                , canonicalUrl = "canonical-site-url"
                , manifest = \_ -> manifest
                , head = \_ -> []
                }
            , view =
                \page _ ->
                    let
                        thing : Maybe (DataSource a)
                        thing =
                            pages
                                |> Dict.fromList
                                |> Dict.get
                                    (page.path |> Path.toSegments)
                    in
                    case thing of
                        Just _ ->
                            \_ _ -> { view = \_ -> { title = "Title", body = Html.text "" }, head = [] }

                        Nothing ->
                            Debug.todo <| "Couldn't find page: " ++ Debug.toString page ++ "\npages: " ++ Debug.toString pages
            , subscriptions = \_ _ _ -> Sub.none
            , routeToPath = \(Route route) -> route |> String.split "/"
            , sharedData = DataSource.succeed ()
            , onPageChange = \_ -> Continue
            , apiRoutes = \_ -> []
            , pathPatterns = []
            }

        encodedFlags : Encode.Value
        encodedFlags =
            --{"secrets":
            --        {"API_KEY": "ABCD1234","BEARER": "XYZ789"}, "mode": "prod", "staticHttpCache": {}
            --        }
            Encode.object
                [ ( "secrets"
                  , [ ( "API_KEY", "ABCD1234" )
                    , ( "BEARER", "XYZ789" )
                    ]
                        |> Dict.fromList
                        |> Encode.dict identity Encode.string
                  )
                , ( "staticHttpCache", encodedStaticHttpCache )
                , ( "mode", Encode.string "dev-server" )
                ]

        encodedStaticHttpCache : Encode.Value
        encodedStaticHttpCache =
            staticHttpCache
                |> List.map
                    (\( request, httpResponseString ) ->
                        ( Request.hash request, Encode.string httpResponseString )
                    )
                |> Encode.object
    in
    {-
       (Model -> model)
       -> ContentCache.ContentCache metadata view
       -> Result (List BuildError) (List ( PagePath, metadata ))
       -> Config pathKey userMsg userModel metadata view
       -> Decode.Value
       -> ( model, Effect pathKey )
    -}
    ProgramTest.createDocument
        { init =
            init
                (RenderRequest.SinglePage
                    RenderRequest.OnlyJson
                    (RenderRequest.Page
                        { path = Path.fromString (pageToLoad |> String.join "/")
                        , frontmatter = Route (pageToLoad |> String.join "/")
                        }
                    )
                    (Encode.object [])
                )
                contentCache
                config
        , update = update contentCache config
        , view = \_ -> { title = "", body = [] }
        }
        |> ProgramTest.withSimulatedEffects simulateEffects
        |> ProgramTest.withSimulatedSubscriptions simulateSubscriptions
        |> ProgramTest.start (flags (Encode.encode 0 encodedFlags))


flags : String -> JD.Value
flags jsonString =
    case JD.decodeString JD.value jsonString of
        Ok value ->
            value

        Err _ ->
            Debug.todo "Invalid JSON value."


sendToJsPort : ToJsPayload.ToJsSuccessPayloadNewCombined -> ProgramTest.SimulatedEffect msg
sendToJsPort value =
    SimulatedEffect.Ports.send "toJsPort" (value |> Codec.encoder (ToJsPayload.successCodecNew2 "" ""))


simulateEffects : Effect -> ProgramTest.SimulatedEffect Msg
simulateEffects effect =
    case effect of
        Effect.NoEffect ->
            SimulatedEffect.Cmd.none

        --            toJsPort value |> Cmd.map never
        Effect.Batch list ->
            list
                |> List.map simulateEffects
                |> SimulatedEffect.Cmd.batch

        Effect.FetchHttp { unmasked, masked } ->
            if unmasked.url |> String.startsWith "file://" then
                let
                    filePath : String
                    filePath =
                        String.dropLeft 7 unmasked.url
                in
                ToJsPayload.ReadFile filePath
                    |> sendToJsPort
                    |> SimulatedEffect.Cmd.map never

            else if unmasked.url |> String.startsWith "glob://" then
                let
                    globPattern : String
                    globPattern =
                        String.dropLeft 7 unmasked.url
                in
                ToJsPayload.Glob globPattern
                    |> sendToJsPort
                    |> SimulatedEffect.Cmd.map never

            else if unmasked.url |> String.startsWith "port://" then
                let
                    portName : String
                    portName =
                        String.dropLeft 7 unmasked.url
                in
                ToJsPayload.Port portName
                    |> sendToJsPort
                    |> SimulatedEffect.Cmd.map never

            else
                ToJsPayload.DoHttp { masked = masked, unmasked = unmasked }
                    |> sendToJsPort
                    |> SimulatedEffect.Cmd.map never

        Effect.SendSinglePage done info ->
            SimulatedEffect.Cmd.batch
                [ info
                    |> Codec.encoder (ToJsPayload.successCodecNew2 "" "")
                    |> SimulatedEffect.Ports.send "toJsPort"
                , if done then
                    SimulatedEffect.Cmd.none

                  else
                    SimulatedEffect.Task.succeed ()
                        |> SimulatedEffect.Task.perform (\_ -> Continue)
                ]

        Effect.Continue ->
            SimulatedEffect.Cmd.none

        Effect.ReadFile _ ->
            SimulatedEffect.Cmd.none

        Effect.GetGlob _ ->
            SimulatedEffect.Cmd.none


expectErrorsPort : String -> List ToJsPayload.ToJsSuccessPayloadNewCombined -> Expect.Expectation
expectErrorsPort expectedPlainString actualPorts =
    case actualPorts |> List.reverse |> List.head of
        Just (ToJsPayload.Errors actualRichTerminalString) ->
            actualRichTerminalString
                |> List.map .title
                |> String.join "\n"
                |> normalizeErrorExpectEqual expectedPlainString

        Nothing ->
            Expect.fail "Expected single error port. Didn't receive any ports."

        _ ->
            Expect.fail <| "Expected single error port. Got\n" ++ String.join "\n\n" (List.map Debug.toString actualPorts)


normalizeErrorExpectEqual : String -> String -> Expect.Expectation
normalizeErrorExpectEqual expectedPlainString actualRichTerminalString =
    actualRichTerminalString
        |> Regex.replace
            -- strip out all possible ANSI sequences
            (Regex.fromString "(\\x9B|\\x1B\\[)[0-?]*[ -/]*[@-~]"
                |> Maybe.withDefault Regex.never
            )
            (\_ -> "")
        |> String.replace "\u{001B}" ""
        |> normalizeNewlines
        |> Expect.equal
            (expectedPlainString |> normalizeNewlines)


normalizeNewlines : String -> String
normalizeNewlines string =
    string
        |> Regex.replace
            (Regex.fromString "(\n)+" |> Maybe.withDefault Regex.never)
            (\_ -> "")
        |> Regex.replace
            (Regex.fromString "( )+" |> Maybe.withDefault Regex.never)
            (\_ -> " ")
        |> String.replace "\u{000D}" ""
        |> Regex.replace
            (Regex.fromString "\\s" |> Maybe.withDefault Regex.never)
            (\_ -> "")


toJsPort : a -> Cmd msg
toJsPort _ =
    Cmd.none


fromJsPort : Sub msg
fromJsPort =
    Sub.none


manifest : Manifest.Config
manifest =
    Manifest.init
        { description = "elm-pages - A statically typed site generator."
        , name = "elm-pages docs"
        , startUrl = Path.join []
        , icons = []
        }


starDecoder : Decoder Int
starDecoder =
    Decode.field "stargazer_count" Decode.int


expectSuccess : List ( Request.Request, String ) -> ProgramTest model msg effect -> Expect.Expectation
expectSuccess expectedRequests previous =
    expectSuccessNew expectedRequests [] previous


expectSuccessNew : List ( Request.Request, String ) -> List (ToJsPayload.ToJsSuccessPayloadNew -> Expect.Expectation) -> ProgramTest model msg effect -> Expect.Expectation
expectSuccessNew expectedRequest expectations previous =
    previous
        |> ProgramTest.expectOutgoingPortValues
            "toJsPort"
            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
            (\value ->
                case value of
                    (ToJsPayload.PageProgress portPayload) :: _ ->
                        let
                            singleExpectation : ToJsPayload.ToJsSuccessPayloadNew -> Expect.Expectation
                            singleExpectation =
                                \subject ->
                                    subject.contentJson
                                        |> Expect.equal
                                            (expectedRequest
                                                |> List.map
                                                    (\( request, response ) ->
                                                        ( Request.hash request, response )
                                                    )
                                                |> Dict.fromList
                                            )
                        in
                        portPayload
                            |> Expect.all
                                (singleExpectation
                                    :: expectations
                                )

                    [ errorPort ] ->
                        Expect.fail <| "Expected success port. Got:\n" ++ Debug.toString errorPort

                    _ ->
                        Expect.fail ("Expected ports to be called once, but instead there were " ++ String.fromInt (List.length value) ++ " calls.")
            )


simulateSubscriptions : a -> ProgramTest.SimulatedSub Msg
simulateSubscriptions _ =
    SimulatedEffect.Ports.subscribe "fromJsPort"
        (JD.field "tag" JD.string
            |> JD.andThen
                (\tag ->
                    case tag of
                        "GotGlob" ->
                            JD.field "data"
                                (JD.map2 Tuple.pair
                                    (JD.field "pattern" JD.string)
                                    (JD.field "result" JD.value)
                                )
                                |> JD.map
                                    (\( globPattern, response ) ->
                                        GotDataBatch
                                            [ { request =
                                                    { masked =
                                                        { url = "glob://" ++ globPattern
                                                        , method = "GET"
                                                        , headers = []
                                                        , body = StaticHttpBody.EmptyBody
                                                        }
                                                    , unmasked =
                                                        { url = "glob://" ++ globPattern
                                                        , method = "GET"
                                                        , headers = []
                                                        , body = StaticHttpBody.EmptyBody
                                                        }
                                                    }
                                              , response = Encode.encode 0 response
                                              }
                                            ]
                                    )

                        "GotFile" ->
                            JD.field "data"
                                (JD.map2 Tuple.pair
                                    (JD.field "filePath" JD.string)
                                    JD.value
                                )
                                |> JD.map
                                    (\( filePath, response ) ->
                                        GotDataBatch
                                            [ { request =
                                                    { masked =
                                                        { url = "file://" ++ filePath
                                                        , method = "GET"
                                                        , headers = []
                                                        , body = StaticHttpBody.EmptyBody
                                                        }
                                                    , unmasked =
                                                        { url = "file://" ++ filePath
                                                        , method = "GET"
                                                        , headers = []
                                                        , body = StaticHttpBody.EmptyBody
                                                        }
                                                    }
                                              , response = Encode.encode 0 response
                                              }
                                            ]
                                    )

                        "GotBatch" ->
                            JD.field "data"
                                (JD.list
                                    (JD.map2
                                        (\requests response ->
                                            { request =
                                                { masked = requests.masked
                                                , unmasked = requests.unmasked
                                                }
                                            , response = response
                                            }
                                        )
                                        (JD.field "request" requestDecoder)
                                        (JD.field "response" JD.string)
                                    )
                                )
                                |> JD.map GotDataBatch

                        _ ->
                            JD.fail "Unexpected subscription tag."
                )
        )
        identity


get : String -> Request.Request
get url =
    { method = "GET"
    , url = url
    , headers = []
    , body = DataSource.Http.emptyBody
    }


post : String -> Request.Request
post url =
    { method = "POST"
    , url = url
    , headers = []
    , body = DataSource.Http.emptyBody
    }


toRequest : Secrets.Value Request.Request -> { masked : Request.Request, unmasked : Request.Request }
toRequest secretsValue =
    { masked = Secrets.maskedLookup secretsValue
    , unmasked = Secrets.maskedLookup secretsValue
    }


simulateHttp : Secrets.Value Request.Request -> String -> ProgramTest model msg effect -> ProgramTest model msg effect
simulateHttp request response program =
    program
        |> ProgramTest.ensureOutgoingPortValues
            "toJsPort"
            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
            (\actualPorts ->
                case actualPorts of
                    [ ToJsPayload.DoHttp _ ] ->
                        Expect.pass

                    _ ->
                        Expect.fail <|
                            "Expected an HTTP request, got:\n"
                                ++ Debug.toString actualPorts
            )
        |> ProgramTest.simulateIncomingPort "fromJsPort"
            (Encode.object
                [ ( "tag", Encode.string "GotBatch" )
                , ( "data"
                  , Encode.list
                        (\req ->
                            Encode.object
                                [ ( "request"
                                  , Encode.object
                                        [ ( "masked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .masked
                                                )
                                          )
                                        , ( "unmasked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .unmasked
                                                )
                                          )
                                        ]
                                  )
                                , ( "response", Encode.string response )
                                ]
                        )
                        [ request ]
                  )
                ]
            )


simulateMultipleHttp : List ( Secrets.Value Request.Request, String ) -> ProgramTest model msg effect -> ProgramTest model msg effect
simulateMultipleHttp requests program =
    program
        |> ProgramTest.ensureOutgoingPortValues
            "toJsPort"
            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
            (\actualPorts ->
                case actualPorts of
                    (ToJsPayload.DoHttp _) :: _ ->
                        -- TODO check count of HTTP requests, and check the URLs
                        Expect.pass

                    _ ->
                        Expect.fail <|
                            "Expected an HTTP request, got:\n"
                                ++ Debug.toString actualPorts
            )
        |> ProgramTest.simulateIncomingPort "fromJsPort"
            (Encode.object
                [ ( "tag", Encode.string "GotBatch" )
                , ( "data"
                  , Encode.list
                        (\( req, response ) ->
                            Encode.object
                                [ ( "request"
                                  , Encode.object
                                        [ ( "masked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .masked
                                                )
                                          )
                                        , ( "unmasked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .unmasked
                                                )
                                          )
                                        ]
                                  )
                                , ( "response", Encode.string response )
                                ]
                        )
                        requests
                  )
                ]
            )


simulateHttpAssert : Secrets.Value Request.Request -> String -> ({ masked : Request.Request, unmasked : Request.Request } -> Expect.Expectation) -> ProgramTest model msg effect -> ProgramTest model msg effect
simulateHttpAssert request response checkRequest program =
    program
        |> ProgramTest.ensureOutgoingPortValues
            "toJsPort"
            (Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
            (\actualPorts ->
                case actualPorts of
                    [ ToJsPayload.DoHttp actualReq ] ->
                        --Expect.pass
                        checkRequest actualReq

                    _ ->
                        Expect.fail <|
                            "Expected an HTTP request, got:\n"
                                ++ Debug.toString actualPorts
            )
        |> ProgramTest.simulateIncomingPort "fromJsPort"
            (Encode.object
                [ ( "tag", Encode.string "GotBatch" )
                , ( "data"
                  , Encode.list
                        (\req ->
                            Encode.object
                                [ ( "request"
                                  , Encode.object
                                        [ ( "masked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .masked
                                                )
                                          )
                                        , ( "unmasked"
                                          , Codec.encodeToValue Request.codec
                                                (toRequest req
                                                    |> .unmasked
                                                )
                                          )
                                        ]
                                  )
                                , ( "response", Encode.string response )
                                ]
                        )
                        [ request ]
                  )
                ]
            )