diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-07-27 20:15:50 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-07-27 20:15:50 -0400 |
| commit | 33690ffde5af2c516bc6b2dd060ab9cf7ab88eb2 (patch) | |
| tree | d91daca5084dec6ede304d2c9ff1c376a740e416 /tests/monads.scm | |
| parent | 5c47b06b4370e7d6590b0c75404d694a52897293 (diff) | |
| parent | b9663471a87916f36b50af2a0f885f6f08dc3ed2 (diff) | |
| download | guix-33690ffde5af2c516bc6b2dd060ab9cf7ab88eb2.tar guix-33690ffde5af2c516bc6b2dd060ab9cf7ab88eb2.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/monads.scm')
| -rw-r--r-- | tests/monads.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/monads.scm b/tests/monads.scm index ac19d33f93..ea3e4006ab 100644 --- a/tests/monads.scm +++ b/tests/monads.scm @@ -108,6 +108,16 @@ guile))) #:guile-for-build (package-derivation %store %bootstrap-guile))) +(test-assert "interned-file" + (run-with-store %store + (mlet* %store-monad ((file -> (search-path %load-path "guix.scm")) + (a (interned-file file)) + (b (interned-file file "b"))) + (return (equal? (call-with-input-file file get-string-all) + (call-with-input-file a get-string-all) + (call-with-input-file b get-string-all)))) + #:guile-for-build (package-derivation %store %bootstrap-guile))) + (define derivation-expression (@@ (guix monads) derivation-expression)) |