aboutsummaryrefslogtreecommitdiff
path: root/tests/profiles.scm
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-10-08 17:15:49 +0400
committerLudovic Courtès <ludo@gnu.org>2014-10-10 00:06:35 +0200
commit5d7a8584f5c6aeed720c1115b8d46aa5a8d3157b (patch)
tree1951ecb136601c8b3d8c440ed97da475eceb2334 /tests/profiles.scm
parent12703d0854a1b16ddc73fd7c2440ef8497593a70 (diff)
downloadguix-5d7a8584f5c6aeed720c1115b8d46aa5a8d3157b.tar
guix-5d7a8584f5c6aeed720c1115b8d46aa5a8d3157b.tar.gz
ui: Move 'show-manifest-transaction' from (guix profiles).
* guix/profiles.scm: Do not use (guix ui) module. (right-arrow, manifest-show-transaction): Move and rename to... * guix/ui.scm (right-arrow, show-manifest-transaction): ... here. * tests/profiles.scm ("manifest-show-transaction"): Move to... * tests/ui.scm ("show-manifest-transaction"): ... here. (guile-1.8.8, guile-2.0.9): New variables. * emacs/guix-main.scm (process-package-actions): Rename 'manifest-show-transaction' to 'show-manifest-transaction'. * guix/scripts/package.scm (guix-package): Likewise. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/profiles.scm')
-rw-r--r--tests/profiles.scm17
1 files changed, 0 insertions, 17 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm
index 99f1fd2763..61c801c351 100644
--- a/tests/profiles.scm
+++ b/tests/profiles.scm
@@ -156,23 +156,6 @@
(equal? (list glibc) install)
(equal? (list (cons guile-1.8.8 guile-2.0.9)) upgrade)))))
-(test-assert "manifest-show-transaction"
- (let* ((m (manifest (list guile-1.8.8)))
- (t (manifest-transaction (install (list guile-2.0.9)))))
- (let-values (((remove install upgrade)
- (manifest-transaction-effects m t)))
- (with-store store
- (and (string-match "guile\t1.8.8 → 2.0.9"
- (with-fluids ((%default-port-encoding "UTF-8"))
- (with-error-to-string
- (lambda ()
- (manifest-show-transaction store m t)))))
- (string-match "guile\t1.8.8 -> 2.0.9"
- (with-fluids ((%default-port-encoding "ISO-8859-1"))
- (with-error-to-string
- (lambda ()
- (manifest-show-transaction store m t))))))))))
-
(test-assert "profile-derivation"
(run-with-store %store
(mlet* %store-monad