diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-11-20 23:51:26 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-11-20 23:51:26 +0100 |
commit | edae5b3d50692c25e29fe65fdc14ae3ccdce884d (patch) | |
tree | ec257af3a922fd96bda8b8b16c00c8d0beaf445a /tests/store.scm | |
parent | 1dba64079c5aaa1fb40e4b1d989f1f06efd6cb63 (diff) | |
parent | e3aaefe71bd26daf6fdbfd0634f68a90985e059b (diff) | |
download | guix-patches-edae5b3d50692c25e29fe65fdc14ae3ccdce884d.tar guix-patches-edae5b3d50692c25e29fe65fdc14ae3ccdce884d.tar.gz |
Merge branch 'master' into core-updates
Conflicts:
guix/packages.scm
Diffstat (limited to 'tests/store.scm')
-rw-r--r-- | tests/store.scm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm index b5e0cb0eab..741803884d 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -65,6 +65,15 @@ (string-append (%store-prefix) "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7"))) +(test-assert "direct-store-path?" + (and (direct-store-path? + (string-append (%store-prefix) + "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")) + (not (direct-store-path? + (string-append + (%store-prefix) + "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))))) + (test-skip (if %store 0 10)) (test-assert "dead-paths" @@ -140,6 +149,33 @@ (equal? (valid-derivers %store o) (list (derivation-file-name d)))))) +(test-assert "log-file, derivation" + (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '())) + (s (add-to-store %store "bash" #t "sha256" + (search-bootstrap-binary "bash" + (%current-system)))) + (d (derivation %store "the-thing" + s `("-e" ,b) + #:env-vars `(("foo" . ,(random-text))) + #:inputs `((,b) (,s))))) + (and (build-derivations %store (list d)) + (file-exists? (pk (log-file %store (derivation-file-name d))))))) + +(test-assert "log-file, output file name" + (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '())) + (s (add-to-store %store "bash" #t "sha256" + (search-bootstrap-binary "bash" + (%current-system)))) + (d (derivation %store "the-thing" + s `("-e" ,b) + #:env-vars `(("foo" . ,(random-text))) + #:inputs `((,b) (,s)))) + (o (derivation->output-path d))) + (and (build-derivations %store (list d)) + (file-exists? (pk (log-file %store o))) + (string=? (log-file %store (derivation-file-name d)) + (log-file %store o))))) + (test-assert "no substitutes" (let* ((s (open-connection)) (d1 (package-derivation s %bootstrap-guile (%current-system))) |