8a1b6cc · elk · git.iko.soy

Add tests for folds on longer arrays

commit8a1b6cc7d6dc0314d6b22a3452bc9007f4039e01 authorChristian Widera <xash@posteo.de> dateMon 9 Jun 2014, 14:40 (12 years ago) parente1e232c

2 files changed+4−2

unifiedsplit

libraries/Native/Array.js+1−1

@@ -279,7 +279,7 @@ Elm.Native.Array.make = function(elm) {

279279 }

280280 return b;

281281 }

282−

282+

283283 // TODO: currently, it slices the right, then the left. This can be

284284 // optimized.

285285 function slice(from, to, a) {

tests/libraries/Test/Array.elm+3−1

@@ -48,9 +48,11 @@ tests =

4848 [ test "map" <| assertEqual (Array.fromList [1,2,3]) (Array.map sqrt (Array.fromList [1,4,9]))

4949 , test "indexedMap 1" <| assertEqual (Array.fromList [0,5,10]) (Array.indexedMap (*) (Array.fromList [5,5,5]))

5050 , test "indexedMap 2" <| assertEqual [0..99] (Array.toList (Array.indexedMap always (Array.repeat 100 0)))

51− , test "foldl" <| assertEqual [3,2,1] (Array.foldl (::) [] (Array.fromList [1,2,3]))

51+ , test "foldl 1" <| assertEqual [3,2,1] (Array.foldl (::) [] (Array.fromList [1,2,3]))

52+ , test "foldl 2" <| assertEqual 33 (Array.foldl (+) 0 (Array.repeat 33 1))

5253 , test "foldr 1" <| assertEqual 15 (Array.foldr (+) 0 (Array.repeat 3 5))

5354 , test "foldr 2" <| assertEqual [1,2,3] (Array.foldr (::) [] (Array.fromList [1,2,3]))

55+ , test "foldr 3" <| assertEqual 53 (Array.foldr (-) 54 (Array.fromList [10,11]))

5456 , test "filter" <| assertEqual (Array.fromList [2,4,6]) (Array.filter (\x -> x `mod` 2 == 0) (Array.fromList [1..6]))

5557 ]

5658 nativeTests = suite "Conversion to JS Arrays"