155c60e · elk · git.iko.soy

on master help sign in

Add Array.to/fromJSArray tests

155c60eChristian Widera13 years ago

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

@@ -2,6 +2,7 @@ module Test.Array (tests) where

3import List

4import Array

5+import Native.Array

6import ElmTest.Assertion (..)

7import ElmTest.Assertion (..)

7import ElmTest.Test (..)

8import ElmTest.Test (..)

@@ -44,4 +45,5 @@ tests =

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

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

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

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

46 ]

47 ]

48+ nativeTests = [ test "jsArrays" <| assertEqual (Array.repeat 1050) (Array.fromJSArray (Array.toJSArray (Array.repeat 1050) ]

47− in List.concat [creationTests, basicsTests, getAndSetTests, takingArraysApartTests, mappingAndFoldingTests]

49+ in List.concat [creationTests, basicsTests, getAndSetTests, takingArraysApartTests, mappingAndFoldingTests, nativeTests]