03/03: gnu: grub: Update to 2.02~beta3.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 4c7260011e219eb3ebf5da976ab107dbd5997829
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Thu Jun 16 09:50:27 2016 +0200

    gnu: grub: Update to 2.02~beta3.
    
    * gnu/packages/grub.scm (grub): Update to 2.02~beta3.
    [arguments]: Modify tests/grub_func_test.in in 'patch-stuff' phase.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/grub.scm |   25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/grub.scm b/gnu/packages/grub.scm
index 31b270c..01f2a84 100644
--- a/gnu/packages/grub.scm
+++ b/gnu/packages/grub.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2015 Mark H Weaver <address@hidden>
 ;;; Copyright © 2015 Leo Famulari <address@hidden>
+;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -76,20 +77,21 @@
 (define-public grub
   (package
     (name "grub")
-    (version "2.00")
+    (version "2.02beta3")
     (source (origin
              (method url-fetch)
-             (uri (string-append "mirror://gnu/grub/grub-"
-                                 version ".tar.xz"))
+             (uri (string-append
+                   "ftp://alpha.gnu.org/gnu/grub/grub-";
+                   "2.02~beta3"
+                   ".tar.xz"))
+             (file-name (string-append name "-" version ".tar.xz"))
              (sha256
               (base32
-               "0n64hpmsccvicagvr0c6v0kgp2yw0kgnd3jvsyd26cnwgs7c6kkq"))
-             (patches (search-patches "grub-gets-undeclared.patch"
-                                      "grub-freetype.patch"
-                                      "grub-CVE-2015-8370.patch"))))
+               "18ddwnw0vxs7zigvah0g6a5z5vvlz0p8fjglxv1h59sjbrakvv1h"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:configure-flags '("--disable-werror")
+     '(;; Two warnings: suggest braces, signed/unsigned comparison.
+       #:configure-flags '("--disable-werror")
        #:phases (modify-phases %standard-phases
                   (add-after
                    'unpack 'patch-stuff
@@ -100,6 +102,13 @@
                      ;; Make the font visible.
                      (copy-file (assoc-ref inputs "unifont") "unifont.bdf.gz")
                      (system* "gunzip" "unifont.bdf.gz")
+
+                     ;; We hit an assertion failure in
+                     ;; grub-core/tests/video_checksum.c, as reported at
+                     ;; 
<https://lists.gnu.org/archive/html/grub-devel/2016-07/msg00026.html>.
+                     ;; Disable this test for now.
+                     (substitute* "tests/grub_func_test.in"
+                       (("set -e") "exit 77\nset -e"))
                      #t)))))
     (inputs
      `(;; ("lvm2" ,lvm2)