diff options
Diffstat (limited to 'utils.scm')
| -rw-r--r-- | utils.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/utils.scm b/utils.scm new file mode 100644 index 0000000..a131717 --- /dev/null +++ b/utils.scm @@ -0,0 +1,14 @@ +(module utils (inline-tests) + (import scheme + (chicken base) + (chicken process-context)) + + (define-syntax inline-tests + (syntax-rules () + ((_ expr ...) + (let* ((v (get-environment-variable "INLINE_TESTS")) + (should-run-inline-tests? (and (string? v) + (string=? v "1")))) + (if should-run-inline-tests? + (begin expr ...))))))) + |