elm-review/tests/CognitiveComplexityTest.elm
2022-04-22 22:04:13 +02:00

558 lines
17 KiB
Elm

module CognitiveComplexityTest exposing (all)
import CognitiveComplexity exposing (rule)
import Elm.Syntax.Range exposing (Range)
import Expect exposing (Expectation)
import Review.Test
import Test exposing (Test, describe, test)
all : Test
all =
describe "CognitiveComplexity"
[ test "should not report an error when the complexity is lower than the threshold" <|
\() ->
"""module A exposing (..)
a = 1
"""
|> Review.Test.run (rule 1)
|> Review.Test.expectNoErrors
, test "should report an error when the complexity is higher than the threshold" <|
\() ->
"""module A exposing (..)
fun n =
if cond then -- +1
if cond then -- +2
if cond then -- +3
if cond then -- +4
1
else
2
else
2
else
2
else
2
"""
|> expect
[ { name = "fun"
, complexity = 10
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +2 for the if expression (including 1 for nesting)
Line 5: +3 for the if expression (including 2 for nesting)
Line 6: +4 for the if expression (including 3 for nesting)
""" ]
}
]
, test "should count a simple value or operation as 0" <|
\() ->
"""module A exposing (..)
fun n =
n + 1
"""
|> expect [ { name = "fun", complexity = 0, details = [] } ]
, test "should count if expression as 1" <|
\() ->
"""module A exposing (..)
fun n =
if cond then
1
else
2
"""
|> expect
[ { name = "fun"
, complexity = 1
, details = [ "Line 3: +1 for the if expression" ]
}
]
, test "should count if else expressions" <|
\() ->
"""module A exposing (..)
fun n =
if cond then -- +1
1
else if cond then -- +1
2
else
2
"""
|> expect
[ { name = "fun"
, complexity = 2
, details = [ String.trim """
Line 3: +1 for the if expression
Line 5: +1 for the else if expression
""" ]
}
]
, test "should properly decrement when exiting else expression" <|
\() ->
"""module A exposing (..)
fun n =
let
_ =
if cond then -- +1
1
else if cond then -- +1
2
else
3
in
if cond then -- +1
4
else
5
"""
|> expect
[ { name = "fun"
, complexity = 3
, details = [ String.trim """
Line 5: +1 for the if expression
Line 7: +1 for the else if expression
Line 12: +1 for the if expression
""" ]
}
]
, test "should increment nesting when inside a let function" <|
\() ->
"""module A exposing (..)
fun n =
let
fn n =
if cond then -- +2
1
else
2
in
fn n
"""
|> expect
[ { name = "fun"
, complexity = 2
, details = [ String.trim """
Line 5: +2 for the if expression (including 1 for nesting)
""" ]
}
]
, test "should properly decrement nesting when exiting a let function" <|
\() ->
"""module A exposing (..)
fun n =
let
fn1 n = -- nesting increment
1
fn2 =
if cond then -- +1
1
else
2
in
1
"""
|> expect
[ { name = "fun"
, complexity = 1
, details = [ String.trim """
Line 8: +1 for the if expression
""" ]
}
]
, test "should count case expression as 1" <|
\() ->
"""module A exposing (..)
fun n =
case n of -- +1
1 -> ()
2 -> ()
3 -> ()
4 -> ()
_ -> ()
"""
|> expect
[ { name = "fun"
, complexity = 1
, details = [ "Line 3: +1 for the case expression" ]
}
]
, test "should count nesting of case expressions" <|
\() ->
"""module A exposing (..)
fun n =
case n of -- +1
1 -> ()
2 -> ()
3 -> case n of -- +2
_ -> ()
4 -> ()
_ -> ()
"""
|> expect
[ { name = "fun"
, complexity = 3
, details = [ String.trim """
Line 3: +1 for the case expression
Line 6: +2 for the case expression (including 1 for nesting)
""" ]
}
]
, test "should decrement the nesting when leaving a nested structure" <|
\() ->
"""module A exposing (..)
fun n =
if cond then -- +1
if cond then -- +2
if cond then -- +3
1
else
2
else
2
else
case n of -- +2
() -> ()
"""
|> expect
[ { name = "fun"
, complexity = 8
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +2 for the if expression (including 1 for nesting)
Line 5: +3 for the if expression (including 2 for nesting)
Line 12: +2 for the case expression (including 1 for nesting)
""" ]
}
]
, test "should increment once when using the && boolean operator" <|
\() ->
"""module A exposing (..)
fun n =
if -- +1
a && b && c && d -- +1 for the usage of &&
then
1
else
2
"""
|> expect
[ { name = "fun"
, complexity = 2
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +1 for the use of `&&`
""" ]
}
]
, test "should increment once when using the || boolean operator" <|
\() ->
"""module A exposing (..)
fun n =
if -- +1
a || b || c || d -- +1 for the usage of ||
then
1
else
2
"""
|> expect
[ { name = "fun"
, complexity = 2
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +1 for the use of `||`
""" ]
}
]
, test "should increment when mixing boolean operators" <|
\() ->
"""module A exposing (..)
fun n =
if -- +1
a && b && c -- +1
|| d || e -- +1
&& f -- +1
then
1
else
2
"""
|> expect
[ { name = "fun"
, complexity = 4
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +1 for the use of `||`
Line 4: +1 for the use of `&&`
Line 5: +1 for the use of `&&`
""" ]
}
]
, test "should not increment for anonymous functions" <|
\() ->
"""module A exposing (..)
fun n =
List.map (\\m -> m + 1) n
"""
|> expect
[ { name = "fun"
, complexity = 0
, details = []
}
]
, test "should increment the nesting inside anonymous functions" <|
\() ->
"""module A exposing (..)
fun n =
List.map
(\\m ->
if cond then -- +2
1
else
2
)
n
"""
|> expect
[ { name = "fun"
, complexity = 2
, details = [ "Line 5: +2 for the if expression (including 1 for nesting)" ]
}
]
, test "should properly decrement the nesting when exiting an anonymous function" <|
\() ->
"""module A exposing (..)
fun n =
let
_ = List.map (\\m -> m + 1) n
in
if cond then -- +1
1
else
2
"""
|> expect
[ { name = "fun"
, complexity = 1
, details = [ "Line 6: +1 for the if expression" ]
}
]
, test "should increment when finding a recursive call" <|
\() ->
"""module A exposing (..)
fun n =
if n > 0 then -- +1
1 + fun (n - 1) -- +1
else
1
"""
|> expectAtExactly
[ { name = "fun"
, complexity = 2
, atExactly = { start = { row = 2, column = 1 }, end = { row = 2, column = 4 } }
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +1 for the recursive call
""" ]
}
]
, test "should only increment once, even if there are multiple recursive calls" <|
\() ->
"""module A exposing (..)
fib n =
if n > 0 then -- +1
fib (n - 1) -- +1
+ fib (n - 2) -- +0
else
0
"""
|> expectAtExactly
[ { name = "fib"
, complexity = 2
, atExactly = { start = { row = 2, column = 1 }, end = { row = 2, column = 4 } }
, details = [ String.trim """
Line 3: +1 for the if expression
Line 4: +1 for the recursive call
""" ]
}
]
, test "should increment the complexity for every recursive call in a chain" <|
\() ->
"""module A exposing (..)
fun1 n = -- +1
fun2 n
fun2 n = -- +1
fun1 n
"""
|> expectAtExactly
[ { name = "fun1"
, complexity = 1
, atExactly = { start = { row = 2, column = 1 }, end = { row = 2, column = 5 } }
, details = [ String.trim """
Line 3: +1 for the indirect recursive call to fun2
""" ]
}
, { name = "fun2"
, complexity = 1
, atExactly = { start = { row = 5, column = 1 }, end = { row = 5, column = 5 } }
, details = [ String.trim """
Line 6: +1 for the indirect recursive call to fun1
""" ]
}
]
, test "should increment the complexity for every recursive call in a chain, for each different function call" <|
\() ->
"""module A exposing (..)
fun1 n =
fun2 n -- +1
+ fun2 n -- +0, already counted
+ fun1 n -- +1
fun2 n =
fun1 n -- +1
"""
|> expectAtExactly
[ { name = "fun1"
, complexity = 2
, atExactly = { start = { row = 2, column = 1 }, end = { row = 2, column = 5 } }
, details =
[ String.trim """
Line 3: +1 for the indirect recursive call to fun2
Line 5: +1 for the recursive call
"""
]
}
, { name = "fun2"
, complexity = 1
, atExactly = { start = { row = 7, column = 1 }, end = { row = 7, column = 5 } }
, details = [ String.trim """
Line 8: +1 for the indirect recursive call to fun1
""" ]
}
]
, test "should increment the complexity for every recursive call in a chain, for long chains" <|
\() ->
"""module A exposing (..)
fun1 n =
fun2 n -- +1
fun2 n =
fun3 n -- +1
fun3 n =
fun4 n -- +1
fun4 n =
fun5 n -- +1
fun5 n =
fun1 n -- +1
"""
|> expectAtExactly
[ { name = "fun1"
, complexity = 1
, atExactly = { start = { row = 2, column = 1 }, end = { row = 2, column = 5 } }
, details = [ "Line 3: +1 for the indirect recursive call to fun2" ]
}
, { name = "fun2"
, complexity = 1
, atExactly = { start = { row = 4, column = 1 }, end = { row = 4, column = 5 } }
, details = [ "Line 5: +1 for the indirect recursive call to fun3" ]
}
, { name = "fun3"
, complexity = 1
, atExactly = { start = { row = 6, column = 1 }, end = { row = 6, column = 5 } }
, details = [ "Line 7: +1 for the indirect recursive call to fun4" ]
}
, { name = "fun4"
, complexity = 1
, atExactly = { start = { row = 8, column = 1 }, end = { row = 8, column = 5 } }
, details = [ "Line 9: +1 for the indirect recursive call to fun5" ]
}
, { name = "fun5"
, complexity = 1
, atExactly = { start = { row = 10, column = 1 }, end = { row = 10, column = 5 } }
, details = [ "Line 11: +1 for the indirect recursive call to fun1" ]
}
]
, test "the complexity of a function should not affect another function's computed complexity" <|
\() ->
"""module A exposing (..)
simple n = 1
fun n =
if cond then
if cond then
1
else
2
else
2
alsoSimple n =
if cond then
1
else
2
"""
|> expect
[ { name = "simple"
, complexity = 0
, details = []
}
, { name = "fun"
, complexity = 3
, details = [ String.trim """
Line 5: +1 for the if expression
Line 6: +2 for the if expression (including 1 for nesting)
""" ]
}
, { name = "alsoSimple"
, complexity = 1
, details = [ "Line 14: +1 for the if expression" ]
}
]
]
expect : List { name : String, complexity : Int, details : List String } -> String -> Expectation
expect functionComplexities source =
source
|> Review.Test.run (rule -1)
|> Review.Test.expectErrors
(List.map
(\{ name, complexity, details } ->
Review.Test.error
{ message = name ++ " has a cognitive complexity of " ++ String.fromInt complexity ++ ", higher than the allowed -1"
, details = explanation ++ details
, under = name
}
)
functionComplexities
)
expectAtExactly : List { name : String, complexity : Int, details : List String, atExactly : Range } -> String -> Expectation
expectAtExactly functionComplexities source =
source
|> Review.Test.run (rule -1)
|> Review.Test.expectErrors
(List.map
(\{ name, complexity, details, atExactly } ->
Review.Test.error
{ message = name ++ " has a cognitive complexity of " ++ String.fromInt complexity ++ ", higher than the allowed -1"
, details = explanation ++ details
, under = name
}
|> Review.Test.atExactly atExactly
)
functionComplexities
)
explanation : List String
explanation =
[ "This metric is a heuristic to measure how easy to understand a piece of code is, primarily through increments for breaks in the linear flow and for nesting those breaks."
, "The most common ways to reduce complexity is to extract sections into functions and to unnest control flow structures. Following is a breakdown of where complexity was found:"
]