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/size.scm | |
| parent | f575efa12c5df9f9879b7be0fe3593a3106a346d (diff) | |
| parent | 8439c9c05eab5c98d889fb1de56bc78f62a8058f (diff) | |
| download | patches-c57ce31a896f659a2e311c2ee90b9027f4a405bc.tar patches-c57ce31a896f659a2e311c2ee90b9027f4a405bc.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/size.scm')
| -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: |