2021-04-06 16:05:07 +00:00
|
|
|
(import r7rs
|
|
|
|
|
srfi-1
|
|
|
|
|
utf8
|
|
|
|
|
srfi-69
|
|
|
|
|
srfi-78
|
|
|
|
|
shell
|
2021-04-07 00:19:06 +00:00
|
|
|
medea
|
|
|
|
|
srfi-123
|
2021-04-06 16:05:07 +00:00
|
|
|
srfi-152
|
2021-04-07 00:19:06 +00:00
|
|
|
srfi-197
|
2021-04-06 16:05:07 +00:00
|
|
|
(chicken port))
|
|
|
|
|
|
2021-04-07 00:19:06 +00:00
|
|
|
(define pickle
|
|
|
|
|
(chain (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/tags.feature"))
|
|
|
|
|
(string-trim-both _)
|
|
|
|
|
(string-split _ "\n")
|
|
|
|
|
(string-join _ ", ")
|
|
|
|
|
(list "[" _ "]")
|
|
|
|
|
(string-concatenate _)
|
|
|
|
|
(with-input-from-string _ read-json)))
|
