From fa2e5c5a2aa65bfdedd58c9ca1b6f790e59c05df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 19 May 2020 23:07:45 +0200
Subject: Add test for filter-sorted.

---
 module/util.scm | 2 --
 tests/util.scm  | 5 +++++
 2 files changed, 5 insertions(+), 2 deletions(-)
 create mode 100644 tests/util.scm

diff --git a/module/util.scm b/module/util.scm
index 10e36d4e..617a2ea6 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -305,8 +305,6 @@
        ;; seeds:
        (car items) '())))
 
-;; TODO This might be utterly broken, do some real tests on it
-;; (and then run equivalent tests on the stream variant)
 (define-public (filter-sorted proc list)
   (take-while
    proc (drop-while
diff --git a/tests/util.scm b/tests/util.scm
new file mode 100644
index 00000000..33ebdcf6
--- /dev/null
+++ b/tests/util.scm
@@ -0,0 +1,5 @@
+(((util) filter-sorted))
+
+(test-equal "Filter sorted"
+  '(3 4 5)
+  (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10)))
-- 
cgit v1.2.3