kekkonen/test-parse.scm

(module test-parse ()
  (import scheme)
  (import (chicken base))
  (import (chicken syntax))
  (import srfi-1)
  (import test)
  (import comparse)
  (import srfi-14)
  (import parse)

  (test "apple" (parse (lift list->string (one-or-more (in char-set:letter))) "apple")))