From 282df1603637d80946c619ebaea8598d766d7527 Mon Sep 17 00:00:00 2001
From: ng0 <ng0@we.make.ritual.n0.is>
Date: Sat, 6 Aug 2016 17:54:02 +0000
Subject: [PATCH 3/3] further changes on top of gnunet-svn and gnunet-svn-gtk.

---
 gnu/packages/gnunet.scm | 56 ++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 44 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/gnunet.scm b/gnu/packages/gnunet.scm
index a3f34ea..bdfd3b4 100644
--- a/gnu/packages/gnunet.scm
+++ b/gnu/packages/gnunet.scm
@@ -49,6 +49,13 @@
   #:use-module (gnu packages databases)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages video)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages gnuzilla)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages linux)
+;;  #:use-module (gnu packages tex)
   #:use-module (gnu packages xiph)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
@@ -338,7 +345,7 @@ services.")
 ;; version before refactoring work towards 0.10.2 started.
 
 (define-public gnunet-svn
-  (let ((svn-revision 37273))
+  (let ((svn-revision 37667))
     (package
       (name "gnunet-svn")
       (version (string-append "0.10.1" "-1" ".svn"
@@ -352,7 +359,7 @@ services.")
          (file-name (string-append name "-" version "-checkout"))
          (sha256
           (base32
-           "0xn8g0mk2nl142yz4zzrj25rpnhxfvjwnfnangyx8s44xv75i2dc"))))
+           "1bq0qziv0l27zjrbdk3h9601dn6lhx7w3whmxwygxp2q5g4a6yxy"))))
       (build-system gnu-build-system)
       (inputs
        `(("glpk" ,glpk)
@@ -371,7 +378,17 @@ services.")
          ("pulseaudio" ,pulseaudio)
          ("sqlite" ,sqlite)
          ("zlib" ,zlib)
-         ("python" ,python-2))) ; tests and gnunet-qr
+         ("perl" ,perl)
+         ("python" ,python-2) ; tests and gnunet-qr
+         ("jansson" ,jansson)
+         ("ncurses" ,ncurses)
+         ("nss" ,nss)
+         ("gmp" ,gmp)
+         ("bluez" ,bluez) ; for optional bluetooth feature
+         ;; ("udpcast" ,udpcast) ; optional.
+         ("glib" ,glib)
+         ;; ("texlive-minimal" ,texlive-minimal) ; optional.
+         ("libogg" ,libogg)))
       (native-inputs
        `(("pkg-config" ,pkg-config)
          ("autoconf" ,autoconf)
@@ -380,7 +397,8 @@ services.")
          ("libtool" ,libtool)))
       (arguments
        '(#:configure-flags
-         (list (string-append "--with-nssdir=" %output "/lib"))
+         (list (string-append "--with-nssdir=" %output "/lib")
+               "--enable-experimental")
          #:parallel-tests? #f ; parallel building is not functional
          #:tests? #f ; FAIL: test_testbed_logger_api
          #:phases
@@ -397,11 +415,26 @@ services.")
              (lambda _
                (zero?
                 (system* "sh" "bootstrap"))))
-           (add-before 'check 'set-path-for-check
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out")))
-                 (setenv "GNUNET_PREFIX" (string-append out "/lib"))
-                 (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))))))))
+           ;; DISABLED until failing testcases are fixed.
+           ;; this test fails in our environment, disable it:
+           ;; XXX: specify which ones fail.
+           ;; (add-after 'patch-bin-sh 'disable-test_quota_compliance_tcp_asymmetric
+           ;;   (lambda _
+           ;;     (substitute* '("src/transport/Makefile.am")
+           ;;       (("test_quota_compliance_tcp_asymmetric") ""))))
+           ;;       (("test_quota_compliance_http_asymmetric") "")
+           ;;       (("test_quota_compliance_https_asymmetric") "")
+           ;;       (("test_quota_compliance_unix") "")
+           ;;       (("test_quota_compliance_unix_asymmetric") ""))))
+           ;; check is between build and install, fix this to:
+           ;; build - install - check, else the test suite fails.
+           ;; (delete 'check)
+           ;; (add-after 'install 'set-path-for-check
+           ;;   (lambda* (#:key outputs #:allow-other-keys)
+           ;;     (let ((out (assoc-ref outputs "out")))
+           ;;       (setenv "GNUNET_PREFIX" (string-append out "/lib"))
+           ;;       (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")))
+           ;;     (zero? (system* "make" "check")))))))
       (synopsis "Secure, decentralized, peer-to-peer networking framework")
       (description
        "GNUnet is a framework for secure peer-to-peer networking.  The
@@ -414,7 +447,7 @@ kinds of basic applications for the foundation of a GNU internet.")
       (home-page "https://gnunet.org/"))))
 
 (define-public gnunet-gtk-svn
-  (let ((svn-revision 37273))
+  (let ((svn-revision 37667))
     (package
       (inherit gnunet-svn)
       (name "gnunet-gtk-svn")
@@ -428,7 +461,7 @@ kinds of basic applications for the foundation of a GNU internet.")
          (file-name (string-append name "-" version "-checkout"))
          (sha256
           (base32
-           "1mckc5aq05wpbvb8mbm0llkhavb0j2f496l73zaapdy3ndyhai8j"))))
+           "0xm95ac47h00c248g3g8h4smjyzx6yzdlra5kgdnymsl4zymmh3l"))))
       (arguments
        `(#:configure-flags
          (list "--without-libunique"
@@ -458,4 +491,3 @@ kinds of basic applications for the foundation of a GNU internet.")
          ("libtool" ,libtool)))
       (synopsis "Graphical front-end tools for GNUnet")
       (home-page "https://gnunet.org"))))
-
-- 
2.9.2