diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/derivations.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index 48d12990e69..e774fed4c34 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm | |||
| @@ -831,8 +831,12 @@ Deriver: ~a~%" | |||
| 831 | (lambda (port) | 831 | (lambda (port) |
| 832 | (display "fake mkdir" port))))) | 832 | (display "fake mkdir" port))))) |
| 833 | (graft (graft-derivation %store "graft" orig | 833 | (graft (graft-derivation %store "graft" orig |
| 834 | `(((,%bash) . (,one)) | 834 | (list (graft |
| 835 | ((,%mkdir) . (,two)))))) | 835 | (origin %bash) |
| 836 | (replacement one)) | ||
| 837 | (graft | ||
| 838 | (origin %mkdir) | ||
| 839 | (replacement two)))))) | ||
| 836 | (and (build-derivations %store (list graft)) | 840 | (and (build-derivations %store (list graft)) |
| 837 | (let ((two (derivation->output-path two)) | 841 | (let ((two (derivation->output-path two)) |
| 838 | (graft (derivation->output-path graft))) | 842 | (graft (derivation->output-path graft))) |