02/03: gnu: qtox: Update to 1.17.2.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit bd89d898c10bc64652bdce9be904902c4b973f5d
Author: Reza Alizadeh Majd <r.majd@pantherx.org>
AuthorDate: Sun Jun 14 17:52:34 2020 +0430

    gnu: qtox: Update to 1.17.2.
    
    * gnu/packages/messaging.scm (qtox): Update to 1.17.2.
    [arguments]: Add phase to disable network tests.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/messaging.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index 6ee21a4..59e7900 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -1121,14 +1121,14 @@ instant messenger with audio and video chat 
capabilities.")
 (define-public qtox
   (package
     (name "qtox")
-    (version "1.16.3")
+    (version "1.17.2")
     (source (origin
               (method url-fetch)
               (uri (string-append "https://github.com/qTox/qTox/archive/v";
                                   version ".tar.gz"))
               (sha256
                (base32
-                "10n3cgw9xaqin9la8wpd8v83bkjmimicgbyp5ninsdgsrgky4hmq"))
+                "1b3a6d0k4780fwimi8l7mdbk280nilhhdmls17klapnfsp30zdi3"))
               (file-name (string-append name "-" version ".tar.gz"))))
     (build-system cmake-build-system)
     (arguments
@@ -1141,6 +1141,13 @@ instant messenger with audio and video chat 
capabilities.")
                (("__TIME__") "\"\"")
                (("TIMESTAMP") "\"\""))
              #t))
+         (add-after 'unpack 'disable-network-tests
+           (lambda _
+             ;; These tests require network access.
+             (substitute* "cmake/Testing.cmake"
+               (("auto_test\\(core core\\)") "# auto_test(core core)")
+               (("auto_test\\(net bsu\\)") "# auto_test(net bsu)"))
+             #t))
          ;; Ensure that icons are found at runtime.
          (add-after 'install 'wrap-executable
            (lambda* (#:key inputs outputs #:allow-other-keys)