ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-23 21:17:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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 @@ (define (lookup-profile item)
(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: