feat(compat): sweep of components against the real core with strict diagnostics
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
CONFIG := packages/commands/src/Toolbox/Config.php
|
||||
VERSION := $(shell grep -oP "const VERSION = '\K[^']+" $(CONFIG))
|
||||
|
||||
.PHONY: help test build release publish check clean
|
||||
.PHONY: help test build compat release publish check clean
|
||||
|
||||
help: ## Muestra esta ayuda
|
||||
@grep -hE '^[a-z-]+:.*## ' $(MAKEFILE_LIST) | sed -E 's/^([a-z-]+):.*## (.+)$$/ make \1 \xe2\x80\x94 \2/'
|
||||
@@ -15,6 +15,9 @@ test: ## Corre la suite de pruebas (harness propio, sin phpunit)
|
||||
build: ## Construye dist/duckbrain.phar y su .sha256
|
||||
scripts/build-phar
|
||||
|
||||
compat: ## Barrido de compatibilidad contra el core real (requiere red)
|
||||
scripts/compat-sweep $(if $(ARGS),$(ARGS),)
|
||||
|
||||
release: ## Asistente interactivo para versionar un paquete (scripts/release)
|
||||
./scripts/release $(if $(ARGS),$(ARGS),)
|
||||
|
||||
|
||||
Executable
+197
@@ -0,0 +1,197 @@
|
||||
#!/usr/bin/env bash
|
||||
# Barrido de compatibilidad componente <-> core real (change verify-core-compat).
|
||||
# Monta un proyecto temporal por paquete contra el core real publicado, lo
|
||||
# ejercita segun su nivel de evidencia (tests/compat/levels.json) con criterios
|
||||
# estrictos (cualquier Deprecated/Warning/Notice/Fatal cuenta FAIL) y escribe
|
||||
# tests/compat/report.json.
|
||||
#
|
||||
# Uso: scripts/compat-sweep [--only <paquete> ...]
|
||||
# Env: DUCKBRAIN_CORE_URL repositorio del core (default: Config::coreUrl())
|
||||
# DUCKBRAIN_CACHE_DIR caché donde CoreProvider mantiene el clon del core
|
||||
set -euo pipefail
|
||||
|
||||
ROOT="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)"
|
||||
COMPAT="$ROOT/tests/compat"
|
||||
LEVELS="$COMPAT/levels.json"
|
||||
REPORT="$COMPAT/report.json"
|
||||
WORK="$(mktemp -d)"
|
||||
trap 'rm -rf "$WORK"' EXIT
|
||||
|
||||
ONLY=()
|
||||
args=("$@")
|
||||
i=0
|
||||
while [ "$i" -lt "${#args[@]}" ]; do
|
||||
case "${args[i]}" in
|
||||
--only) i=$((i + 1)); ONLY+=("${args[i]}") ;;
|
||||
*) echo "Uso: scripts/compat-sweep [--only <paquete> ...]" >&2; exit 2 ;;
|
||||
esac
|
||||
i=$((i + 1))
|
||||
done
|
||||
|
||||
# --- resolver el core real (clon + checkout del mayor tag semver) --------------
|
||||
CORE_INFO="$(php -d error_reporting=-1 -r '
|
||||
require "'"$ROOT"'/src/autoload.php";
|
||||
try {
|
||||
$p = Toolbox\CoreProvider::fromUrl(
|
||||
Toolbox\Config::coreUrl(), Toolbox\Config::cacheDir(), new Toolbox\Console()
|
||||
);
|
||||
$v = $p->version();
|
||||
if ($v === null) {
|
||||
fwrite(STDERR, "El core no tiene tags semver publicados; nada que verificar.\n");
|
||||
exit(1);
|
||||
}
|
||||
echo $p->dir(), "\n", $v, "\n", (string) $p->commit(), "\n";
|
||||
} catch (Throwable $e) {
|
||||
fwrite(STDERR, "No se pudo acceder al core real: " . $e->getMessage() . "\n");
|
||||
exit(1);
|
||||
}' 2>"$WORK/core.err")" || {
|
||||
echo "== ERROR: barrido abortado ==" >&2
|
||||
cat "$WORK/core.err" >&2
|
||||
exit 1
|
||||
}
|
||||
CORE_DIR="$(printf '%s\n' "$CORE_INFO" | sed -n 1p)"
|
||||
CORE_VER="$(printf '%s\n' "$CORE_INFO" | sed -n 2p)"
|
||||
CORE_SHA="$(printf '%s\n' "$CORE_INFO" | sed -n 3p)"
|
||||
echo "== core real: v$CORE_VER ($CORE_SHA) en $CORE_DIR =="
|
||||
echo
|
||||
|
||||
LEVELS_PATH="$LEVELS" php -r '
|
||||
$levels = json_decode((string) file_get_contents(getenv("LEVELS_PATH")), true);
|
||||
echo implode("\n", array_keys($levels)), "\n";' > "$WORK/pkgs"
|
||||
|
||||
RESULTS="$WORK/results"
|
||||
: > "$RESULTS"
|
||||
FAILED=0
|
||||
|
||||
wanted() {
|
||||
[ "${#ONLY[@]}" -eq 0 ] && return 0
|
||||
local w
|
||||
for w in "${ONLY[@]}"; do [ "$w" = "$1" ] && return 0; done
|
||||
return 1
|
||||
}
|
||||
|
||||
stop_server() {
|
||||
if [ -n "${SERVER_PID:-}" ]; then
|
||||
kill "$SERVER_PID" 2>/dev/null || true
|
||||
wait "$SERVER_PID" 2>/dev/null || true
|
||||
SERVER_PID=""
|
||||
fi
|
||||
}
|
||||
|
||||
# --- por paquete ---------------------------------------------------------------
|
||||
while read -r PKG; do
|
||||
wanted "$PKG" || continue
|
||||
PROJ="$WORK/proj-$PKG"
|
||||
LOG="$WORK/$PKG.server.log"
|
||||
echo "── $PKG"
|
||||
|
||||
php -d error_reporting=-1 "$ROOT/bin/duckbrain" install "$PROJ" --core-dir="$CORE_DIR" --yes >/dev/null
|
||||
php -d error_reporting=-1 "$ROOT/bin/duckbrain" add "$PKG" --root="$PROJ" --yes >/dev/null \
|
||||
|| { echo "$PKG:add|fail" >> "$RESULTS"; echo " add fallo"; FAILED=1; continue; }
|
||||
|
||||
# Config del proyecto temporal: sqlite, clave para crypto y db local.
|
||||
PROJ_PATH="$PROJ" php -r '
|
||||
$proj = getenv("PROJ_PATH");
|
||||
$f = "$proj/config.php";
|
||||
$cfg = (string) file_get_contents($f);
|
||||
$cfg = str_replace("define(\x27DB_TYPE\x27, \x27mysql\x27);", "define(\x27DB_TYPE\x27, \x27sqlite\x27);", $cfg);
|
||||
$cfg = str_replace("define(\x27DB_NAME\x27, \x27\x27);", "define(\x27DB_NAME\x27, \x27$proj/app.sqlite\x27);", $cfg);
|
||||
if (!str_contains($cfg, "PRIVATE_KEY")) {
|
||||
$cfg .= "\ndefine(\x27PRIVATE_KEY\x27, \x27compat-sweep-clave-de-prueba-32!\x27);\n";
|
||||
}
|
||||
file_put_contents($f, $cfg);'
|
||||
|
||||
# Router de compatibilidad del fixture (si lo hay).
|
||||
if [ -f "$COMPAT/$PKG/router.php" ]; then
|
||||
mkdir -p "$PROJ/src/Routers"
|
||||
sed "s|@COMPAT@|$COMPAT/$PKG|g" "$COMPAT/$PKG/router.php" > "$PROJ/src/Routers/Compat.php"
|
||||
fi
|
||||
|
||||
# Servidor con diagnósticos al máximo y capturados.
|
||||
BASE=""
|
||||
: > "$LOG"
|
||||
for PORT in $(seq 18100 18120); do
|
||||
PHP_CLI_SERVER_WORKERS=4 php -d error_reporting=-1 -d display_errors=1 \
|
||||
-d log_errors=1 -d error_log="$LOG" -S "127.0.0.1:$PORT" -t "$PROJ" "$PROJ/index.php" \
|
||||
>/dev/null 2>&1 &
|
||||
SERVER_PID=$!
|
||||
for _ in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20; do
|
||||
sleep 0.15
|
||||
if curl -s -o /dev/null "http://127.0.0.1:$PORT/compat/ping"; then
|
||||
BASE="http://127.0.0.1:$PORT"
|
||||
break 2
|
||||
fi
|
||||
done
|
||||
stop_server
|
||||
done
|
||||
if [ -z "$BASE" ]; then
|
||||
echo " no hubo servidor en 18100-18120" >&2
|
||||
echo "$PKG:server|fail" >> "$RESULTS"; FAILED=1; continue
|
||||
fi
|
||||
|
||||
# Aserciones del fixture (si lo hay; los niveles "none" no tienen).
|
||||
if [ -f "$COMPAT/$PKG/assert.sh" ]; then
|
||||
BASE="$BASE" PROJ="$PROJ" PKG="$PKG" LOG="$LOG" RESULTS="$RESULTS" COMPAT="$COMPAT" \
|
||||
bash "$COMPAT/$PKG/assert.sh" || true
|
||||
fi
|
||||
stop_server
|
||||
|
||||
# Criterio estricto: cualquier diagnostico en el log del servidor es fallo.
|
||||
if grep -qE 'Deprecated|Warning:|Notice:|Fatal error|Parse error' "$LOG"; then
|
||||
echo " diagnostico PHP detectado en el servidor (ver $LOG):"
|
||||
grep -E 'Deprecated|Warning:|Notice:|Fatal error|Parse error' "$LOG" | sed 's/^/ /'
|
||||
FAILED=1
|
||||
fi
|
||||
done < "$WORK/pkgs"
|
||||
|
||||
# --- merge de resultados con levels.json y reporte ------------------------------
|
||||
LEVELS_PATH="$LEVELS" RESULTS_PATH="$RESULTS" REPORT_PATH="$REPORT" \
|
||||
CORE_VER="$CORE_VER" CORE_SHA="$CORE_SHA" php -r '
|
||||
$levels = json_decode((string) file_get_contents(getenv("LEVELS_PATH")), true);
|
||||
$results = [];
|
||||
foreach (file(getenv("RESULTS_PATH"), FILE_IGNORE_NEW_LINES) as $line) {
|
||||
[$id, $status] = array_pad(explode("|", $line, 2), 2, "");
|
||||
$results[$id] = $status;
|
||||
}
|
||||
// Corre parciales (--only): hereda del reporte previo los ok del mismo core.
|
||||
$prior = is_file(getenv("REPORT_PATH"))
|
||||
? (json_decode((string) file_get_contents(getenv("REPORT_PATH")), true) ?: [])
|
||||
: [];
|
||||
$stale = ($prior["core"]["version"] ?? null) !== getenv("CORE_VER");
|
||||
$out = [];
|
||||
$fail = 0;
|
||||
foreach ($levels as $pkg => $comps) {
|
||||
foreach ($comps as $comp => $level) {
|
||||
$reason = null;
|
||||
if (is_array($level)) { $reason = $level["reason"] ?? null; $level = $level["level"]; }
|
||||
$id = "$pkg:$comp";
|
||||
$status = $results[$id] ?? ($level === "none" ? "skipped" : "not_attempted");
|
||||
if ($status === "not_attempted" && !$stale && ($prior["components"][$id]["status"] ?? "") === "ok") {
|
||||
$status = "ok";
|
||||
}
|
||||
if (!in_array($status, ["ok", "skipped"], true)) { $fail++; }
|
||||
$out[$id] = array_filter([
|
||||
"status" => $status,
|
||||
"level" => $level,
|
||||
"reason" => $reason,
|
||||
], fn ($v) => $v !== null);
|
||||
}
|
||||
}
|
||||
$report = [
|
||||
"core" => ["version" => getenv("CORE_VER"), "commit" => getenv("CORE_SHA")],
|
||||
"generated" => gmdate("Y-m-d\TH:i:s\Z"),
|
||||
"components" => $out,
|
||||
];
|
||||
file_put_contents(getenv("REPORT_PATH"), json_encode($report, JSON_PRETTY_PRINT | JSON_UNESCAPED_SLASHES) . "\n");
|
||||
foreach ($out as $id => $r) {
|
||||
printf(" %-24s %-13s %s%s\n", $id, $r["status"], $r["level"], isset($r["reason"]) ? " (" . $r["reason"] . ")" : "");
|
||||
}
|
||||
exit($fail === 0 ? 0 : 1);'
|
||||
|
||||
STATUS=$?
|
||||
if [ "$STATUS" = 0 ]; then
|
||||
echo "OK: barrido de compatibilidad completo contra core v$CORE_VER"
|
||||
else
|
||||
echo "FAIL: hay componentes sin verificar o con fallos (ver $REPORT)" >&2
|
||||
fi
|
||||
exit $STATUS
|
||||
+18
@@ -0,0 +1,18 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke HTTP del paquete cache (APCu sólo existe en SAPI web).
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"; return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " inesperado en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check apcache /compat/cache/apcache 'APC_OK'
|
||||
Vendored
+15
@@ -0,0 +1,15 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete cache (APCu via SAPI web).
|
||||
|
||||
use Libs\APCache;
|
||||
use Libs\Router;
|
||||
|
||||
Router::get('/compat/cache/apcache', function () {
|
||||
$key = 'compat_' . bin2hex(random_bytes(4));
|
||||
$ok = APCache::save($key, 'valor-42', 30) !== false
|
||||
&& APCache::get($key) === 'valor-42';
|
||||
APCache::delete($key);
|
||||
$ok = $ok && APCache::get($key) === false;
|
||||
echo $ok ? 'APC_OK' : 'APC_FAIL';
|
||||
});
|
||||
Executable
+50
@@ -0,0 +1,50 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke commands:migration sobre sqlite (flujo CLI real del proyecto).
|
||||
# Recibe BASE, PROJ, PKG, LOG, RESULTS.
|
||||
set -u
|
||||
|
||||
res() { echo "$PKG:$1|$2" >> "$RESULTS"; }
|
||||
|
||||
mkdir -p "$PROJ/migrations"
|
||||
|
||||
cat > "$PROJ/migrations/2026_01_01_000000_compat_demo.php" <<'PHP'
|
||||
<?php
|
||||
|
||||
use Libs\Migration;
|
||||
|
||||
return new class () extends Migration {
|
||||
public function up(): void
|
||||
{
|
||||
$this->create('compat_table', [
|
||||
'id INTEGER PRIMARY KEY AUTOINCREMENT',
|
||||
$this->string('name'),
|
||||
]);
|
||||
}
|
||||
|
||||
public function down(): void
|
||||
{
|
||||
$this->dropTable('compat_table');
|
||||
}
|
||||
};
|
||||
PHP
|
||||
|
||||
if ! (cd "$PROJ" && php duckbrain migration migrate >"$PROJ/../migrate.out" 2>&1); then
|
||||
echo " migrate fallo:" >&2
|
||||
sed 's/^/ /' "$PROJ/../migrate.out" >&2
|
||||
res migration fail
|
||||
exit 0
|
||||
fi
|
||||
|
||||
PROJ_PATH="$PROJ" php -r '
|
||||
$proj = getenv("PROJ_PATH");
|
||||
$db = new PDO("sqlite:$proj/app.sqlite");
|
||||
$table = (bool) $db->query("SELECT name FROM sqlite_master WHERE type=" . chr(39) . "table" . chr(39) . " AND name=" . chr(39) . "compat_table" . chr(39))->fetchColumn();
|
||||
$ledger = glob("$proj/migrations/migrations-*.sqlite")[0] ?? null;
|
||||
$done = 0;
|
||||
if ($ledger !== null) {
|
||||
$l = new PDO("sqlite:" . $ledger);
|
||||
$done = (int) $l->query("SELECT COUNT(*) FROM migrations")->fetchColumn();
|
||||
}
|
||||
exit($table && $done === 1 ? 0 : 1);' \
|
||||
&& res migration ok \
|
||||
|| { echo " compat_table o registro de migracion ausentes" >&2; res migration fail; }
|
||||
Executable
+20
@@ -0,0 +1,20 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke HTTP del paquete crypto. Recibe BASE, PKG, RESULTS.
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"; return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " inesperado en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check crypto /compat/crypto/roundtrip 'CRYPTO_OK'
|
||||
check nonce /compat/crypto/nonce 'NONCE_OK'
|
||||
check twoFactor /compat/crypto/2fa 'TFA_OK'
|
||||
@@ -0,0 +1,30 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete crypto.
|
||||
|
||||
use Libs\Crypto;
|
||||
use Libs\Nonce;
|
||||
use Libs\Router;
|
||||
use Libs\TwoFactorAuthenticator;
|
||||
|
||||
Router::get('/compat/crypto/roundtrip', function () {
|
||||
$plain = 'secreto: 42 ✓';
|
||||
$hex = Crypto::encryptHex($plain);
|
||||
$b64 = Crypto::encrypt64($plain);
|
||||
$ok = Crypto::decryptHex($hex) === $plain
|
||||
&& Crypto::decrypt64($b64) === $plain
|
||||
&& Crypto::decrypt(Crypto::encrypt($plain)) === $plain;
|
||||
echo $ok ? 'CRYPTO_OK' : 'CRYPTO_MISMATCH';
|
||||
});
|
||||
|
||||
Router::get('/compat/crypto/nonce', function () {
|
||||
$n = Nonce::get('compat');
|
||||
echo (Nonce::check($n, 'compat') && !Nonce::check($n . 'x', 'compat')) ? 'NONCE_OK' : 'NONCE_FAIL';
|
||||
});
|
||||
|
||||
Router::get('/compat/crypto/2fa', function () {
|
||||
$tfa = new TwoFactorAuthenticator();
|
||||
$secret = $tfa->createSecret(16);
|
||||
$code = $tfa->getCode($secret);
|
||||
echo ($tfa->verifyCode($secret, $code, 0) && !$tfa->verifyCode($secret, '000000', 0)) ? 'TFA_OK' : 'TFA_FAIL';
|
||||
});
|
||||
Executable
+19
@@ -0,0 +1,19 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke HTTP del paquete htmx. Recibe BASE, PKG, RESULTS.
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"; return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " inesperado en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check htmlComponent /compat/htmx/render '<h1 id="compat-greet">A<b></h1>'
|
||||
check htmx /compat/htmx/static 'HTMX:false:true'
|
||||
@@ -0,0 +1,33 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete htmx: monta un componente propio sobre
|
||||
// el motor HTMLComponent/HTMX con el arranque real del core.
|
||||
|
||||
use Libs\HTMLComponent;
|
||||
use Libs\HTMX;
|
||||
use Libs\Router;
|
||||
|
||||
$views = ROOT_CORE . '/Views';
|
||||
if (!is_dir($views)) {
|
||||
mkdir($views, 0777, true);
|
||||
}
|
||||
|
||||
file_put_contents($views . '/CompatGreet.php', <<<'VIEW'
|
||||
<h1 id="compat-greet"><?php echo $this->escapedProperty('name'); ?></h1>
|
||||
VIEW);
|
||||
|
||||
file_put_contents($views . '/CompatButton.php', <<<'VIEW'
|
||||
<button hx-post="/compat/htmx/echo" hx-target="#compat-greet" class="btn">ir</button>
|
||||
VIEW);
|
||||
|
||||
Router::get('/compat/htmx/render', function () {
|
||||
echo 'GREET:';
|
||||
HTMLComponent::render('CompatGreet', ['name' => 'A<b>']);
|
||||
});
|
||||
|
||||
Router::get('/compat/htmx/static', function () {
|
||||
$instance = new HTMX([], '<i hx-get="/x">ok</i>');
|
||||
header('X-Marker: ' . (HTMX::isHtmx() ? 'yes' : 'no'));
|
||||
echo 'HTMX:' . var_export(HTMX::isPartialRequest(), true)
|
||||
. ':' . var_export($instance->getContent() !== '', true);
|
||||
});
|
||||
Executable
+21
@@ -0,0 +1,21 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke del paquete http. Recibe BASE, PKG, RESULTS.
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"; return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " inesperado en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check curlRequest /compat/http/curl 'CURL_OK'
|
||||
check aria2 '/compat/http/load?class=Aria2' 'LOAD_OK:Libs\Aria2'
|
||||
check proxy '/compat/http/load?class=Proxy' 'LOAD_OK:Libs\Proxy'
|
||||
check compreFace '/compat/http/load?class=CompreFace' 'LOAD_OK:Libs\CompreFace'
|
||||
@@ -0,0 +1,36 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete http: curlRequest con flujo completo
|
||||
// (se llama a si mismo via el mismo servidor) y carga nivel 1 de los clientes
|
||||
// con servicio externo.
|
||||
|
||||
use Libs\Aria2;
|
||||
use Libs\CompreFace;
|
||||
use Libs\CurlRequest;
|
||||
use Libs\Proxy;
|
||||
use Libs\Router;
|
||||
|
||||
Router::get('/compat/http/echo', function () {
|
||||
echo 'ECHO:' . ($_GET['who'] ?? 'nadie');
|
||||
});
|
||||
|
||||
Router::get('/compat/http/curl', function () {
|
||||
$host = $_SERVER['HTTP_HOST'];
|
||||
$req = new CurlRequest();
|
||||
$req->get("http://$host/compat/http/echo?who=42");
|
||||
echo str_contains($req->body(), 'ECHO:42') ? 'CURL_OK' : 'CURL_FAIL:' . substr($req->body(), 0, 80);
|
||||
});
|
||||
|
||||
Router::get('/compat/http/load', function () {
|
||||
$class = 'Libs\\' . basename((string) ($_GET['class'] ?? ''));
|
||||
if (!class_exists($class)) {
|
||||
echo 'LOAD_MISSING';
|
||||
return;
|
||||
}
|
||||
$instance = match ($class) {
|
||||
'Libs\\Aria2' => new Aria2('http://127.0.0.1:6800/jsonrpc'),
|
||||
'Libs\\CompreFace' => new CompreFace('compat-key', 'http://127.0.0.1:18080'),
|
||||
default => new $class(),
|
||||
};
|
||||
echo 'LOAD_OK:' . get_class($instance);
|
||||
});
|
||||
Executable
+18
@@ -0,0 +1,18 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke HTTP del paquete id. Recibe BASE, PKG, RESULTS.
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"; return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " inesperado en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check ulid /compat/id/ulid 'ULID_OK'
|
||||
@@ -0,0 +1,13 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete id.
|
||||
|
||||
use Libs\Router;
|
||||
use Libs\Ulid;
|
||||
|
||||
Router::get('/compat/id/ulid', function () {
|
||||
$a = Ulid::generate();
|
||||
$b = Ulid::generate();
|
||||
$ok = strlen($a) === 26 && Ulid::validate($a) && !Ulid::validate(str_repeat('0', 25)) && $a !== $b;
|
||||
echo $ok ? 'ULID_OK' : 'ULID_FAIL';
|
||||
});
|
||||
@@ -0,0 +1,35 @@
|
||||
{
|
||||
"text": {
|
||||
"filter": "full",
|
||||
"replacement": "full"
|
||||
},
|
||||
"crypto": {
|
||||
"crypto": "full",
|
||||
"nonce": "full",
|
||||
"twoFactor": "full"
|
||||
},
|
||||
"id": {
|
||||
"ulid": "full"
|
||||
},
|
||||
"cache": {
|
||||
"apcache": "full"
|
||||
},
|
||||
"htmx": {
|
||||
"htmlComponent": "full",
|
||||
"htmx": "full"
|
||||
},
|
||||
"http": {
|
||||
"curlRequest": "full",
|
||||
"aria2": "load",
|
||||
"proxy": "load",
|
||||
"compreFace": "load"
|
||||
},
|
||||
"commands": {
|
||||
"migration": "sqlite",
|
||||
"cli": { "level": "none", "reason": "es el CLI del instalador; no consume el core (evidencia: suite offline group7/8)" },
|
||||
"toolbox": { "level": "none", "reason": "motor del instalador; no consume el core (evidencia: suite offline group7/8)" }
|
||||
},
|
||||
"test": {
|
||||
"harness": "runner"
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,79 @@
|
||||
{
|
||||
"core": {
|
||||
"version": "0.1.0",
|
||||
"commit": "3b6da45b019d0c232bb5b2f1dc158d2bf25c8e1b"
|
||||
},
|
||||
"generated": "2026-10-05T20:34:25Z",
|
||||
"components": {
|
||||
"text:filter": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"text:replacement": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"crypto:crypto": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"crypto:nonce": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"crypto:twoFactor": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"id:ulid": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"cache:apcache": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"htmx:htmlComponent": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"htmx:htmx": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"http:curlRequest": {
|
||||
"status": "ok",
|
||||
"level": "full"
|
||||
},
|
||||
"http:aria2": {
|
||||
"status": "ok",
|
||||
"level": "load"
|
||||
},
|
||||
"http:proxy": {
|
||||
"status": "ok",
|
||||
"level": "load"
|
||||
},
|
||||
"http:compreFace": {
|
||||
"status": "ok",
|
||||
"level": "load"
|
||||
},
|
||||
"commands:migration": {
|
||||
"status": "ok",
|
||||
"level": "sqlite"
|
||||
},
|
||||
"commands:cli": {
|
||||
"status": "skipped",
|
||||
"level": "none",
|
||||
"reason": "es el CLI del instalador; no consume el core (evidencia: suite offline group7/8)"
|
||||
},
|
||||
"commands:toolbox": {
|
||||
"status": "skipped",
|
||||
"level": "none",
|
||||
"reason": "motor del instalador; no consume el core (evidencia: suite offline group7/8)"
|
||||
},
|
||||
"test:harness": {
|
||||
"status": "ok",
|
||||
"level": "runner"
|
||||
}
|
||||
}
|
||||
}
|
||||
Executable
+29
@@ -0,0 +1,29 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke test:harness — runner real (phpunit via composer) en el proyecto temporal.
|
||||
# Recibe PROJ, PKG, RESULTS.
|
||||
set -u
|
||||
|
||||
res() { echo "$PKG:harness|$1" >> "$RESULTS"; }
|
||||
|
||||
cd "$PROJ" || { res fail; exit 0; }
|
||||
|
||||
if [ ! -f composer.json ]; then
|
||||
printf '{"name":"duckbrain/compat-probe","require":{}}\n' > composer.json
|
||||
fi
|
||||
|
||||
if ! COMPOSER_NO_INTERACTION=1 composer require --dev phpunit/phpunit:^11.0 fakerphp/faker \
|
||||
--no-interaction >/dev/null 2>"$PROJ/../composer.err"; then
|
||||
echo " composer require fallo:" >&2
|
||||
sed 's/^/ /' "$PROJ/../composer.err" >&2
|
||||
res fail
|
||||
exit 0
|
||||
fi
|
||||
|
||||
if ! ./vendor/bin/phpunit >/dev/null 2>"$PROJ/../phpunit.err"; then
|
||||
echo " phpunit fallo:" >&2
|
||||
sed 's/^/ /' "$PROJ/../phpunit.err" >&2
|
||||
res fail
|
||||
exit 0
|
||||
fi
|
||||
|
||||
res ok
|
||||
Executable
+20
@@ -0,0 +1,20 @@
|
||||
#!/usr/bin/env bash
|
||||
# Smoke HTTP del paquete text. Recibe BASE, PROJ, PKG, LOG, RESULTS.
|
||||
set -u
|
||||
|
||||
check() {
|
||||
local comp="$1" path="$2" expect="$3" body
|
||||
if ! body="$(curl -fsS "$BASE$path" 2>/dev/null)"; then
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
return
|
||||
fi
|
||||
if printf '%s' "$body" | grep -qF "$expect"; then
|
||||
echo "$PKG:$comp|ok" >> "$RESULTS"
|
||||
else
|
||||
echo " respuesta inesperada en $path: $(printf '%s' "$body" | head -c 200)" >&2
|
||||
echo "$PKG:$comp|fail" >> "$RESULTS"
|
||||
fi
|
||||
}
|
||||
|
||||
check filter /compat/text/filter 'HOLA MUNDIN'
|
||||
check replacement /compat/text/replacement 'bar y food'
|
||||
@@ -0,0 +1,28 @@
|
||||
<?php
|
||||
|
||||
// Router de compatibilidad del paquete text (inyectado en src/Routers/Compat.php
|
||||
// por scripts/compat-sweep). Ejercita Filter y Replacement sobre el arranque
|
||||
// real del core (Loader -> Router::apply()).
|
||||
|
||||
use Libs\Filter;
|
||||
use Libs\Replacement;
|
||||
use Libs\Router;
|
||||
|
||||
Router::get('/compat/text/filter', function () {
|
||||
Filter::add(
|
||||
fn (string $content): string => str_replace('mundo', 'MUNDIN', $content),
|
||||
'compat',
|
||||
5
|
||||
);
|
||||
Filter::add(
|
||||
fn (string $content): string => strtoupper($content) . '|',
|
||||
'compat',
|
||||
20
|
||||
);
|
||||
echo 'FILTER_OK:' . Filter::apply('hola mundo', 'compat');
|
||||
});
|
||||
|
||||
Router::get('/compat/text/replacement', function () {
|
||||
Replacement::add('/\bfoo\b/', 'bar');
|
||||
echo 'REPL_OK:' . Replacement::apply('foo y food y foo');
|
||||
});
|
||||
@@ -0,0 +1,75 @@
|
||||
<?php
|
||||
|
||||
use Toolbox\Catalog;
|
||||
|
||||
Harness::suite('group11-compat');
|
||||
|
||||
$GLOBALS['g11_repo'] = dirname(__DIR__);
|
||||
|
||||
/**
|
||||
* Contratos:
|
||||
* - levels.json debe cubrir exactamente los componentes del catalogo.
|
||||
* - si tests/compat/report.json existe, todo 'tested' declarado debe estar
|
||||
* respaldado por un 'ok' del reporte, y los niveles 'none' no deben
|
||||
* declarar tested.
|
||||
* Sin reporte (entorno offline sin haber corrido el barrido) solo se exige el
|
||||
* primer contrato.
|
||||
*/
|
||||
Harness::it('levels.json cubre exactamente los componentes del catalogo', function () {
|
||||
$repo = $GLOBALS['g11_repo'];
|
||||
$levels = json_decode((string) file_get_contents($repo . '/tests/compat/levels.json'), true);
|
||||
ok(is_array($levels), 'levels.json debe ser un objeto por paquete');
|
||||
|
||||
$catalog = Catalog::fromRoot($repo);
|
||||
$declared = [];
|
||||
foreach ($catalog->packages() as $manifest) {
|
||||
foreach (array_keys($manifest->components()) as $component) {
|
||||
$declared[] = $manifest->name . ':' . $component;
|
||||
}
|
||||
}
|
||||
|
||||
$planned = [];
|
||||
foreach ($levels as $package => $components) {
|
||||
foreach (array_keys($components) as $component) {
|
||||
$planned[] = $package . ':' . $component;
|
||||
}
|
||||
}
|
||||
|
||||
sort($declared);
|
||||
sort($planned);
|
||||
eq($declared, $planned, 'cada componente del catalogo tiene su nivel de evidencia planeado');
|
||||
});
|
||||
|
||||
Harness::it('los stamps tested estan respaldados por el reporte del barrido', function () {
|
||||
$repo = $GLOBALS['g11_repo'];
|
||||
$reportPath = $repo . '/tests/compat/report.json';
|
||||
|
||||
if (!is_file($reportPath)) {
|
||||
return; // offline sin barrido previo: no se inventa evidencia ni se exige.
|
||||
}
|
||||
|
||||
$report = json_decode((string) file_get_contents($reportPath), true);
|
||||
ok(is_array($report) && isset($report['components']), 'report.json valido');
|
||||
|
||||
$levels = json_decode((string) file_get_contents($repo . '/tests/compat/levels.json'), true);
|
||||
$catalog = Catalog::fromRoot($repo);
|
||||
|
||||
foreach ($catalog->packages() as $manifest) {
|
||||
foreach (array_keys($manifest->components()) as $component) {
|
||||
$id = $manifest->name . ':' . $component;
|
||||
$level = $levels[$manifest->name][$component] ?? null;
|
||||
$level = is_array($level) ? $level['level'] : $level;
|
||||
$status = $report['components'][$id]['status'] ?? 'missing';
|
||||
$tested = $manifest->testedCore($component);
|
||||
|
||||
if ($level === 'none') {
|
||||
eq(null, $tested, "$id esta deliberadamente sin datos y no debe declarar tested");
|
||||
continue;
|
||||
}
|
||||
|
||||
if ($tested !== null) {
|
||||
eq('ok', $status, "$id declara tested='$tested' pero su evidencia en el reporte es '$status'");
|
||||
}
|
||||
}
|
||||
}
|
||||
});
|
||||
Reference in New Issue
Block a user