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

module FieldTests exposing (all)

import Date
import Expect
import Form.Value as Value
import Pages.Field as Field exposing (Field(..))
import Test exposing (Test, describe, test)


all : Test
all =
    describe "FieldTests"
        [ test "options" <|
            \() ->
                (Field.select
                    [ ( "link", Link )
                    , ( "post", Post )
                    ]
                    (\_ -> "Invalid")
                    |> Field.required "Required"
                )
                    |> expect
                        [ ( Just "link", Ok Link )
                        , ( Just "post", Ok Post )
                        , ( Just "unexpected", Err [ "Invalid" ] )
                        ]
        , test "validates optional ints" <|
            \() ->
                Field.int { invalid = \_ -> "Invalid" }
                    |> expect
                        [ ( Just "", Ok Nothing )
                        , ( Nothing, Ok Nothing )
                        , ( Just "1", Ok (Just 1) )
                        , ( Just "1.23", Err [ "Invalid" ] )
                        ]
        , test "required int" <|
            \() ->
                Field.int { invalid = \_ -> "Invalid" }
                    |> Field.required "Required"
                    |> expect
                        [ ( Just "", Err [ "Required" ] )
                        , ( Nothing, Err [ "Required" ] )
                        , ( Just "1", Ok 1 )
                        , ( Just "1.23", Err [ "Invalid" ] )
                        ]
        , test "required int with range" <|
            \() ->
                Field.int { invalid = \_ -> "Invalid" }
                    |> Field.required "Required"
                    |> Field.withMinChecked (Value.int 100) "Must be at least 100"
                    --|> Field.withMax (Value.int 200)
                    |> expect
                        [ ( Just "", Err [ "Required" ] )
                        , ( Nothing, Err [ "Required" ] )
                        , ( Just "1", Err [ "Must be at least 100" ] )
                        , ( Just "100", Ok 100 )
                        , ( Just "1.23", Err [ "Invalid" ] )
                        ]
        , test "required float with range" <|
            \() ->
                Field.float { invalid = \_ -> "Invalid" }
                    |> Field.required "Required"
                    |> Field.withMinChecked (Value.float 100) "Must be at least 100"
                    |> Field.withMaxChecked (Value.float 200) "Too large"
                    |> expect
                        [ ( Just "", Err [ "Required" ] )
                        , ( Nothing, Err [ "Required" ] )
                        , ( Just "1", Err [ "Must be at least 100" ] )
                        , ( Just "100.1", Ok 100.1 )
                        , ( Just "200", Ok 200 )
                        , ( Just "200.1", Err [ "Too large" ] )
                        , ( Just "201", Err [ "Too large" ] )
                        , ( Just "99.9", Err [ "Must be at least 100" ] )
                        ]
        , test "optional text" <|
            \() ->
                Field.text
                    |> expect
                        [ ( Just "", Ok Nothing )
                        , ( Nothing, Ok Nothing )
                        , ( Just "Hello", Ok (Just "Hello") )
                        ]
        , test "text with minlength and maxlength" <|
            \() ->
                Field.text
                    |> Field.withMinLength 4 "Must be at least 4 characters"
                    |> Field.withMaxLength 10 "Must be at most 10 characters"
                    |> expect
                        [ ( Just "", Err [ "Must be at least 4 characters" ] )
                        , ( Nothing, Err [ "Must be at least 4 characters" ] )
                        , ( Just "abc", Err [ "Must be at least 4 characters" ] )
                        , ( Just "abcd", Ok (Just "abcd") )
                        , ( Just "abcde", Ok (Just "abcde") )
                        , ( Just "1234567890", Ok (Just "1234567890") )
                        , ( Just "1234567890a", Err [ "Must be at most 10 characters" ] )
                        ]
        , test "required date with range" <|
            \() ->
                Field.date { invalid = \_ -> "Invalid" }
                    |> Field.required "Required"
                    |> Field.withMinChecked (Value.date (Date.fromRataDie 738156)) "Must be 2022 or later"
                    |> Field.withMaxChecked (Value.date (Date.fromRataDie 738158)) "Choose an earlier date"
                    |> expect
                        [ ( Just "", Err [ "Required" ] )
                        , ( Nothing, Err [ "Required" ] )
                        , ( Just "2021-12-31", Err [ "Must be 2022 or later" ] )
                        , ( Just "2022-01-01", Ok (Date.fromRataDie 738156) )
                        , ( Just "2022-01-02", Ok (Date.fromRataDie 738157) )
                        , ( Just "2022-01-04", Err [ "Choose an earlier date" ] )
                        , ( Just "1.23", Err [ "Invalid" ] )
                        ]
        , test "optional date with range" <|
            \() ->
                Field.date { invalid = \_ -> "Invalid" }
                    |> Field.withMinChecked (Value.date (Date.fromRataDie 738156)) "Must be 2022 or later"
                    |> Field.withMaxChecked (Value.date (Date.fromRataDie 738158)) "Choose an earlier date"
                    |> expect
                        [ ( Just "", Ok Nothing )
                        , ( Nothing, Ok Nothing )
                        , ( Just "2021-12-31", Err [ "Must be 2022 or later" ] )
                        , ( Just "2022-01-01", Ok (Just (Date.fromRataDie 738156)) )
                        , ( Just "2022-01-02", Ok (Just (Date.fromRataDie 738157)) )
                        , ( Just "2022-01-04", Err [ "Choose an earlier date" ] )
                        , ( Just "1.23", Err [ "Invalid" ] )
                        ]
        , test "optional date" <|
            \() ->
                Field.date { invalid = \_ -> "Invalid" }
                    |> expect
                        [ ( Just "", Ok Nothing )
                        , ( Nothing, Ok Nothing )
                        , ( Just "2022-01-01", Ok (Just (Date.fromRataDie 738156)) )
                        ]
        , test "required date" <|
            \() ->
                Field.date { invalid = \_ -> "Invalid" }
                    |> Field.required "Required"
                    |> expect
                        [ ( Just "", Err [ "Required" ] )
                        , ( Nothing, Err [ "Required" ] )
                        , ( Just "2022-01-01", Ok (Date.fromRataDie 738156) )
                        ]
        ]


expect : List ( Maybe String, Result (List error) parsed ) -> Field error parsed data kind constraints -> Expect.Expectation
expect expectations (Field info kind) =
    Expect.all
        (expectations
            |> List.map
                (\( rawInput, expectedOutput ) ->
                    \() ->
                        (case info.decode rawInput of
                            ( Just parsed, [] ) ->
                                Ok parsed

                            ( _, errors ) ->
                                Err errors
                        )
                            |> Expect.equal expectedOutput
                )
        )
        ()


type PostKind
    = Link
    | Post