about summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2021-04-26 13:53:23 +0530
committerArun Isaac2021-04-26 13:55:17 +0530
commit07802af0735ef9f41976961b17110dbd11692c39 (patch)
treef1ae41a7b2d609282efe122dd2ded5a4a8b4977d /tests
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.
Diffstat (limited to '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")