feat(arch): implement 'Code as Thought' architecture and formalize PSF Consensus Loop
This commit is contained in:
@@ -0,0 +1,26 @@
|
||||
def simulate_get_tiered_model(tier, mock_store):
|
||||
mapping = {
|
||||
"powerful": "LLM_MODEL_POWERFUL",
|
||||
"fast": "LLM_MODEL_FAST",
|
||||
"free": "LLM_MODEL_FREE"
|
||||
}
|
||||
prop_key = mapping.get(tier.lower(), "LLM_MODEL_TEXT")
|
||||
return mock_store.get(prop_key, "gpt-3.5-turbo") # Default
|
||||
|
||||
if __name__ == "__main__":
|
||||
mock_store = {
|
||||
"LLM_MODEL_POWERFUL": "claude-3-opus",
|
||||
"LLM_MODEL_FAST": "gpt-4o-mini"
|
||||
}
|
||||
|
||||
print("--- Test: Tier Resolution ---")
|
||||
m1 = simulate_get_tiered_model("powerful", mock_store)
|
||||
m2 = simulate_get_tiered_model("fast", mock_store)
|
||||
m3 = simulate_get_tiered_model("free", mock_store) # Not in store
|
||||
|
||||
print(f"Powerful: {m1}")
|
||||
print(f"Fast: {m2}")
|
||||
print(f"Free (Default): {m3}")
|
||||
|
||||
status = "PASS" if m1 == "claude-3-opus" and m2 == "gpt-4o-mini" and m3 == "gpt-3.5-turbo" else "FAIL"
|
||||
print(f"\nFinal Status: {status}")
|
||||
24
projects/org-skill-environment-config/tests/test-suite.lisp
Normal file
24
projects/org-skill-environment-config/tests/test-suite.lisp
Normal file
@@ -0,0 +1,24 @@
|
||||
;;; TDD Suite: org-skill-environment-config
|
||||
;;; Status: RED
|
||||
;;; Author: Tech-Analyst-Agent
|
||||
;;; Created: [2026-03-31 Tue 15:10]
|
||||
|
||||
(defpackage :org-skill-environment-config-tests
|
||||
(:use :cl :fiveam :org-skill-environment-config))
|
||||
|
||||
(in-package :org-skill-environment-config-tests)
|
||||
|
||||
(def-suite config-suite
|
||||
:description "Tests for homoiconic configuration retrieval.")
|
||||
|
||||
(in-suite config-suite)
|
||||
|
||||
(test retrieve-attribute
|
||||
"Ensure a property can be retrieved from a mock object store."
|
||||
;; Requires mock object store logic
|
||||
(skip "Mock object store required."))
|
||||
|
||||
(test model-tiering-resolution
|
||||
"Ensure tiers are mapped to the correct properties."
|
||||
;; We can mock get-config-attribute to test the mapping logic
|
||||
(skip "Internal mapping test required."))
|
||||
Reference in New Issue
Block a user