diff options
| -rw-r--r-- | module/util.scm | 2 | ||||
| -rw-r--r-- | tests/util.scm | 5 |
2 files changed, 5 insertions, 2 deletions
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))) |