mirror of
https://github.com/SHOGGOTH-SECTOR/sica-fondt.git
synced 2026-09-30 01:15:10 +00:00
Reorg step 1: consolidate repo under core/, drop the mafiabot label
Mechanical structure-only pass (no document/guide content edits): - Move src/ichor, src/endocrine, and docs/ into core/; the old top-level mafiabot_core/ becomes core/. Everything now lives under a single core/ root. - Drop the "mafiabot" label from the Ada/Alire crate: core.gpr (project Core), alire.toml name = "core"; the generated *_config.* regenerate as core_config.*. - Repoint build-critical wiring only: - .claude/skills/run-sica-fondt/smoke.sh (ponyc + Ada + COBOL paths) - core/src/endocrine R source()/runner paths and the test glob - .github/workflows/ci.yml (working-directory + gpr name) Verified green: smoke ALL GREEN (Pony Ichor, Ada core crate + tests, COBOL E1 vault); R endocrine 14/0; Octave ETR 26/0/1. Deferred (reserved for a less-ephemeral doc/guide pass): docmap.yaml, the guide files and nested AGENTS.md/README prose + now-stale relative links, SOUL.md, and the deeper ring/storage restructure. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015hmgREHNsxYCuim33yUF2c
This commit is contained in:
@@ -0,0 +1,54 @@
|
||||
pragma SPARK_Mode (Off); -- test harness uses Ada.Text_IO
|
||||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Config_Loader;
|
||||
with Mafiabot_Types; use Mafiabot_Types;
|
||||
|
||||
procedure Config_Tests is
|
||||
Fails : Natural := 0;
|
||||
|
||||
procedure Check (Name : String; Cond : Boolean) is
|
||||
begin
|
||||
if Cond then
|
||||
Put_Line ("PASS " & Name);
|
||||
else
|
||||
Put_Line ("FAIL " & Name);
|
||||
Fails := Fails + 1;
|
||||
end if;
|
||||
end Check;
|
||||
|
||||
Store : Config_Loader.Config_Store;
|
||||
St : Operation_Status;
|
||||
|
||||
Buf : constant String :=
|
||||
"# gen.03 config" & ASCII.LF &
|
||||
"host: localhost" & ASCII.LF &
|
||||
"port: 8080" & ASCII.LF &
|
||||
"" & ASCII.LF &
|
||||
"name: ada" & ASCII.LF;
|
||||
begin
|
||||
Config_Loader.Load_From_Buffer (Buf, Store, St);
|
||||
Check ("load ok", St = OK);
|
||||
Check ("count = 3", Store.Count = 3);
|
||||
|
||||
declare
|
||||
V : constant Bounded_Text := Config_Loader.Get_Value (Store, "host");
|
||||
begin
|
||||
Check ("host = localhost", To_String (V) = "localhost");
|
||||
end;
|
||||
declare
|
||||
V : constant Bounded_Text := Config_Loader.Get_Value (Store, "port");
|
||||
begin
|
||||
Check ("port = 8080", To_String (V) = "8080");
|
||||
end;
|
||||
declare
|
||||
V : constant Bounded_Text := Config_Loader.Get_Value (Store, "missing");
|
||||
begin
|
||||
Check ("missing key empty", V.Length = 0);
|
||||
end;
|
||||
|
||||
if Fails = 0 then
|
||||
Put_Line ("ALL CONFIG TESTS PASSED");
|
||||
else
|
||||
Put_Line ("CONFIG FAILURES:" & Natural'Image (Fails));
|
||||
end if;
|
||||
end Config_Tests;
|
||||
Reference in New Issue
Block a user