diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/gleam/list_test.gleam | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/gleam/list_test.gleam b/test/gleam/list_test.gleam index dea77ff..190a49b 100644 --- a/test/gleam/list_test.gleam +++ b/test/gleam/list_test.gleam @@ -4,6 +4,7 @@ import gleam/int import gleam/list import gleam/pair import gleam/should +import gleam/string @target(erlang) const recursion_test_cycles = 1_000_000 @@ -34,6 +35,22 @@ pub fn length_test() { |> list.length() } +pub fn count_test() { + list.count([], int.is_odd) + |> should.equal(0) + + list.count([2, 4, 6], int.is_odd) + |> should.equal(0) + + list.count([1, 2, 3, 4, 5], int.is_odd) + |> should.equal(3) + + list.count(["a", "list", "with", "some", "string", "values"], fn(a) { + string.length(a) > 4 + }) + |> should.equal(2) +} + pub fn reverse_test() { list.reverse([]) |> should.equal([]) |