feat: Log outgoing http requests in tests

Assisted-by: ClaudeCode:claude-opus-5
Signed-off-by: Marcel Müller <marcel-mueller@gmx.de>

Author: SystemKeeper

.github/workflows/phpunit-sqlite.yml

@@ -135,6 +135,16 @@ jobs:
             echo '```'
           } | tee -a "${GITHUB_STEP_SUMMARY:-/dev/null}"
 
+      - name: Outgoing HTTP requests
+        if: always()
+        continue-on-error: true
+        run: |
+          {
+            echo '```'
+            php tests/http-analyzer.php http-requests.log 20
+            echo '```'
+          } | tee -a "${GITHUB_STEP_SUMMARY:-/dev/null}"
+
       - name: Print logs
         if: always()
         run: |

tests/bootstrap.php

@@ -35,6 +35,12 @@
 	}
 }
 
+// Recorded on CI by default; set TEST_LOG_HTTP to a path for a manual run.
+$logHttp = getenv('TEST_LOG_HTTP') ?: (getenv('CI') ? OC::$SERVERROOT . '/http-requests.log' : '');
+if ($logHttp !== '') {
+	\Test\HttpRequestLogger::install($logHttp);
+}
+
 OC_Hook::clear();
 
 set_include_path(

tests/http-analyzer.php

@@ -0,0 +1,80 @@
+<?php
+
+declare(strict_types=1);
+/**
+ * SPDX-FileCopyrightText: 2026 Nextcloud GmbH and Nextcloud contributors
+ * SPDX-License-Identifier: AGPL-3.0-or-later
+ */
+
+/**
+ * Rank the outgoing HTTP requests recorded by Test\HttpRequestLogger.
+ *
+ * Usage: TEST_LOG_HTTP=http-requests.log phpunit ...
+ *        php tests/http-analyzer.php [http-requests.log] [topN]
+ *
+ * Tests should not reach the network: anything listed needs either a mocked
+ * IClientService or a config value that prevents the request.
+ */
+
+$file = $argv[1] ?? 'http-requests.log';
+$topCount = (int)($argv[2] ?? 20);
+
+if (!is_readable($file)) {
+	fwrite(STDERR, "cannot read $file\n");
+	exit(1);
+}
+
+/** @var list<array{test: string, method: string, uri: string, outcome: string, duration: float}> $requests */
+$requests = [];
+foreach (file($file, FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES) ?: [] as $line) {
+	$request = json_decode($line, true);
+	if (is_array($request)) {
+		$requests[] = $request;
+	}
+}
+
+if ($requests === []) {
+	echo "No outgoing HTTP requests were recorded.\n";
+	exit(0);
+}
+
+$totalDuration = array_sum(array_column($requests, 'duration'));
+printf("%d requests, %.1fs total\n", count($requests), $totalDuration);
+
+/** @param callable(array): string $key */
+function group(array $requests, callable $key): array {
+	$groups = [];
+	foreach ($requests as $request) {
+		$name = $key($request);
+		$groups[$name] ??= ['duration' => 0.0, 'requests' => 0];
+		$groups[$name]['duration'] += $request['duration'];
+		$groups[$name]['requests']++;
+	}
+	uasort($groups, static fn (array $a, array $b): int => $b['duration'] <=> $a['duration']);
+	return $groups;
+}
+
+foreach ([
+	'host' => static fn (array $r): string => parse_url($r['uri'], PHP_URL_HOST) ?: '(unparsed)',
+	'test' => static fn (array $r): string => $r['test'],
+] as $label => $key) {
+	$groups = group($requests, $key);
+	printf("\nRequests by %s\n", $label);
+	printf("  %9s %9s  %s\n", 'sum', 'requests', $label);
+	foreach (array_slice($groups, 0, $topCount, true) as $name => $stats) {
+		printf("  %8.2fs %9d  %s\n", $stats['duration'], $stats['requests'], $name);
+	}
+}
+
+usort($requests, static fn (array $a, array $b): int => $b['duration'] <=> $a['duration']);
+printf("\nTop %d slowest requests\n", $topCount);
+foreach (array_slice($requests, 0, $topCount) as $request) {
+	printf(
+		"  %8.2fs  %-6s %-4s %s\n            %s\n",
+		$request['duration'],
+		$request['method'],
+		$request['outcome'],
+		$request['uri'],
+		$request['test'],
+	);
+}

tests/lib/HttpRequestLogger.php

@@ -0,0 +1,106 @@
+<?php
+
+declare(strict_types=1);
+/**
+ * SPDX-FileCopyrightText: 2026 Nextcloud GmbH and Nextcloud contributors
+ * SPDX-License-Identifier: AGPL-3.0-or-later
+ */
+
+namespace Test;
+
+use GuzzleHttp\Handler\CurlHandler;
+use GuzzleHttp\Promise\Create;
+use GuzzleHttp\Promise\PromiseInterface;
+use OC\Http\Client\ClientService;
+use OCP\Http\Client\IClient;
+use OCP\Http\Client\IClientService;
+use OCP\Server;
+use Psr\Http\Message\RequestInterface;
+use Psr\Http\Message\ResponseInterface;
+
+/**
+ * Records the outgoing HTTP requests of a test run for tests/http-analyzer.php.
+ * Enable by setting TEST_LOG_HTTP to the log file path.
+ *
+ * Covers IClientService only: a library building its own client or calling curl
+ * directly stays invisible, as does any test that mocks IClientService.
+ */
+final class HttpRequestLogger implements IClientService {
+	private const RUN_MARKER = 'TEST_LOG_HTTP_RUN';
+
+	private function __construct(
+		private IClientService $inner,
+		private string $logFile,
+	) {
+	}
+
+	public static function install(string $logFile): void {
+		// Resolving ClientService rather than IClientService avoids recursing into
+		// this decorator, and keeps the service lazy.
+		/** @psalm-suppress InternalMethod */
+		\OC::$server->registerService(IClientService::class, static fn (): IClientService
+			=> new self(Server::get(ClientService::class), $logFile));
+
+		// A test running in a separate process re-runs the bootstrap, so only the
+		// process that owns the run may truncate. Children inherit the marker.
+		if (getenv(self::RUN_MARKER) === false) {
+			putenv(self::RUN_MARKER . '=' . getmypid());
+			file_put_contents($logFile, '');
+		}
+	}
+
+	#[\Override]
+	public function newClient(?callable $handler = null): IClient {
+		$next = $handler ?? new CurlHandler();
+
+		return $this->inner->newClient(
+			function (RequestInterface $request, array $options) use ($next): PromiseInterface {
+				$start = microtime(true);
+
+				return $next($request, $options)->then(
+					function (ResponseInterface $response) use ($request, $start): ResponseInterface {
+						$this->record($request, $start, (string)$response->getStatusCode());
+						return $response;
+					},
+					function (mixed $reason) use ($request, $start): PromiseInterface {
+						$this->record($request, $start, 'error');
+						return Create::rejectionFor($reason);
+					},
+				);
+			},
+		);
+	}
+
+	private function record(RequestInterface $request, float $start, string $outcome): void {
+		$line = json_encode([
+			'test' => self::currentTest(),
+			'method' => $request->getMethod(),
+			'uri' => (string)$request->getUri(),
+			'outcome' => $outcome,
+			'duration' => round(microtime(true) - $start, 6),
+		], JSON_INVALID_UTF8_SUBSTITUTE | JSON_UNESCAPED_SLASHES);
+
+		if ($line !== false) {
+			file_put_contents($this->logFile, $line . "\n", FILE_APPEND);
+		}
+	}
+
+	/** PHPUnit exposes no global for the running test, so walk the stack for it. */
+	private static function currentTest(): string {
+		$test = '(unknown)';
+
+		foreach (debug_backtrace(DEBUG_BACKTRACE_IGNORE_ARGS) as $frame) {
+			$class = $frame['class'] ?? '';
+			$function = $frame['function'] ?? '';
+
+			if ($class !== ''
+				&& str_starts_with($function, 'test')
+				&& is_subclass_of($class, \PHPUnit\Framework\TestCase::class)
+			) {
+				$test = $class . '::' . $function;
+			}
+		}
+
+		return $test;
+	}
+}