Skip to content

Commit 6f414d6

Browse files
committed
Add test case and example for splitAt with an empty array
1 parent 8bc4588 commit 6f414d6

File tree

2 files changed

+2
-0
lines changed

2 files changed

+2
-0
lines changed

src/Data/Array.purs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -615,6 +615,7 @@ foreign import partition
615615
-- | be 0.)
616616
-- |
617617
-- | ```purescript
618+
-- | splitAt 2 ([] :: Array Int) == { before: [], after: [] }
618619
-- | splitAt 3 [1, 2, 3, 4, 5] == { before: [1, 2, 3], after: [4, 5] }
619620
-- | ```
620621
splitAt :: forall a. Int -> Array a -> { before :: Array a, after :: Array a }

test/Test/Data/Array.purs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -203,6 +203,7 @@ testArray = do
203203
assert $ A.filter odd (A.range 0 10) == [1, 3, 5, 7, 9]
204204

205205
log "splitAt should split the array at the given number of elements"
206+
assert $ A.splitAt 2 ([] :: Array Int) == { before: [], after: [] }
206207
assert $ A.splitAt 3 [1, 2, 3, 4, 5] == { before: [1, 2, 3], after: [4, 5] }
207208
assert $ A.splitAt 1 [1, 2, 3] == { before: [1], after: [2, 3] }
208209
assert $ A.splitAt 3 [1, 2, 3] == { before: [1, 2, 3], after: [] }

0 commit comments

Comments
 (0)