[GNUnet-SVN] r38076 - gnunet

[gnunet]

Author: ng0
Date: 2016-10-06 20:13:56 +0200 (Thu, 06 Oct 2016)
New Revision: 38076

Modified:
   gnunet/guix-env.scm
Log:
gnunet/guix-env.scm: Disabled tests until they succeed, added debug output + 
CFLAGS -ggdb -O0


Modified: gnunet/guix-env.scm
===================================================================
--- gnunet/guix-env.scm 2016-10-06 18:09:34 UTC (rev 38075)
+++ gnunet/guix-env.scm 2016-10-06 18:13:56 UTC (rev 38076)
@@ -168,6 +168,9 @@
        ("automake" ,automake)
        ("gnu-gettext" ,gnu-gettext)
        ("libtool" ,libtool)))
+    ;; TODO:  To make use of out:debug, which carries the symbols,
+    ;; this file needs to fixed.
+    (outputs '("out" "debug"))
     (arguments
      `(#:configure-flags
        (list (string-append "--with-nssdir=" %output "/lib")
@@ -176,7 +179,8 @@
              ;;"--enable-gcc-hardening"
              "--enable-linker-hardening"
              "--enable-logging=verbose"
-             "--enable-poisoning")
+             "--enable-poisoning"
+             "CFLAGS=-ggdb -O0")
        ;;#:parallel-tests? #f ; parallel building seems to fail
        ;;#:tests? #f ; fail: test_gnunet_statistics.py
        #:phases
@@ -192,16 +196,16 @@
          (add-after 'patch-bin-sh 'bootstrap
            (lambda _
              (zero? (system* "sh" "bootstrap"))))
-         (delete 'check)
+         (delete 'check))))
     ;; XXX: https://gnunet.org/bugs/view.php?id=4619
-    (add-after 'install 'set-path-for-check
-      (lambda* (#:key outputs #:allow-other-keys)
-        (let* ((out (assoc-ref outputs "out"))
-               (bin (string-append out "/bin"))
-               (lib (string-append out "/lib")))
-          (setenv "GNUNET_PREFIX" lib)
-          (setenv "PATH" (string-append (getenv "PATH") ":" bin))
-          (zero? (system* "make" "check"))))))))
+    ;; (add-after 'install 'set-path-for-check
+    ;;   (lambda* (#:key outputs #:allow-other-keys)
+    ;;     (let* ((out (assoc-ref outputs "out"))
+    ;;            (bin (string-append out "/bin"))
+    ;;            (lib (string-append out "/lib")))
+    ;;       (setenv "GNUNET_PREFIX" lib)
+    ;;       (setenv "PATH" (string-append (getenv "PATH") ":" 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