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

module Example exposing (..)

import Expect exposing (Expectation)
import Pages.Directory as Directory exposing (Directory)
import Pages.PagePath as PagePath exposing (PagePath)
import Test exposing (..)


suite : Test
suite =
    describe "includes"
        [ test "directory with single file" <|
            \() ->
                quickStart
                    |> Directory.includes (Directory.build () [ quickStart ] [ "docs" ])
                    |> Expect.equal True
        , test "directory with two files" <|
            \() ->
                quickStart
                    |> Directory.includes (Directory.build () [ performance, quickStart ] [ "docs" ])
                    |> Expect.equal True
        , test "file in different directory" <|
            \() ->
                notInDocsDir
                    |> Directory.includes (Directory.build () [ performance, quickStart, notInDocsDir ] [ "docs" ])
                    |> Expect.equal False
        , test "index file is in the directory of the same name" <|
            \() ->
                docsIndex
                    |> Directory.includes (Directory.build () [ performance, quickStart, notInDocsDir, docsIndex ] [ "docs" ])
                    |> Expect.equal True
        ]


quickStart =
    PagePath.build () [ "docs", "quick-start" ]


performance =
    PagePath.build () [ "docs", "performance" ]


docsIndex =
    PagePath.build () [ "docs" ]


notInDocsDir =
    PagePath.build () [ "notInDocsDir" ]