02/03: gnu: add disorderfs.

[Marius Bakke]

mbakke pushed a commit to branch master
in repository guix.

commit 7c5cc400977df8d394cd0aebd0465f94313a0d91
Author: Gábor Boskovits <address@hidden>
Date:   Sat Nov 4 23:35:05 2017 +0100

    gnu: add disorderfs.
    
    * gnu/packages/file-systems.scm (disorderfs): New variable.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/file-systems.scm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm
index b4134de..407262c 100644
--- a/gnu/packages/file-systems.scm
+++ b/gnu/packages/file-systems.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2017 Gábor Boskovits <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -20,8 +21,10 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
+  #:use-module (gnu packages attr)
   #:use-module (gnu packages documentation)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages linux)
@@ -86,3 +89,40 @@ ISO images when you only need to inspect their contents or 
extract specific
 files.  Since the HTTP protocol itself has no notion of directories, only a
 single file can be mounted.")
     (license license:gpl2+)))
+
+(define-public disorderfs
+  (package
+    (name "disorderfs")
+    (version "0.5.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/ReproducibleBuilds/disorderfs.git";)
+             (commit "0.5.2")))
+       (sha256
+        (base32
+         "1j028dq3d4m64mn9xmfamcnnc7i2drmra4pdmxdmqdsi8p7yj4sv"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("fuse" ,fuse)
+       ("attr" ,attr)))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (delete 'configure))
+       #:make-flags (let ((out (assoc-ref %outputs "out")))
+                      (list (string-append "PREFIX=" out)))
+       #:test-target "test"
+       ;; FIXME: Tests require 'run-parts' which is not in Guix yet.
+       #:tests? #f))
+    (home-page "https://github.com/ReproducibleBuilds/disorderfs";)
+    (synopsis "FUSE filesystem that introduces non-determinism")
+    (description
+     "An overlay FUSE filesystem that introduces non-determinism
+into filesystem metadata.  For example, it can randomize the order
+in which directory entries are read.  This is useful for detecting
+non-determinism in the build process.")
+    (license license:gpl3+)))
+