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.

---
 tests/util.scm | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/util.scm

(limited to 'tests/util.scm')

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