From 8774207bf28bc66686764219fa47d9b331d14673 Mon Sep 17 00:00:00 2001
From: thorhj <burpen@gmail.com>
Date: Wed, 22 May 2024 21:53:58 +0200
Subject: adds count function for list

---
 test/gleam/list_test.gleam | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'test')

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([])
-- 
cgit v1.2.3