From b92f46a5b1d0e14d8d306c2625e98c8493223344 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Tue, 19 Jul 2016 13:30:02 +0600
Subject: Add patch

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

(limited to 'gn/packages/elixir.scm')

diff --git a/gn/packages/elixir.scm b/gn/packages/elixir.scm
index d477873..46026d8 100644
--- a/gn/packages/elixir.scm
+++ b/gn/packages/elixir.scm
@@ -41,10 +41,13 @@
                (base32
                 "0jsc6kl7f74yszcypdv3w3vhyc9qfqav8nwc41in082m0vpfy95y"))
               ))
+
     (build-system gnu-build-system)
     (native-inputs
      `(("patch" ,patch)
-       ("patch/disable-tests" ,(search-patch "elixir-disable-failing-tests.patch"))))
+       ("patch/elixir-disable-failing-tests" ,(search-patch "elixir-disable-failing-tests.patch"))
+       ("patch/elixir-disable-mix-tests" ,(search-patch "elixir-disable-mix-tests.patch"))
+        ))
     (inputs
      `(("erlang" ,erlang)
        ("git" ,git)))
@@ -59,15 +62,16 @@
          (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")
-            ))))
+            (and
+             (zero? (system* "patch" "--force" "-p1" "-i" (assoc-ref inputs "patch/elixir-disable-failing-tests")))
+             (zero? (system* "patch" "--force" "-p1" "-i" (assoc-ref inputs "patch/elixir-disable-mix-tests")))
+            )))
 
          (replace 'check
                   (lambda _
                     (zero? (system* "make" "test")))))
        #:make-flags (list (string-append "PREFIX=" %output))
-       #:tests? #t)) ;; 3124 tests, 11 failures, 1 skipped
+       #:tests? #t)) ;; 3124 tests, 0 failures, 11 skipped
 
     (home-page "http://elixir-lang.org/")
     (synopsis "The Elixir programming language")
-- 
cgit v1.2.3