From 081a4d9c417a971e00d7f0ea6706206d770d4733 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Mon, 2 Oct 2023 22:23:51 +0100
Subject: list.key_filter

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

(limited to 'test')

diff --git a/test/gleam/list_test.gleam b/test/gleam/list_test.gleam
index 321f5a4..ae066ad 100644
--- a/test/gleam/list_test.gleam
+++ b/test/gleam/list_test.gleam
@@ -821,6 +821,26 @@ pub fn key_find_test() {
   |> should.equal(Error(Nil))
 }
 
+pub fn key_filter_test() {
+  let proplist = [#(0, "1"), #(1, "2"), #(0, "3"), #(1, "4"), #(2, "5")]
+
+  proplist
+  |> list.key_filter(0)
+  |> should.equal(["1", "3"])
+
+  proplist
+  |> list.key_filter(1)
+  |> should.equal(["2", "4"])
+
+  proplist
+  |> list.key_filter(2)
+  |> should.equal(["5"])
+
+  proplist
+  |> list.key_filter(3)
+  |> should.equal([])
+}
+
 pub fn pop_test() {
   [1, 2, 3]
   |> list.pop(fn(x) { x > 2 })
-- 
cgit v1.2.3