mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-08-17 03:50:24 +03:00
76 lines
2.3 KiB
Elm
76 lines
2.3 KiB
Elm
module NoMissingTypeAnnotationInLetInTest exposing (all)
|
|
|
|
import NoMissingTypeAnnotationInLetIn exposing (rule)
|
|
import Review.Test
|
|
import Test exposing (Test, describe, test)
|
|
|
|
|
|
details : List String
|
|
details =
|
|
[ "Type annotations help you understand what happens in the code, and it will help the compiler give better error messages."
|
|
]
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "NoMissingTypeAnnotationInLetIn"
|
|
[ test "should not report anything for top-level declarations even if they have no type annotation" <|
|
|
\_ ->
|
|
"""module A exposing (..)
|
|
hasTypeAnnotation : Int
|
|
hasTypeAnnotation = 1
|
|
|
|
hasNoTypeAnnotation = doSomething
|
|
"""
|
|
|> Review.Test.run rule
|
|
|> Review.Test.expectNoErrors
|
|
, test "should not report anything when all let in declarations have a type annotation" <|
|
|
\_ ->
|
|
"""module A exposing (..)
|
|
a = let
|
|
b : number
|
|
b = 1
|
|
|
|
c : number
|
|
c = 1
|
|
in
|
|
b + c
|
|
"""
|
|
|> Review.Test.run rule
|
|
|> Review.Test.expectNoErrors
|
|
, test "should report an error when a let in declaration has no type annotation" <|
|
|
\_ ->
|
|
"""module A exposing (..)
|
|
a = let
|
|
hasNoTypeAnnotation_1 = 1
|
|
hasNoTypeAnnotation_2 = 1
|
|
in
|
|
d
|
|
"""
|
|
|> Review.Test.run rule
|
|
|> Review.Test.expectErrors
|
|
[ Review.Test.error
|
|
{ message = "Missing type annotation for `hasNoTypeAnnotation_1`"
|
|
, details = details
|
|
, under = "hasNoTypeAnnotation_1"
|
|
}
|
|
, Review.Test.error
|
|
{ message = "Missing type annotation for `hasNoTypeAnnotation_2`"
|
|
, details = details
|
|
, under = "hasNoTypeAnnotation_2"
|
|
}
|
|
]
|
|
, test "should not report anything for let..in destructuring" <|
|
|
\_ ->
|
|
"""module A exposing (..)
|
|
a = let
|
|
(b, c) = foo
|
|
{e, f} = foo
|
|
(Thing thing) = foo
|
|
in
|
|
d
|
|
"""
|
|
|> Review.Test.run rule
|
|
|> Review.Test.expectNoErrors
|
|
]
|