[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/06: tests: Move 'file=?' to (guix tests).
From: |
Ludovic Courtès |
Subject: |
02/06: tests: Move 'file=?' to (guix tests). |
Date: |
Wed, 24 Jun 2015 16:06:04 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 8de3df72bc96cc3f7739e61699831557852cea6b
Author: Ludovic Courtès <address@hidden>
Date: Wed Jun 24 15:00:34 2015 +0200
tests: Move 'file=?' to (guix tests).
* tests/nar.scm (file-tree-equal?)[file=?]: Move to...
* guix/tests.scm (file=?): ... here. New procedure.
---
guix/tests.scm | 15 +++++++++++++++
tests/nar.scm | 11 -----------
2 files changed, 15 insertions(+), 11 deletions(-)
diff --git a/guix/tests.scm b/guix/tests.scm
index a19eda2..16b8cc7 100644
--- a/guix/tests.scm
+++ b/guix/tests.scm
@@ -27,10 +27,12 @@
#:use-module (gnu packages bootstrap)
#:use-module (srfi srfi-34)
#:use-module (rnrs bytevectors)
+ #:use-module (rnrs io ports)
#:use-module (web uri)
#:export (open-connection-for-tests
random-text
random-bytevector
+ file=?
network-reachable?
shebang-too-long?
mock
@@ -88,6 +90,19 @@
(loop (1+ i)))
bv))))
+(define (file=? a b)
+ "Return true if files A and B have the same type and same content."
+ (and (eq? (stat:type (lstat a)) (stat:type (lstat b)))
+ (case (stat:type (lstat a))
+ ((regular)
+ (equal?
+ (call-with-input-file a get-bytevector-all)
+ (call-with-input-file b get-bytevector-all)))
+ ((symlink)
+ (string=? (readlink a) (readlink b)))
+ (else
+ (error "what?" (lstat a))))))
+
(define (network-reachable?)
"Return true if we can reach the Internet."
(false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)))
diff --git a/tests/nar.scm b/tests/nar.scm
index 4ccd364..b8e50c7 100644
--- a/tests/nar.scm
+++ b/tests/nar.scm
@@ -108,17 +108,6 @@
(cute string-drop <> (string-length input)))
(define sibling
(compose (cut string-append output <>) strip))
- (define (file=? a b)
- (and (eq? (stat:type (lstat a)) (stat:type (lstat b)))
- (case (stat:type (lstat a))
- ((regular)
- (equal?
- (call-with-input-file a get-bytevector-all)
- (call-with-input-file b get-bytevector-all)))
- ((symlink)
- (string=? (readlink a) (readlink b)))
- (else
- (error "what?" (lstat a))))))
(file-system-fold (const #t)
(lambda (name stat result) ; leaf
- branch master updated (6d149ec -> eae5b3f), Ludovic Courtès, 2015/06/24
- 06/06: linux-initrd: Produce cpio archives with zeroed timestamps, etc., Ludovic Courtès, 2015/06/24
- 03/06: Add (guix cpio)., Ludovic Courtès, 2015/06/24
- 01/06: gnu: pius: Depend on GnuPG 2.0 rather than 2.1., Ludovic Courtès, 2015/06/24
- 04/06: linux-initrd: Use (guix cpio) instead of GNU cpio., Ludovic Courtès, 2015/06/24
- 02/06: tests: Move 'file=?' to (guix tests).,
Ludovic Courtès <=
- 05/06: linux-initrd: Populate cpio archives in a deterministic order., Ludovic Courtès, 2015/06/24