guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

size: Add test to multiple 'store-profile' arguments. 

* tests/size.scm ("store-profile with multiple items"): New test.
This commit is contained in:
Ludovic Courtès 2017-04-06 18:22:53 +02:00
parent 9a3762a768
commit c923f83116
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/size.scm
View File

@ -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: