forked from alex-eg/sex
alex-eg
196694f18e
Also rename macros to sex-macros, module-system to sex-modules for clarity, uniformity, and to avoid name clashes with Chicken's units/modules named "macros" and "modules"
25 lines
375 B
Scheme
25 lines
375 B
Scheme
(import utils)
|
|
|
|
(test-group "utils"
|
|
|
|
(test
|
|
'((1) (2) (3))
|
|
(list-split '(1 * 2 * 3) '*))
|
|
|
|
(test
|
|
'((1 2 3))
|
|
(list-split '(1 2 3) '*))
|
|
|
|
(test
|
|
'(() (1) (2) (3) ())
|
|
(list-split '(* 1 * 2 * 3 *) '*))
|
|
|
|
(test
|
|
'((const) (const struct something))
|
|
(list-split '(const * const struct something) '*))
|
|
|
|
(test
|
|
'(1 * 2 * 3)
|
|
(list-join '(1 2 3) '*))
|
|
)
|