mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
ui: Simplify 'show-manifest-transaction' test.
* tests/ui.scm ("show-manifest-transaction"): Remove useless call to 'manifest-transaction-effects'.
This commit is contained in:
parent
b7071bc5bb
commit
77ee4a96f4
1 changed files with 12 additions and 14 deletions
26
tests/ui.scm
26
tests/ui.scm
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -230,19 +230,17 @@ (define guile-2.0.9
|
|||
(test-assert "show-manifest-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 ()
|
||||
(show-manifest-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 ()
|
||||
(show-manifest-transaction store 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 ()
|
||||
(show-manifest-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 ()
|
||||
(show-manifest-transaction store m t)))))))))
|
||||
|
||||
(test-end "ui")
|
||||
|
||||
|
|
Loading…
Reference in a new issue