10/10: gnu: qtxmlpatterns: Skip network tests.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit f66b3e1523e1c7ee7d78958b2a8526d9100f0809
Author: Efraim Flashner <address@hidden>
Date:   Sun Jan 8 13:35:41 2017 +0200

    gnu: qtxmlpatterns: Skip network tests.
    
    * gnu/packages/qt.scm (qtxmlpatterns)[arguments]: Add custom phase to
    prevent the building of network tests.
---
 gnu/packages/qt.scm |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 5189da4..b2fe6e4 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -634,7 +634,13 @@ developers using C++ or QML, a CSS & JavaScript like 
language.")
                "1rgqnpg64gn5agmvjwy0am8hp5fpxl3cdkixr1yrsdxi5a6961d8"))))
     (arguments
      (substitute-keyword-arguments (package-arguments qtsvg)
-       ((#:tests? _ #f) #f))) ; TODO: Enable the tests
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-after 'unpack 'disable-network-tests
+             (lambda _ (substitute* "tests/auto/auto.pro"
+                         (("qxmlquery") "# qxmlquery")
+                         (("xmlpatterns") "# xmlpatterns"))
+               #t))))))
     (native-inputs `(("perl" ,perl)))
     (inputs `(("qtbase" ,qtbase)))))