@@ -2,6 +2,7 @@ module Test.Array (tests) where
22
33import List
44import Array
5+import Native.Array
56
67import ElmTest.Assertion (..)
78import ElmTest.Test (..)
@@ -44,4 +45,5 @@ tests =
4445 , test "foldr" <| assertEqual (Array.foldr (+) 0 (Array.repeat 3 5)) 15
4546 , test "foldl 2" <| assertEqual (Array.foldr (::) [] (Array.fromList [1,2,3])) [3,2,1]
4647 ]
47− in List.concat [creationTests, basicsTests, getAndSetTests, takingArraysApartTests, mappingAndFoldingTests]
48+ nativeTests = [ test "jsArrays" <| assertEqual (Array.repeat 1050) (Array.fromJSArray (Array.toJSArray (Array.repeat 1050) ]
49+ in List.concat [creationTests, basicsTests, getAndSetTests, takingArraysApartTests, mappingAndFoldingTests, nativeTests]