From 07802af0735ef9f41976961b17110dbd11692c39 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 26 Apr 2021 13:53:23 +0530
Subject: Remove deprecated break-pair tests.

* tests/ccwl.scm (break-pair): Delete function.
("break-pair", "break-pair: check last elemet handling"): Delete
tests.
---
 tests/ccwl.scm | 28 +---------------------------
 1 file changed, 1 insertion(+), 27 deletions(-)

(limited to 'tests/ccwl.scm')

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")
-- 
cgit v1.2.3