git.iko.soy/elk
on master help sign in
Quit using (.) in testing code
843e29bEvan Czaplicki
tests/libraries/Test/Equality.elm+7−6
compare with master
unifiedsplit
@@ -3,21 +3,22 @@ module Test.Equality (tests) where
3import ElmTest.Assertion (..)
3import ElmTest.Assertion (..)
4import ElmTest.Test (..)
4import ElmTest.Test (..)
5
5
6−data Different = A String
6+data Different
7+ = A String
7− | B [Int]
8+ | B [Int]
8
9
9tests : Test
10tests : Test
10tests =
11tests =
11 let diffTests = suite "ADT equality"
12 let diffTests = suite "ADT equality"
12 [ test "As eq" <| assert (A "a" == A "a")
13 [ test "As eq" <| assert (A "a" == A "a")
13 , test "Bs eq" <| assert (B [1] == B [1])
14 , test "Bs eq" <| assert (B [1] == B [1])
14− , test "A left neq" <| assert . not <| (A "a" == B [1])
15+ , test "A left neq" <| assert (A "a" /= B [1])
15− , test "A left neq" <| assert . not <| (B [1] == A "a")
16+ , test "A left neq" <| assert (B [1] /= A "a")
16 ]
17 ]
17 recordTests = suite "Record equality"
18 recordTests = suite "Record equality"
18 [ test "empty same" <| assert ({} == {})
19 [ test "empty same" <| assert ({} == {})
19− , test "ctor same" <| assert ({ctor = Just 3} == {ctor = Just 3})
20+ , test "ctor same" <| assert ({ctor = Just 3} == {ctor = Just 3})
20− , test "ctor diff" . assert . not <| ({ctor = Just 3} == {ctor = Nothing})
21+ , test "ctor diff" <| assert ({ctor = Just 3} /= {ctor = Nothing})
21 ]
22 ]
22 in
23 in
23 suite "Equality Tests" [diffTests, recordTests]
24 suite "Equality Tests" [diffTests, recordTests]
tests/libraries/Test/List.elm+1−1
@@ -27,7 +27,7 @@ tests =
27 ]
27 ]
28 intersperseTests = suite "intersperse Tests"
28 intersperseTests = suite "intersperse Tests"
29 [ test "intersperse doc check" <| assertEqual ["turtles","on","turtles","on","turtles"] (intersperse "on" ["turtles","turtles","turtles"])
29 [ test "intersperse doc check" <| assertEqual ["turtles","on","turtles","on","turtles"] (intersperse "on" ["turtles","turtles","turtles"])
30− , test "intersperse stress test" <| assertEqual (tail . List.concat <| zipWith (\x y -> [x,y]) falseList trueList) (intersperse False trueList)
30+ , test "intersperse stress test" <| assertEqual (tail <| List.concat <| zipWith (\x y -> [x,y]) falseList trueList) (intersperse False trueList)
31 ]
31 ]
32 in
32 in
33 suite "List Tests"
33 suite "List Tests"