summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-04-26 13:53:23 +0530
committerArun Isaac2021-04-26 13:55:17 +0530
commit07802af0735ef9f41976961b17110dbd11692c39 (patch)
treef1ae41a7b2d609282efe122dd2ded5a4a8b4977d
parent23fd9ebccc225bbc163d2c7647ca45952afe47da (diff)
downloadccwl-07802af0735ef9f41976961b17110dbd11692c39.tar.gz
ccwl-07802af0735ef9f41976961b17110dbd11692c39.tar.lz
ccwl-07802af0735ef9f41976961b17110dbd11692c39.zip
Remove deprecated break-pair tests.
* tests/ccwl.scm (break-pair): Delete function. ("break-pair", "break-pair: check last elemet handling"): Delete tests.
-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")