summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ccwl.scm28
1 files changed, 1 insertions, 27 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index 5b71ed1..24024f3 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -19,34 +19,8 @@
(use-modules (srfi srfi-71)
(srfi srfi-64))
-(define break-pair
- (module-ref (resolve-module '(ccwl ccwl))
- 'break-pair))
-
(test-begin "ccwl")
-(test-assert "break-pair"
- (let ((prefix tail
- (break-pair (case-lambda
- ((element next)
- (or (odd? element)
- (odd? next)))
- ((last)
- (odd? last)))
- (list 12 66 74 95 7 74 96 46 99 76 37))))
- (equal? prefix (list 12 66))
- (equal? tail (list 74 95 7 74 96 46 99 76 37))))
-
-(test-assert "break-pair: check last elemet handling"
- (let ((prefix tail
- (break-pair (case-lambda
- ((element next)
- (or (odd? element)
- (odd? next)))
- ((last)
- (odd? last)))
- (list 12 66 74))))
- (equal? prefix (list 12 66 74))
- (equal? tail (list))))
+;; Add tests here when relevant.
(test-end "ccwl")