git.iko.soy/elk
on master help sign in
Add tests for appending to empty arrays
d12a175Christian Widera
tests/libraries/Test/Array.elm+2
compare with master
unifiedsplit
@@ -26,6 +26,8 @@ tests =
26 , test "length - Long" <| assertEqual 10000 (Array.length (Array.repeat 10000 0))
26 , test "length - Long" <| assertEqual 10000 (Array.length (Array.repeat 10000 0))
27 , test "push" <| assertEqual (Array.fromList [1,2,3]) (Array.push 3 (Array.fromList [1,2]))
27 , test "push" <| assertEqual (Array.fromList [1,2,3]) (Array.push 3 (Array.fromList [1,2]))
28 , test "append" <| assertEqual [42,42,81,81,81] (Array.toList (Array.append (Array.repeat 2 42) (Array.repeat 3 81)))
28 , test "append" <| assertEqual [42,42,81,81,81] (Array.toList (Array.append (Array.repeat 2 42) (Array.repeat 3 81)))
29+ , test "appendEmpty 1" <| assertEqual [1..33] (Array.toList (Array.append Array.empty (Array.fromList [1..33])))
30+ , test "appendEmpty 2" <| assertEqual [1..33] (Array.toList (Array.append (Array.fromList [1..33]) Array.empty))
29 ]
31 ]
30 getAndSetTests = suite "Get and Set"
32 getAndSetTests = suite "Get and Set"
31 [ test "get" <| assertEqual (Just 2) (Array.get 1 (Array.fromList [3,2,1]))
33 [ test "get" <| assertEqual (Just 2) (Array.get 1 (Array.fromList [3,2,1]))