git.iko.soy/elk
on master help sign in
style: conform to style of all other test suites
8f5986aEvan Czaplicki
tests/libraries/Test/List.elm+27−28
compare with master
unifiedsplit
@@ -5,34 +5,33 @@ import List
5import ElmTest.Assertion (..)
5import ElmTest.Assertion (..)
6import ElmTest.Test (..)
6import ElmTest.Test (..)
7
7
8+largeNumber = 100000
9+trueList = repeat largeNumber True
10+falseList = repeat largeNumber False
11+
12+lessThanThree x = x < 3
13+isEven n = n % 2 == 0
14+
8tests : Test
15tests : Test
9tests =
16tests =
10− let partitionTests =
17+ let partitionTests = suite "partition Tests"
11− let p1 = identity
12− p2 x = x < 3
13− isEven n = n % 2 == 0
14− in suite "partition Tests" [ test "simple partition" <| assertEqual ([True],[False]) (List.partition p1 [False, True]),
18+ [ test "simple partition" <| assertEqual ([True],[False]) (List.partition identity [False, True])
15− test "order check" <| assertEqual ([2,1], [5,6]) (List.partition p2 [2,5,6,1]),
19+ , test "order check" <| assertEqual ([2,1], [5,6]) (List.partition lessThanThree [2,5,6,1])
16− test "partition doc check 1" <| assertEqual ([0,1,2], [3,4,5]) (partition p2 [0..5]),
20+ , test "partition doc check 1" <| assertEqual ([0,1,2], [3,4,5]) (partition lessThanThree [0..5])
17− test "partition doc check 2" <| assertEqual ([0,2,4], [1,3,5]) (partition isEven [0..5]),
21+ , test "partition doc check 2" <| assertEqual ([0,2,4], [1,3,5]) (partition isEven [0..5])
18− let n = 100000
19− ts = repeat n True
20− fs = repeat n False
21− in test "partition stress test" <| assertEqual (ts, fs) (partition p1 (fs++ts))
22+ , test "partition stress test" <| assertEqual (trueList, falseList) (partition identity (falseList ++ trueList))
22− ]
23+ ]
23− unzipTests = suite "unzip Tests" [
24+ unzipTests = suite "unzip Tests"
24− test "unzip doc check" <| assertEqual ([0,17,1337],[True,False,True]) (unzip [(0, True), (17, False), (1337, True)]),
25+ [ test "unzip doc check" <| assertEqual ([0,17,1337],[True,False,True]) (unzip [(0, True), (17, False), (1337, True)])
25− let n = 100000
26− ts = repeat n True
27− fs = repeat n False
28− in test "unzip stress test" <| assertEqual (ts, fs) (unzip (zip ts fs))
26+ , test "unzip stress test" <| assertEqual (trueList, falseList) (unzip (zip trueList falseList))
29− ]
27+ ]
30− intersperseTests = suite "intersperse Tests" [
28+ intersperseTests = suite "intersperse Tests"
31− 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"])
32− let n = 100000
33− ts = repeat n True
34− fs = repeat n False
35− in test "intersperse stress test" <| assertEqual (tail . List.concat <| zipWith (\x y -> [x,y]) fs ts)
30+ , test "intersperse stress test" <| assertEqual (tail . List.concat <| zipWith (\x y -> [x,y]) falseList trueList) (intersperse False trueList)
36− (intersperse False ts)
31+ ]
32+ in
33+ suite "List Tests"
34+ [ partitionTests
35+ , unzipTests
36+ , intersperseTests
37 ]
37 ]
38− in suite "List Tests" [partitionTests, unzipTests, intersperseTests]