From c923f831160ddbda21d8ea1f2df4670550f3e9d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 6 Apr 2017 18:22:53 +0200
Subject: [PATCH] size: Add test to multiple 'store-profile' arguments.
* tests/size.scm ("store-profile with multiple items"): New test.
---
tests/size.scm | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/tests/size.scm b/tests/size.scm
index 068ebc1d687..575b1abfdd6 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 @@ (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:
--
GitLab