diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-06 18:22:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-07 00:17:16 +0200 |
| commit | c923f831160ddbda21d8ea1f2df4670550f3e9d8 (patch) | |
| tree | c71b87553eb72c10da6bdaa8bbe82e236ef0f3f5 | |
| parent | 9a3762a768a1f7b8e5eba8cee4f0f883bbd07892 (diff) | |
| download | guix-c923f831160ddbda21d8ea1f2df4670550f3e9d8.tar.gz | |
size: Add test to multiple 'store-profile' arguments.
* tests/size.scm ("store-profile with multiple items"): New test.
| -rw-r--r-- | tests/size.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/size.scm b/tests/size.scm index 068ebc1d68..575b1abfdd 100644 --- a/tests/size.scm +++ b/tests/size.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -86,6 +86,22 @@ (profile-self-size profile3) (profile-self-size profile4)))))))))))) +(test-assertm "store-profile with multiple items" + (mlet* %store-monad ((file1 (gexp->derivation "file1" + #~(symlink #$%bootstrap-guile + #$output))) + (file2 (text-file* "file2" + "the file => " file1))) + (mbegin %store-monad + (built-derivations (list file2)) + (mlet %store-monad ((profiles (store-profile + (list (derivation->output-path file2) + (derivation->output-path file1)))) + (reference (store-profile + (list (derivation->output-path file2))))) + (return (and (= (length profiles) 4) + (lset= equal? profiles reference))))))) + (test-end "size") ;;; Local Variables: |