Gentle first steps

gherken.egg

@@ -3,7 +3,8 @@
  (synopsis "A Gherkin wrapper")
  (category testing)
  (license "MIT")
- (dependencies r7rs)
+ (dependencies r7rs json shell utf8 srfi-152)
+ (test-dependencies srfi-78)
  ;;(foreign-dependencies)
  (components
   (program gherkinexe

gherken.scm

@@ -5,5 +5,7 @@
 (define-library (gherken)
   (import shell)
   (import json)
+  (import utf8-srfi-152)
+  (import (chicken port))
   (begin
     ))

scripts/salmonella-run.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+salmonella --keep-repo --repo-dir=./petri-dish
+salmonella-html-report ./salmonella.log report

tests/run.scm

@@ -0,0 +1,17 @@
+(import r7rs
+        srfi-1
+        utf8
+        srfi-69
+        srfi-78
+        shell
+        json-abnf
+        srfi-152
+        (chicken port))
+
+(define output (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/rule.feature")))
+(define outputs (string-split (string-trim-both output) "\n"))
+(define json-string (string-concatenate (list "[" (string-join outputs ", ") "]")))
+(define pickle #f)
+(let* ((pickles (parser json-string))
+       (pickle (cdar (vector-ref pickles 0))))
+  (set! pickle pickle))