HCoop
/
jackhill
/
guix
/
guix.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnu: coreutils: Mark pwd-long tests XFAIL on the Hurd.
[jackhill/guix/guix.git]
/
tests
/
ui.scm
diff --git
a/tests/ui.scm
b/tests/ui.scm
index
d8573e8
..
3dc6952
100644
(file)
--- a/
tests/ui.scm
+++ b/
tests/ui.scm
@@
-1,5
+1,5
@@
;;; GNU Guix --- Functional package management for GNU
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019
, 2020
Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;;
;;; This file is part of GNU Guix.
;;;
@@
-227,6
+227,10
@@
Second line" 24))
(expt 2 40)
(size->number "1T"))
(expt 2 40)
(size->number "1T"))
+(test-equal "size->number, 1.M"
+ (expt 2 20)
+ (size->number "1.M"))
+
(test-assert "size->number, invalid unit"
(catch 'quit
(lambda ()
(test-assert "size->number, invalid unit"
(catch 'quit
(lambda ()
@@
-248,12
+252,12
@@
Second line" 24))
(let* ((m (manifest (list guile-1.8.8)))
(t (manifest-transaction (install (list guile-2.0.9)))))
(with-store store
(let* ((m (manifest (list guile-1.8.8)))
(t (manifest-transaction (install (list guile-2.0.9)))))
(with-store store
- (and (string-match "guile
\t
1.8.8 → 2.0.9"
+ (and (string-match "guile
+
1.8.8 → 2.0.9"
(with-fluids ((%default-port-encoding "UTF-8"))
(with-error-to-string
(lambda ()
(show-manifest-transaction store m t)))))
(with-fluids ((%default-port-encoding "UTF-8"))
(with-error-to-string
(lambda ()
(show-manifest-transaction store m t)))))
- (string-match "guile
\t
1.8.8 -> 2.0.9"
+ (string-match "guile
+
1.8.8 -> 2.0.9"
(with-error-to-string
(lambda ()
;; In Guile 2.2, %DEFAULT-PORT-ENCODING doesn't
(with-error-to-string
(lambda ()
;; In Guile 2.2, %DEFAULT-PORT-ENCODING doesn't