gherken/gherken.scm

(cond-expand
  (r7rs)
  (chicken (import (r7rs))))
(import-for-syntax (r7rs))

(define-library (gherken)
  (import r7rs
          utf8
          (chicken irregex)
          (chicken port)
          (chicken file)
          shell
          medea
          srfi-1
          srfi-69
          srfi-78
          srfi-123
          srfi-152
          srfi-197)
  (export given run-features)
  (begin
    (define lang-registry (make-hash-table))

    (define-syntax given
      (syntax-rules ()
        ((given picklex args ...)
         (hash-table-set! lang-registry picklex (lambda args ...)))))

    (define (run-pickle data tags)
      #t)

    (define (run-feature filename tags)
      (let ((pickles (chain (capture ("./gherkinexe" "--no-ast" "--no-source" filename))
                            (string-trim-both _)
                            (string-split _ "\n")
                            (string-join _ ", ")
                            (list "[" _ "]")
                            (string-concatenate _)
                            (with-input-from-string _ read-json))))
        (map
         (lambda (x) (run-pickle x tags))
         pickles)))

    (define (run-features dir #!rest tags)
      (let ((featurefiles (find-files dir test: '(: (* any) ".feature"))))
        (map
         (lambda (x) (run-feature x tags))
         featurefiles)))
    ))