summary refs log tree commit diff
path: root/gnu/packages/patches/scheme48-tests.patch
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-11 22:13:59 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-11 22:13:59 +0200
commitf7ce90e7b94bc06aae8a28d493242969fbe7737c (patch)
tree853b1958eb296e864db69bac096ce8e31e38165f /gnu/packages/patches/scheme48-tests.patch
parent35ff176877886ee335ecfd2dfc43a3290d10b9ff (diff)
downloadguix-f7ce90e7b94bc06aae8a28d493242969fbe7737c.tar.gz
gnu: Add Scheme48.
* gnu/packages/scheme.scm (scheme48): New variable.
* gnu/packages/patches/scheme48-tests.patch: New file.
* Makefile.am (dist_patch_DATA): Add it.
Diffstat (limited to 'gnu/packages/patches/scheme48-tests.patch')
-rw-r--r--gnu/packages/patches/scheme48-tests.patch36
1 files changed, 36 insertions, 0 deletions
diff --git a/gnu/packages/patches/scheme48-tests.patch b/gnu/packages/patches/scheme48-tests.patch
new file mode 100644
index 0000000000..7ee228f3aa
--- /dev/null
+++ b/gnu/packages/patches/scheme48-tests.patch
@@ -0,0 +1,36 @@
+The test case below relies on /etc/groups and similar info that is
+not available in chroot builds, so skip it.
+
+--- scheme48-1.9/scheme/posix/check.scm	2013-05-11 21:55:36.000000000 +0200
++++ scheme48-1.9/scheme/posix/check.scm	2013-05-11 21:55:40.000000000 +0200
+@@ -229,29 +229,7 @@
+ 
+ ; This assumes that we are not running as root and that / is owned by root.
+ 
+-(define-test-case users&groups posix-core-tests
+-  (let ((my-info (get-file-info directory-name))
+-	(root-info (get-file-info "/")))
+-    (let ((my-user (user-id->user-info (file-info-owner my-info)))
+-	  (root-user (user-id->user-info (file-info-owner root-info)))
+-	  (my-group (group-id->group-info (file-info-group my-info)))
+-	  (root-group (group-id->group-info (file-info-group root-info))))
+-      (let ((my-other-user (name->user-info (user-info-name my-user)))
+-	    (my-other-group (name->group-info (group-info-name my-group))))
+-	(check-that (file-info-owner my-info)
+-		    (is user-id=? (user-info-id my-user)))
+-	(check-that (file-info-owner root-info)
+-		    (opposite (is user-id=? (user-info-id my-user))))
+-	(check-that (file-info-group my-info)
+-		    (is group-id=? (group-info-id my-group)))
+-	;; doesn't work reliably
+-	;; (specifically, if the user is member of wheel)
+-	;; (check (not (group-id=? (file-info-group root-info)
+-	;;		(group-info-id my-group))))
+-	(check-that (os-string->string (user-info-name root-user))
+-		    (member-of '("root"
+-				 "bin" ; AIX
+-				 )))))))
++
+ 
+ (define-test-case environment posix-core-tests
+   (let ((env (reverse (environment-alist))))