adds count function for list

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([])