|
@@ -51,7 +51,7 @@ split(N, [List|Tail], Acc0) ->
|
|
|
IolistSize = iolist_size(Before),
|
|
|
if
|
|
|
IolistSize < N ->
|
|
|
- split(N - IolistSize, [After|Tail], Before);
|
|
|
+ split(N - IolistSize, [After|Tail], lists:reverse(Before));
|
|
|
true ->
|
|
|
{ok, Before, [After|Tail]}
|
|
|
end;
|
|
@@ -71,7 +71,8 @@ split_test_() ->
|
|
|
{10, <<"Hello!">>, "Hello!", ""},
|
|
|
{10, ["He", [<<"ll">>], $o, [["!"]]], "Hello!", ""},
|
|
|
{10, ["Hel"|<<"lo!">>], "Hello!", ""},
|
|
|
- {10, [[<<>>|<<>>], [], <<"Hello world!">>], "Hello worl", "d!"}
|
|
|
+ {10, [[<<>>|<<>>], [], <<"Hello world!">>], "Hello worl", "d!"},
|
|
|
+ {10, [[<<"He">>|<<"llo">>], [$\s], <<"world!">>], "Hello worl", "d!"}
|
|
|
],
|
|
|
[{iolist_to_binary(V), fun() ->
|
|
|
{B, A} = split(N, V),
|