diff options
Diffstat (limited to 'tests/gexp.scm')
| -rw-r--r-- | tests/gexp.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 61ed5bc02d..c80ca13fab 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -148,6 +148,11 @@ (null? (gexp-inputs exp)) (gexp->sexp* exp)))) +(test-equal "gexp->approximate-sexp, outputs" + '(list 'out:foo (*approximate*) 'out:bar (*approximate*)) + (gexp->approximate-sexp + #~(list 'out:foo #$output:foo 'out:bar #$output:bar))) + (test-equal "unquote" '(display `(foo ,(+ 2 3))) (let ((exp (gexp (display `(foo ,(+ 2 3)))))) |