From 2e1384bd6c273649cc5a1b7b4f031026af2eb56e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 7 Jul 2022 18:40:02 +0200
Subject: Add srfi-64 util.

---
 module/srfi/srfi-64/util.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 module/srfi/srfi-64/util.scm

(limited to 'module/srfi/srfi-64')

diff --git a/module/srfi/srfi-64/util.scm b/module/srfi/srfi-64/util.scm
new file mode 100644
index 00000000..a371227f
--- /dev/null
+++ b/module/srfi/srfi-64/util.scm
@@ -0,0 +1,11 @@
+(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)))
-- 
cgit v1.2.3