aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2023-10-29 01:17:04 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2023-11-06 00:46:26 +0100
commit1ae2c1d1d0172ff46b49edf03a09085b282d63d0 (patch)
tree938c62ce89c0d94a7c807130951c3dc87d0fcd07
parentAdd some NOCOV declarations to (hnh util). (diff)
downloadcalp-1ae2c1d1d0172ff46b49edf03a09085b282d63d0.tar.gz
calp-1ae2c1d1d0172ff46b49edf03a09085b282d63d0.tar.xz
Remove (srfi srfi-64 util).
It only declared `test-match-group`, which was sort of useful when ignoring som tests. It haven't been used in a while, and is therefore removed.
-rw-r--r--module/srfi/srfi-64/util.scm11
1 files changed, 0 insertions, 11 deletions
diff --git a/module/srfi/srfi-64/util.scm b/module/srfi/srfi-64/util.scm
deleted file mode 100644
index a371227f..00000000
--- a/module/srfi/srfi-64/util.scm
+++ /dev/null
@@ -1,11 +0,0 @@
-(define-module (srfi srfi-64 util)
- :use-module (ice-9 curried-definitions)
- :use-module ((srfi srfi-1) :select (every))
- :use-module (srfi srfi-64)
- :export (test-match-group))
-
-;; Specifier for name of group
-(define ((test-match-group name . names) runner)
- (every string=?
- (reverse (cons name names))
- (test-runner-group-stack runner)))