From 92c23e96ddb029e2c2e538346fc4e468e64ea61b Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Tue, 19 Jul 2016 12:05:10 +0600
Subject: Elixir tests pass (but not mix)

---
 gn/packages/elixir.scm | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

(limited to 'gn/packages')

diff --git a/gn/packages/elixir.scm b/gn/packages/elixir.scm
index c1ff3e4..d477873 100644
--- a/gn/packages/elixir.scm
+++ b/gn/packages/elixir.scm
@@ -23,6 +23,7 @@
   #:use-module (guix download)
   #:use-module (guix packages)
   #:use-module (gnu packages)
+  #:use-module (gnu packages base)  ; for patch
   #:use-module (gnu packages erlang)
   #:use-module (gnu packages version-control))
 
@@ -39,22 +40,32 @@
               (sha256
                (base32
                 "0jsc6kl7f74yszcypdv3w3vhyc9qfqav8nwc41in082m0vpfy95y"))
-              (patches (list (search-patch "elixir-disable-failing-tests.patch")))))
+              ))
     (build-system gnu-build-system)
+    (native-inputs
+     `(("patch" ,patch)
+       ("patch/disable-tests" ,(search-patch "elixir-disable-failing-tests.patch"))))
     (inputs
      `(("erlang" ,erlang)
        ("git" ,git)))
     (arguments
      `(#:phases (modify-phases %standard-phases
          (delete 'configure)
-         (replace 'check
-                  (lambda _
-                    (zero? (system* "make" "test"))))
          (add-before
           'build 'rewrite-path
           (lambda* (#:key inputs #:allow-other-keys)
                    (substitute* "bin/elixir"
-                     (("ERL_EXEC=\"erl\"") (string-append "ERL_EXEC=" (which "erl")))))))
+                     (("ERL_EXEC=\"erl\"") (string-append "ERL_EXEC=" (which "erl"))))))
+         (add-after 'build 'patch-elixir-tests ;; patching earlier breaks the build
+          (lambda* (#:key inputs #:allow-other-keys)
+
+
+             (zero? (system* "patch" "--force" "-p1" "-i" (assoc-ref inputs "patch/disable-tests")
+            ))))
+
+         (replace 'check
+                  (lambda _
+                    (zero? (system* "make" "test")))))
        #:make-flags (list (string-append "PREFIX=" %output))
        #:tests? #t)) ;; 3124 tests, 11 failures, 1 skipped
 
-- 
cgit v1.2.3