package npcinteractions

import (
	"context"
	"io/fs"
	"strings"
	"testing"
	"time"

	"gitea.maximumdirect.net/eric/notarius/internal/framework/llm"
	"gitea.maximumdirect.net/eric/promptkit"
)

func TestRegisterPromptAssetsAndPrepareInteractionPrompt(t *testing.T) {
	registry := llm.NewAssetRegistry()
	if err := RegisterPromptAssets(registry); err != nil {
		t.Fatal(err)
	}
	schemaFS, err := registry.SchemaFS()
	if err != nil {
		t.Fatal(err)
	}
	if _, err := fs.ReadFile(schemaFS, "dnd_npc_interactions_llm.v1.json"); err != nil {
		t.Fatalf("response schema asset: %v", err)
	}
	options, err := registry.PromptKitOptions()
	if err != nil {
		t.Fatal(err)
	}
	options = append(options, promptkit.WithProfiles(promptkit.OpenAICompatibleProfile(promptkit.OpenAICompatibleProfileConfig{
		ID: "npc-interactions-test-profile", Endpoint: "http://127.0.0.1:1/v1", Model: "npc-interactions-test-model",
	})))
	engine, err := promptkit.NewEngine(promptkit.Config{Timeout: time.Second}, options...)
	if err != nil {
		t.Fatal(err)
	}
	transcript := `{"units":[{"sentinel":"interaction-transcript"}]}`
	prepared, err := engine.Prepare(context.Background(), promptkit.RunRequest{
		PromptID: PromptID, PromptVersion: SchemaVersion, ProfileID: "npc-interactions-test-profile",
		Inputs: map[string]promptkit.ArtifactRef{
			"transcript": promptkit.InlineWithURI("file:///session.json", transcript),
			"players":    promptkit.Inline("interaction-player"),
			"party":      promptkit.Inline("Mira: ranger"),
			"glossary":   promptkit.Inline("Greencloak: title"),
			"npcs":       promptkit.Inline(`{"npcs":[{"name":"interaction-npc"}]}`),
		},
	})
	if err != nil {
		t.Fatal(err)
	}
	if prepared.PromptID != PromptID || prepared.OutputContract.SchemaPath != "dnd_npc_interactions_llm.v1.json" {
		t.Fatalf("prepared prompt = %#v", prepared)
	}
	if len(prepared.Messages) < 6 {
		t.Fatalf("prepared messages = %#v, want shared context, NPC grounding, and instructions", prepared.Messages)
	}
	referenceIndex := -1
	transcriptIndex := -1
	npcIndex := -1
	for index, message := range prepared.Messages {
		if strings.Contains(message.Content, "interaction-player") {
			referenceIndex = index
		}
		if strings.Contains(message.Content, "interaction-transcript") {
			transcriptIndex = index
		}
		if strings.Contains(message.Content, "interaction-npc") {
			npcIndex = index
		}
	}
	instructionsIndex := len(prepared.Messages) - 1
	if referenceIndex < 0 || transcriptIndex <= referenceIndex || npcIndex <= transcriptIndex || instructionsIndex <= npcIndex {
		t.Fatalf("message order = references %d, transcript %d, NPCs %d, instructions %d; want that order", referenceIndex, transcriptIndex, npcIndex, instructionsIndex)
	}
	for _, index := range []int{referenceIndex, transcriptIndex, instructionsIndex} {
		if cache := prepared.Messages[index].CacheControl; cache == nil || cache.Type != promptkit.CacheControlEphemeral {
			t.Fatalf("message %d cache control = %#v, want ephemeral", index, cache)
		}
	}
	for index, message := range prepared.Messages {
		if index != referenceIndex && strings.Contains(message.Content, "interaction-player") {
			t.Errorf("message %d unexpectedly rendered campaign-reference input", index)
		}
		if index != transcriptIndex && strings.Contains(message.Content, "interaction-transcript") {
			t.Errorf("message %d unexpectedly rendered transcript input", index)
		}
		if index != npcIndex && strings.Contains(message.Content, "interaction-npc") {
			t.Errorf("message %d unexpectedly rendered NPC grounding input", index)
		}
	}
}

func TestPromptMetadataDoesNotExposeAssetContent(t *testing.T) {
	hash, err := promptAssetMetadata()
	if err != nil || !strings.HasPrefix(hash, "sha256:") {
		t.Fatalf("promptAssetMetadata() = %q, %v", hash, err)
	}
	metadata := newExtractor(t, &fakeInteractionsLLMClient{}).ManifestMetadata()
	for _, forbidden := range []string{"common-dnd-system", "dnd_npc_interactions_llm.v1.json"} {
		if strings.Contains(strings.Join(mapValues(metadata), " "), forbidden) {
			t.Fatalf("metadata leaked prompt or schema content %q: %#v", forbidden, metadata)
		}
	}
}

func mapValues(values map[string]any) []string {
	out := make([]string, 0, len(values))
	for _, value := range values {
		if text, ok := value.(string); ok {
			out = append(out, text)
		}
	}
	return out
}