diff options
| author | Arun Isaac | 2021-04-26 13:53:23 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-26 13:55:17 +0530 |
| commit | 07802af0735ef9f41976961b17110dbd11692c39 (patch) | |
| tree | f1ae41a7b2d609282efe122dd2ded5a4a8b4977d | |
| parent | 23fd9ebccc225bbc163d2c7647ca45952afe47da (diff) | |
| download | ccwl-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.scm | 28 |
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") |