mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-11-29 01:24:35 +03:00
Copy tests
This commit is contained in:
Jeroen Engels
parent
14132fbf29
commit
955c3c56be
@ -1,17 +1,18 @@
|
||||
module Css.NoUnusedCssClasses exposing (rule)
|
||||
module Css.NoUnusedCssClasses exposing (cssFiles, dontReport, rule, withCssUsingFunctions)
|
||||
|
||||
import Css.ClassFunction as ClassFunction exposing (CssArgument)
|
||||
import Dict exposing (Dict)
|
||||
import Elm.Syntax.Expression as Expression exposing (Expression)
|
||||
import Elm.Syntax.Node as Node exposing (Node)
|
||||
import Elm.Syntax.Range exposing (Range)
|
||||
import Regex exposing (Regex)
|
||||
import Review.FilePattern as FilePattern
|
||||
import Review.FilePattern as FilePattern exposing (FilePattern)
|
||||
import Review.Rule as Rule exposing (Rule)
|
||||
import Set exposing (Set)
|
||||
|
||||
|
||||
rule : Rule
|
||||
rule =
|
||||
rule : Configuration -> Rule
|
||||
rule (Configuration configuration) =
|
||||
Rule.newProjectRuleSchema "NoUnusedCssClasses" initialProjectContext
|
||||
|> Rule.withExtraFilesProjectVisitor cssFilesVisitor
|
||||
[ FilePattern.include "**/*.css" ]
|
||||
@ -25,12 +26,46 @@ rule =
|
||||
|> Rule.fromProjectRuleSchema
|
||||
|
||||
|
||||
type Configuration
|
||||
= Configuration
|
||||
{ classesNotToReport : Set String
|
||||
, cssFiles : List FilePattern
|
||||
, cssFunctions : CssFunctions
|
||||
}
|
||||
|
||||
|
||||
type alias CssFunctions =
|
||||
Dict String (ClassFunction.Arguments -> List CssArgument)
|
||||
|
||||
|
||||
cssFiles : List FilePattern -> Configuration
|
||||
cssFiles globs =
|
||||
Configuration
|
||||
{ classesNotToReport = Set.empty
|
||||
, cssFiles = globs
|
||||
, cssFunctions = Dict.fromList ClassFunction.baseCssFunctions
|
||||
}
|
||||
|
||||
|
||||
withCssUsingFunctions :
|
||||
List ( String, ClassFunction.Arguments -> List CssArgument )
|
||||
-> Configuration
|
||||
-> Configuration
|
||||
withCssUsingFunctions newFunctions (Configuration configuration) =
|
||||
Configuration { configuration | cssFunctions = List.foldl (\( key, fn ) acc -> Dict.insert key fn acc) configuration.cssFunctions newFunctions }
|
||||
|
||||
|
||||
moduleVisitor : Rule.ModuleRuleSchema {} ModuleContext -> Rule.ModuleRuleSchema { hasAtLeastOneVisitor : () } ModuleContext
|
||||
moduleVisitor schema =
|
||||
schema
|
||||
|> Rule.withExpressionEnterVisitor expressionVisitor
|
||||
|
||||
|
||||
dontReport : List String -> Configuration -> Configuration
|
||||
dontReport classesNotToReport (Configuration configuration) =
|
||||
Configuration { configuration | classesNotToReport = List.foldl Set.insert configuration.classesNotToReport classesNotToReport }
|
||||
|
||||
|
||||
type alias ProjectContext =
|
||||
{ cssFiles :
|
||||
Dict
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
module Css.NoUnknownCssClassesTest exposing (all)
|
||||
module Css.NoUnusedCssClassesTest exposing (all)
|
||||
|
||||
import Css.ClassFunction as ClassFunction exposing (CssArgument, fromLiteral)
|
||||
import Css.NoUnknownCssClasses exposing (addKnownClasses, cssFiles, rule, withCssUsingFunctions)
|
||||
import Css.NoUnusedCssClasses exposing (cssFiles, dontReport, rule, withCssUsingFunctions)
|
||||
import Dict
|
||||
import Elm.Syntax.Expression exposing (Expression)
|
||||
import Elm.Syntax.Node exposing (Node)
|
||||
@ -14,7 +14,7 @@ import Test exposing (Test, describe, test)
|
||||
|
||||
all : Test
|
||||
all =
|
||||
describe "NoUnknownCssClasses"
|
||||
describe "NoUnusedCssClasses"
|
||||
[ test "should not report an error when strings don't seem to be CSS classes" <|
|
||||
\() ->
|
||||
"""module A exposing (..)
|
||||
@ -35,7 +35,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Html.span [ Attr.class "unknown" ] []
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known", "bar", "unknown2" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known", "bar", "unknown2" ] |> rule)
|
||||
|> Review.Test.expectErrors
|
||||
[ Review.Test.error
|
||||
{ message = "Unknown CSS class \"unknown\""
|
||||
@ -55,7 +55,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Html.span [ Attr.class "known" ] []
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should not report an error when the class argument is empty" <|
|
||||
\() ->
|
||||
@ -66,7 +66,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Html.span [ Attr.class "" ] []
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should not report an error when the class argument is only made out of spaces" <|
|
||||
\() ->
|
||||
@ -77,7 +77,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Html.span [ Attr.class " " ] []
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should report an error when encountering an unknown CSS class through Html.Attributes.class in <| pipe" <|
|
||||
\() ->
|
||||
@ -170,7 +170,7 @@ view model =
|
||||
, ( variable, model.b )
|
||||
]
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectErrors
|
||||
[ Review.Test.error
|
||||
{ message = "Non-literal argument to CSS class function"
|
||||
@ -204,7 +204,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Attr.attribute "class" "known"
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should not report an error when Html.Attributes.attribute is used with something else than \"class\"" <|
|
||||
\() ->
|
||||
@ -215,7 +215,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Attr.attribute "id" model.id
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should not report an error when Html.Attributes.attribute is used with a non-literal attribute name" <|
|
||||
\() ->
|
||||
@ -226,7 +226,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Attr.attribute name model.name
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> rule)
|
||||
|> Review.Test.expectNoErrors
|
||||
, test "should not report an error when encountering a literal CSS class with a custom CSS function" <|
|
||||
\() ->
|
||||
@ -238,7 +238,7 @@ view model =
|
||||
"""
|
||||
|> Review.Test.run
|
||||
(cssFiles [ FilePattern.include "*.css" ]
|
||||
|> addKnownClasses [ "known" ]
|
||||
|> dontReport [ "known" ]
|
||||
|> withCssUsingFunctions [ ( "Class.fromString", classFromAttrFunction ) ]
|
||||
|> rule
|
||||
)
|
||||
@ -253,7 +253,7 @@ view model =
|
||||
"""
|
||||
|> Review.Test.run
|
||||
(cssFiles [ FilePattern.include "*.css" ]
|
||||
|> addKnownClasses [ "known" ]
|
||||
|> dontReport [ "known" ]
|
||||
|> withCssUsingFunctions [ ( "Class.fromString", classFromAttrFunction ) ]
|
||||
|> rule
|
||||
)
|
||||
@ -339,7 +339,7 @@ import Html.Attributes as Attr
|
||||
view model =
|
||||
Attr.class <| if model.condition then "known" else nonLiteral
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> withCssUsingFunctions [ ( "Html.Attributes.class", ClassFunction.smartFirstArgumentIsClass ) ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> withCssUsingFunctions [ ( "Html.Attributes.class", ClassFunction.smartFirstArgumentIsClass ) ] |> rule)
|
||||
|> Review.Test.expectErrors
|
||||
[ Review.Test.error
|
||||
{ message = "Non-literal argument to CSS class function"
|
||||
@ -358,7 +358,7 @@ view model =
|
||||
A -> "known"
|
||||
B -> nonLiteral
|
||||
"""
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> addKnownClasses [ "known" ] |> withCssUsingFunctions [ ( "Html.Attributes.class", ClassFunction.smartFirstArgumentIsClass ) ] |> rule)
|
||||
|> Review.Test.run (cssFiles [ FilePattern.include "*.css" ] |> dontReport [ "known" ] |> withCssUsingFunctions [ ( "Html.Attributes.class", ClassFunction.smartFirstArgumentIsClass ) ] |> rule)
|
||||
|> Review.Test.expectErrors
|
||||
[ Review.Test.error
|
||||
{ message = "Non-literal argument to CSS class function"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user