github/elm
1
0
Fork 0
mirror of https://github.com/correl/elm.git synced 2025-03-07 04:35:48 -10:00
Code Issues Projects Releases Packages Wiki Activity

Add direction tests for foldl and foldr in list-ops

Browse source
This commit is contained in:
Arnau Siches 2016-08-12 06:29:28 +01:00
parent 8710ff3d3c
commit e3fc6ea2de
No known key found for this signature in database
GPG key ID: BDE9BB47690A7E17
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
exercises/list-ops/ListOpsTests.elm
View file

@ -27,10 +27,12 @@ tests =
, suite "foldl" , suite "foldl"
[ test "empty list" (assertEqual 0 (foldl (+) 0 [])) [ test "empty list" (assertEqual 0 (foldl (+) 0 []))
, test "non-empty list" (assertEqual 10 (foldl (+) 0 [1..4])) , test "non-empty list" (assertEqual 10 (foldl (+) 0 [1..4]))
, test "direction" (assertEqual [4,3,2,1] (foldl (::) [] [1..4]))
] ]
, suite "foldr" , suite "foldr"
[ test "empty list" (assertEqual 0 (foldr (+) 0 [])) [ test "empty list" (assertEqual 0 (foldr (+) 0 []))
, test "non-empty list" (assertEqual 10 (foldr (+) 0 [1..4])) , test "non-empty list" (assertEqual 10 (foldr (+) 0 [1..4]))
, test "direction" (assertEqual [1..4] (foldr (::) [] [1..4]))
] ]
, suite "append" , suite "append"
[ test "empty lists" (assertEqual [] (append [] [])) [ test "empty lists" (assertEqual [] (append [] []))