843e29b · elk · git.iko.soy

Quit using (.) in testing code

commit843e29b5b2c61febadecc79587c20613ab8acc2e authorEvan Czaplicki <info@elm-lang.org> dateSat 23 Aug 2014, 03:05 (12 years ago) parent5bc4e26

2 files changed+8−7

unifiedsplit

tests/libraries/Test/Equality.elm+7−6

@@ -3,21 +3,22 @@ module Test.Equality (tests) where

33import ElmTest.Assertion (..)

44import ElmTest.Test (..)

6−data Different = A String

7− | B [Int]

6+data Different

7+ = A String

8+ | B [Int]

910tests : Test

1011tests =

1112 let diffTests = suite "ADT equality"

1213 [ test "As eq" <| assert (A "a" == A "a")

1314 , 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 . not <| (B [1] == A "a")

15+ , test "A left neq" <| assert (A "a" /= B [1])

16+ , test "A left neq" <| assert (B [1] /= A "a")

1617 ]

1718 recordTests = suite "Record equality"

1819 [ test "empty same" <| assert ({} == {})

19− , test "ctor same" <| assert ({ctor = Just 3} == {ctor = Just 3})

20− , test "ctor diff" . assert . not <| ({ctor = Just 3} == {ctor = Nothing})

20+ , test "ctor same" <| assert ({ctor = Just 3} == {ctor = Just 3})

21+ , test "ctor diff" <| assert ({ctor = Just 3} /= {ctor = Nothing})

2122 ]

2223 in

2324 suite "Equality Tests" [diffTests, recordTests]

tests/libraries/Test/List.elm+1−1

@@ -27,7 +27,7 @@ tests =

2727 ]

2828 intersperseTests = suite "intersperse Tests"

2929 [ 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)

3131 ]

3232 in

3333 suite "List Tests"