Replace TestHTTPMockServer with python script

This seems to work fine in a `nix build`-sandbox as it doesn't depend on
`getprotobyname`.

flake.nix

@@ -56,41 +56,6 @@
             };
           };
 
-          HTTPParser = final.perlPackages.buildPerlPackage {
-            pname = "HTTP-Parser";
-            version = "0.06";
-            src = final.fetchurl {
-              url = "mirror://cpan/authors/id/E/ED/EDECA/HTTP-Parser-0.06.tar.gz";
-              sha256 = "sha256-+MWh4cvY8ndb09HOX6zIQx8FkQi/V1oMjb2kMuXAvEU=";
-            };
-
-            buildInputs = with final.perlPackages; [ TestMore URI HTTPMessage ];
-
-            meta = {
-              homepage = https://metacpan.org/pod/HTTP::Parser;
-              description = "HTTP::Parser - parse HTTP/1.1 request into HTTP::Request/Response object";
-              license = final.lib.licenses.artistic1;
-            };
-          };
-
-          TestHTTPMockServer = final.perlPackages.buildPerlModule {
-            pname = "Test-HTTP-MockServer";
-            version = "0.0.1";
-            src = final.fetchurl {
-              url = "mirror://cpan/authors/id/D/DR/DRUOSO/Test-HTTP-MockServer-v0.0.1.tar.gz";
-              sha256 = "sha256-cnVjaKGgOxA0IcJiuzk/a2nxQGbhKD3vpaLFWIqINDg=";
-            };
-
-            buildInputs = with final.perlPackages; [ JSONXS LWP HTTPMessage HTTPParser ];
-            doCheck = false;
-
-            meta = {
-              homepage = https://metacpan.org/pod/Test::HTTP::MockServer;
-              description = "Implement a mock HTTP server for use in tests";
-              license = final.lib.licenses.asl20;
-            };
-          };
-
           FunctionParameters = final.buildPerlPackage {
             pname = "Function-Parameters";
             version = "2.001003";
@@ -299,7 +264,6 @@
                 EmailSender
                 FileSlurp
                 FileWhich
-                HTTPParser
                 IOCompress
                 IPCRun
                 JSON
@@ -317,7 +281,6 @@
                 Starman
                 SysHostnameLong
                 TermSizeAny
-                TestHTTPMockServer
                 TestMore
                 TestPostgreSQL
                 TextDiff
@@ -348,7 +311,7 @@
             ];
 
           checkInputs = [
-            foreman
+            foreman python3
           ];
 
           hydraPath = lib.makeBinPath (
@@ -382,6 +345,9 @@
             export LOGNAME=''${LOGNAME:-foo}
             # set $HOME for bzr so it can create its trace file
             export HOME=$(mktemp -d)
+
+            export NIX_REDIRECTS=/etc/protocols=${iana-etc}/etc/protocols
+            export LD_PRELOAD="${pkgs.libredirect}/lib/libredirect.so"
           '';
 
           postInstall = ''

t/jobs/server.py

@@ -0,0 +1,35 @@
+#!/usr/bin/env python3
+
+from http.server import BaseHTTPRequestHandler, HTTPServer
+from sys import argv
+
+
+def factory(file):
+    h = handler
+    h.file = file
+    return h
+
+
+class handler(BaseHTTPRequestHandler):
+    def do_POST(self):
+        self.send_response(200)
+        self.send_header('Content-type', 'application/json')
+        with open(self.file, 'w+') as f:
+            f.write(f"{self.path}\n")
+            length = int(self.headers.get('content-length', 0))
+            body = str(self.rfile.read(length).decode("utf-8"))
+
+            f.write(f"{body}")
+        self.end_headers()
+
+        message = "{}"
+        self.wfile.write(bytes(message, "utf8"))
+
+
+if __name__ == '__main__':
+    try:
+        assert len(argv) > 1
+        with HTTPServer(('localhost', 8282), factory(argv[1])) as server:
+            server.serve_forever()
+    except KeyboardInterrupt:
+        pass

t/plugins/gitea.t

@@ -4,11 +4,6 @@ use warnings;
 use JSON;
 use Setup;
 
-use Test::HTTP::MockServer;
-
-my $server = Test::HTTP::MockServer->new();
-my $url = $server->url_base();
-
 my %ctx = test_init(
     hydra_config => q|
     <gitea_authorization>
@@ -40,7 +35,7 @@ sub addStringInput {
 addStringInput($jobset, "gitea_repo_owner", "root");
 addStringInput($jobset, "gitea_repo_name", "foo");
 addStringInput($jobset, "gitea_status_repo", "src");
-addStringInput($jobset, "gitea_http_url", "$url/gitea");
+addStringInput($jobset, "gitea_http_url", "http://localhost:8282/gitea");
 
 updateRepository('gitea', "$ctx{testdir}/jobs/git-update.sh", $scratch);
 
@@ -51,24 +46,19 @@ is(nrQueuedBuildsForJobset($jobset), 1, "Evaluating jobs/runcommand.nix should r
 ok(runBuild($build), "Build should succeed with exit code 0");
 
 my $filename = $ENV{'HYDRA_DATA'} . "/giteaout.json";
-my $handle = sub {
-    my ($request, $response) = @_;
-
-    open(FH, ">", $filename) or die("Can't open(): $!\n");
-    print FH $request->uri . "\n";
-    print FH $request->content . "\n";
-    close(FH);
-
-    return $response;
-};
-
-$server->start_mock_server($handle);
+my $pid;
+if (!defined($pid = fork())) {
+    die "Cannot fork(): $!";
+} elsif ($pid == 0) {
+    exec("python3 $ctx{jobsdir}/server.py $filename");
+} else {
     my $newbuild = $db->resultset('Builds')->find($build->id);
     is($newbuild->finished, 1, "Build should be finished.");
     is($newbuild->buildstatus, 0, "Build should have buildstatus 0.");
     ok(sendNotifications(), "Sent notifications");
 
-$server->stop_mock_server();
+    kill('INT', $pid);
+}
 
 open my $fh, $filename or die ("Can't open(): $!\n");
 my $i = 0;