elm-review/tests/NoDuplicateImportsTest.elm

port module NoDuplicateImportsTest exposing (all)

import Test exposing (describe, test, Test)
import Lint.Rules.NoDuplicateImports exposing (rule)
import Lint.Types exposing (LintRule, LintError)
import TestUtil exposing (expectErrors)


error : String -> LintError
error =
    LintError "NoDuplicateImports"


tests : List Test
tests =
    [ test "should not report imports that are called only once" <|
        \() ->
            rule """
            import Regex
            import Http
            import Html exposing (..)
            import Lib exposing (a)
            """
                |> expectErrors []
    , test "should report duplicated imports" <|
        \() ->
            rule """
            import Regex
            import Regex
            import Http
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated imports when several modules are imported twice" <|
        \() ->
            rule """
            import Regex
            import Regex
            import Http
            import Http
            """
                |> expectErrors
                    [ error "Http was imported several times"
                    , error "Regex was imported several times"
                    ]
    , test "should only report duplicated imports once" <|
        \() ->
            rule """
            import Regex
            import Regex
            import Regex
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated imports even if they do not import the same thing (1)" <|
        \() ->
            rule """
            import Regex
            import Regex exposing (a)
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated imports even if they do not import the same thing (2)" <|
        \() ->
            rule """
            import Regex
            import Regex exposing (..)
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated imports even if they do not import the same thing (3)" <|
        \() ->
            rule """
            import Regex exposing (..)
            import Regex exposing (a)
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated imports even if they do not import the same thing (4)" <|
        \() ->
            rule """
            import Regex exposing (a)
            import Regex exposing (b)
            """
                |> expectErrors [ error "Regex was imported several times" ]
    , test "should report duplicated submodule imports" <|
        \() ->
            rule """
            import Html.App
            import Html.App
            """
                |> expectErrors [ error "Html.App was imported several times" ]
    , test "should not report the import of a module and its submodule" <|
        \() ->
            rule """
            import Html
            import Html.App
            """
                |> expectErrors []
    ]


all : Test
all =
    describe "NoDuplicatedImports" tests