package catalogue

import (
	"encoding/json"
	"testing"
)

// A module declares the state it keeps and the state it reads (novox/hq ADR 0201), a bucket by its
// bare name or with the owner's options.
func TestAManifestMaySayWhatStateItKeepsAndReads(t *testing.T) {
	m, err := decodeForTest([]byte(`{"module":"claude-code","version":"1",` +
		`"state":["servers",{"name":"seen","history":5,"ttl-seconds":3600}],` +
		`"reads":["licence-manager.bindings"]}`))
	if err != nil {
		t.Fatal(err)
	}
	if len(m.State) != 2 || m.State[0].Name != "servers" || m.State[1].History != 5 || m.State[1].TTLSeconds != 3600 {
		t.Fatalf("state not read: %+v", m.State)
	}
	if len(m.Reads) != 1 || m.Reads[0] != "licence-manager.bindings" {
		t.Fatalf("reads not read: %v", m.Reads)
	}
	// Written back as it came in: the short form where nothing else is said.
	out, _ := json.Marshal(m.State)
	if string(out) != `["servers",{"name":"seen","history":5,"ttl-seconds":3600}]` {
		t.Fatalf("written back as %s", out)
	}
}

// 1154/AC1: a state entry may say key-ttl; it is read, written back, and a bare name or an entry without it reads as before.
func TestAStateMayHaveKeysThatExpireOneByOne(t *testing.T) {
	m, err := decodeForTest([]byte(`{"module":"mesh-delivery-watchman","version":"1",` +
		`"state":[{"name":"pulse","key-ttl":true},"stuck",{"name":"seen","history":5}]}`))
	if err != nil {
		t.Fatal(err)
	}
	if !m.State[0].KeyTTL || m.State[1].KeyTTL || m.State[2].KeyTTL {
		t.Fatalf("key-ttl not read as said: %+v", m.State)
	}
	out, _ := json.Marshal(m.State)
	if string(out) != `[{"name":"pulse","key-ttl":true},"stuck",{"name":"seen","history":5}]` {
		t.Fatalf("written back as %s", out)
	}
}