12 lines
274 B
Scheme
12 lines
274 B
Scheme
(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")))
|