From bfe03757d32edb95058f5ee11456ea9aab23039d Mon Sep 17 00:00:00 2001
From: Matt Clarkson <matthew.clarkson@arm.com>
Date: Wed, 5 Feb 2025 13:34:50 +0000
Subject: [PATCH] test(redbean): add serve test

---
 e2e/binary/redbean/BUILD.bazel | 22 ++++++++++++++++------
 e2e/binary/redbean/serve.py    | 30 ++++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+), 6 deletions(-)
 create mode 100644 e2e/binary/redbean/serve.py

diff --git a/e2e/binary/redbean/BUILD.bazel b/e2e/binary/redbean/BUILD.bazel
index 6ea178e7..c38f36c7 100644
--- a/e2e/binary/redbean/BUILD.bazel
+++ b/e2e/binary/redbean/BUILD.bazel
@@ -1,11 +1,21 @@
-load("@bazel_skylib//rules:build_test.bzl", "build_test")
+load("@rules_python_pytest//python_pytest:defs.bzl", "py_pytest_test")
 
-# TODO: write an _actual_ test for `redbean`
+py_pytest_test(
+    name = "pytest",
+    size = "small",
+    srcs = ["serve.py"],
+    data = [
+        "@ape//ape:redbean",
+    ],
+    deps = [
+        "//binary:pytest",
+    ],
+)
 
-build_test(
+test_suite(
     name = "redbean",
-    size = "small",
-    tags = ["stub"],
-    targets = ["@ape//ape:redbean"],
+    tests = [
+        ":pytest",
+    ],
     visibility = ["//:__subpackages__"],
 )
diff --git a/e2e/binary/redbean/serve.py b/e2e/binary/redbean/serve.py
new file mode 100644
index 00000000..80c0cb02
--- /dev/null
+++ b/e2e/binary/redbean/serve.py
@@ -0,0 +1,30 @@
+from __future__ import annotations
+
+from os import environ
+from pathlib import Path
+from subprocess import PIPE, Popen
+from urllib.request import urlopen
+
+from binary import Relative, Tool, sniff
+from pytest import fail, mark
+
+
+def test_serve(tool: Tool, relative: Relative, tmp_path: Path) -> None:
+    binary = tool("redbean")
+
+    cmd = (binary, "-p", "0", "-z")
+    server = Popen(cmd, stdout=PIPE, encoding="utf8", cwd=tmp_path)
+    match = sniff(
+        server.stdout.fileno(),
+        r"([0-9]{3,5})",
+        timeout=30,
+    )
+    port = match.group(1)
+
+    with urlopen(f"http://localhost:{port}") as stream:
+        assert 200 <= stream.status < 300
+        for line in stream:
+            if b"redbean zip listing" in line:
+                break
+        else:
+            fail("failed to find redbean title in returned HTML page")
-- 
GitLab