diff --git a/gherken.egg b/gherken.egg index 30f8808..957fd82 100644 --- a/gherken.egg +++ b/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 diff --git a/gherken.scm b/gherken.scm index 79f0641..b9f8a64 100644 --- a/gherken.scm +++ b/gherken.scm @@ -5,5 +5,7 @@ (define-library (gherken) (import shell) (import json) + (import utf8-srfi-152) + (import (chicken port)) (begin )) diff --git a/scripts/salmonella-run.sh b/scripts/salmonella-run.sh new file mode 100755 index 0000000..b4eb1b1 --- /dev/null +++ b/scripts/salmonella-run.sh @@ -0,0 +1,4 @@ +#!/bin/sh + +salmonella --keep-repo --repo-dir=./petri-dish +salmonella-html-report ./salmonella.log report diff --git a/tests/run.scm b/tests/run.scm new file mode 100644 index 0000000..db05c92 --- /dev/null +++ b/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))