From 25a67a8d3f6db7493458452b308792d042e94c86 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Tue, 4 Feb 2025 15:22:24 +0000
Subject: [PATCH] gnu: tractor: Enable tests.

* gnu/packages/tor.scm (tractor): Enable tests.
[arguments] <tests?>: Project provides tests, enable them.
<test-flags>: Skip 4 tests.
[inputs]: Add python-pysocks.
[native-inputs]: Add python-pytest.

Change-Id: I23a8cad6a9db45c6025fd80893dfc5921de413dd
---
 gnu/packages/tor.scm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm
index 0d187721a779c2faa8a8e567c625a0c20919f24b..b6b73f9237582204c12f65a6e8e498ed1d354ff9 100644
--- a/gnu/packages/tor.scm
+++ b/gnu/packages/tor.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2022 Jim Newsome <jnewsome@torproject.org>
 ;;; Copyright © 2025 Danial Behzadi <dani.behzi@ubuntu.com>
+;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -449,17 +450,26 @@ Potential client and exit connections are scrubbed of sensitive information.")
          "0is50z3v0mw9am31zizblq5ai30vz83qp6qsdingbn7f7cqzldmh"))))
     (build-system pyproject-build-system)
     (native-inputs
-     (list python-setuptools python-wheel
+     (list python-pytest
+           python-setuptools
+           python-wheel
            (list glib "bin")))       ; for glib-compile-schemas.
     (inputs
      (list python-fire
            python-pygobject
+           python-pysocks
            python-requests
            python-stem
            python-termcolor))
     (arguments
      (list
-      #:tests? #f                   ; no test suite.
+      #:test-flags
+      #~(list "-k" (string-join
+                    (list "not test_local"
+                          "test_network"
+                          "test_obfs"
+                          "test_stop_do")
+                    " and not "))
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'install 'install-man-page
@@ -469,7 +479,7 @@ Potential client and exit connections are scrubbed of sensitive information.")
           (add-after 'install 'install-bash-completion
             (lambda _
               (let ((bash-completion
-                      (string-append #$output "/share/bash-completion/completions")))
+                     (string-append #$output "/share/bash-completion/completions")))
                 (install-file "data/completion/bash/tractor" bash-completion))))
           (add-after 'install 'install-gschema
             (lambda _