21 lines
498 B
Scheme
21 lines
498 B
Scheme
(import r7rs
|
|
srfi-1
|
|
utf8
|
|
srfi-69
|
|
srfi-78
|
|
shell
|
|
medea
|
|
srfi-123
|
|
srfi-152
|
|
srfi-197
|
|
(chicken port))
|
|
|
|
(define pickle
|
|
(chain (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/rule.feature"))
|
|
(string-trim-both _)
|
|
(string-split _ "\n")
|
|
(string-join _ ", ")
|
|
(list "[" _ "]")
|
|
(string-concatenate _)
|
|
(with-input-from-string _ read-json)))
|