@@ -45,5 +45,5 @@ tests =
4545 , test "foldr" <| assertEqual (Array.foldr (+) 0 (Array.repeat 3 5)) 15
4646 , test "foldl 2" <| assertEqual (Array.foldr (::) [] (Array.fromList [1,2,3])) [3,2,1]
4747 ]
48− nativeTests = [ test "jsArrays" <| assertEqual (Array.repeat 1050) (Native.Array.fromJSArray (Native.Array.toJSArray (Array.repeat 1050) ]
48+ nativeTests = [ test "jsArrays" <| assertEqual (Array.repeat 100) (Native.Array.fromJSArray (Native.Array.toJSArray (Array.repeat 100))) ]
4949 in List.concat [creationTests, basicsTests, getAndSetTests, takingArraysApartTests, mappingAndFoldingTests, nativeTests]