From 8de3df72bc96cc3f7739e61699831557852cea6b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 24 Jun 2015 15:00:34 +0200 Subject: tests: Move 'file=?' to (guix tests). * tests/nar.scm (file-tree-equal?)[file=?]: Move to... * guix/tests.scm (file=?): ... here. New procedure. --- tests/nar.scm | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'tests') diff --git a/tests/nar.scm b/tests/nar.scm index 4ccd364861..b8e50c7603 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 -- cgit 1.4.1