blob: a371227faced6c1c2f1238a873e3fc39e09e4827 (
plain)
1
2
3
4
5
6
7
8
9
10
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)))
|