diff options
| author | Leo Famulari <leo@famulari.name> | 2017-04-14 13:07:16 -0400 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2017-04-14 13:07:16 -0400 |
| commit | c57ce31a896f659a2e311c2ee90b9027f4a405bc (patch) | |
| tree | 17d0d0238ca1db65cce1f2ac68273af0483c9e7d /tests/gexp.scm | |
| parent | f575efa12c5df9f9879b7be0fe3593a3106a346d (diff) | |
| parent | 8439c9c05eab5c98d889fb1de56bc78f62a8058f (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/gexp.scm')
| -rw-r--r-- | tests/gexp.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index b3f7323984..41a53ae5a4 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -946,6 +946,13 @@ (string=? (readlink (string-append comp "/text")) text))))))) +(test-assert "lower-object & gexp-input-error?" + (guard (c ((gexp-input-error? c) + (gexp-error-invalid-input c))) + (run-with-store %store + (lower-object (current-module)) + #:guile-for-build (%guile-for-build)))) + (test-assert "printer" (string-match "^#<gexp \\(string-append .*#<package coreutils.*\ \"/bin/uname\"\\) [[:xdigit:]]+>$" |