package agent

import (
	"context"
	"errors"
	"strings"
	"sync"
	"sync/atomic"
	"testing"
	"time"
	"unicode/utf8"

	"fiko-ai/internal/llm"
	"fiko-ai/internal/protocol"
)

// ---- Faz 10: kalıcı bellek (ajan entegrasyonu) ----

type memFakeRecaller struct {
	items   []Recalled
	calls   atomic.Int32
	panicOn bool
}

func (f *memFakeRecaller) Recall(_ context.Context, _, _ string, _ int) []Recalled {
	f.calls.Add(1)
	if f.panicOn {
		panic("anı deposu çöktü")
	}
	return f.items
}

type memFakeLearner struct {
	got     chan LearnRequest
	started chan struct{}
	block   bool // true: ctx iptal olana kadar bekler (kapanış testi)
}

func newMemFakeLearner() *memFakeLearner {
	return &memFakeLearner{got: make(chan LearnRequest, 4), started: make(chan struct{}, 4)}
}

// Learn artık YALNIZCA kaydedilen sayısını döner: arka plan öğrenme soru üretmez.
// Belirsiz bilgi, sohbet sırasında `memory.ask` tool'u ile kullanıcıya sorulur.
func (f *memFakeLearner) Learn(ctx context.Context, req LearnRequest) int {
	f.started <- struct{}{}
	if f.block {
		<-ctx.Done()
		return 0
	}
	f.got <- req
	return 1
}

func memOKStream(content string) streamFn {
	return func(_ context.Context, _ llm.Request, on llm.DeltaFunc) (llm.Result, error) {
		_ = on(content)
		return llm.Result{Model: "m", Content: content}, nil
	}
}

// systemOf ilk isteğin sistem mesajını döndürür.
func systemOf(t *testing.T, f *fakeLLM) string {
	t.Helper()
	reqs := f.requests()
	if len(reqs) == 0 || len(reqs[0].Messages) == 0 {
		t.Fatal("LLM'e istek gitmedi")
	}
	m := reqs[0].Messages[0]
	if m.Role != llm.RoleSystem {
		t.Fatalf("ilk mesaj sistem mesajı olmalı, rol=%q", m.Role)
	}
	return m.Content
}

func TestMemory_RecalledItemsEnterSystemPrompt(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("tamam")}
	a, _, conv := setup(t, f, Config{})
	rc := &memFakeRecaller{items: []Recalled{
		{Kind: "long_term", Content: "Kullanıcı Angular kullanıyor.", Score: 0.9},
		{Kind: "semantic", Content: "Projesi Go ve Mongo ile yazılıyor.", Score: 0.7},
	}}
	a.SetMemory(rc, nil)

	runText(a, conv, "hangi framework önerirsin?")

	sys := systemOf(t, f)
	for _, want := range []string{"Kullanıcı hakkında bilinenler", "Kullanıcı Angular kullanıyor.", "Projesi Go ve Mongo ile yazılıyor."} {
		if !strings.Contains(sys, want) {
			t.Fatalf("sistem isteminde %q yok:\n%s", want, sys)
		}
	}
	if rc.calls.Load() != 1 {
		t.Fatalf("Recall tur başına bir kez çağrılmalı, çağrı=%d", rc.calls.Load())
	}
}

func TestMemory_NothingBoundMeansNoSection(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("tamam")}
	a, _, conv := setup(t, f, Config{})

	runText(a, conv, "selam")

	if sys := systemOf(t, f); strings.Contains(sys, "Kullanıcı hakkında bilinenler") {
		t.Fatalf("bellek bağlı değilken bölüm eklenmemeli:\n%s", sys)
	}
}

func TestMemory_EmptyRecallLeavesPromptUntouched(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("tamam")}
	a, _, conv := setup(t, f, Config{})
	a.SetMemory(&memFakeRecaller{}, nil)

	runText(a, conv, "selam")

	if sys := systemOf(t, f); strings.Contains(sys, "Kullanıcı hakkında bilinenler") {
		t.Fatalf("anı yokken bölüm eklenmemeli:\n%s", sys)
	}
}

func TestMemory_RecallPanicDoesNotBreakTurn(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("yine de cevap")}
	a, _, conv := setup(t, f, Config{})
	a.SetMemory(&memFakeRecaller{panicOn: true}, nil)

	rec := runText(a, conv, "selam")

	fin, ok := rec.find(protocol.ServerAssistantTextFinal)
	if !ok {
		t.Fatalf("getirme çökse de tur tamamlanmalı; olaylar=%v", rec.types())
	}
	_ = fin
	if sys := systemOf(t, f); strings.Contains(sys, "Kullanıcı hakkında bilinenler") {
		t.Fatal("çöken getirme isteme anı eklememeli")
	}
}

func TestMemory_RetrieveRespectsCountAndRuneBudget(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("x")}
	a, _, _ := setup(t, f, Config{})

	long := strings.Repeat("ö", 1000) // tek anı sınırı 300 karakter
	var items []Recalled
	for i := 0; i < 10; i++ {
		items = append(items, Recalled{Content: long})
	}
	a.SetMemory(&memFakeRecaller{items: items}, nil)

	got := a.retrieveMemories(context.Background(), "u", "sorgu")
	if len(got) == 0 || len(got) > MaxMemoriesPerTurn {
		t.Fatalf("anı sayısı 1..%d olmalı, got=%d", MaxMemoriesPerTurn, len(got))
	}
	total := 0
	for _, m := range got {
		n := utf8.RuneCountInString(m.Content)
		// clipRunes kesildiğinde sonuna "…" ekler: sınır + 1.
		if n > MaxMemoryRunes+1 {
			t.Fatalf("tek anı %d karakter, sınır %d", n, MaxMemoryRunes)
		}
		total += n
	}
	if total > MaxMemoriesTotalRunes+MaxMemoriesPerTurn {
		t.Fatalf("toplam %d karakter, sınır %d", total, MaxMemoriesTotalRunes)
	}
}

func TestMemory_LearnsFromUserTextAfterCompleteTurn(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("Asistan cevabı: not aldım.")}
	a, _, conv := setup(t, f, Config{})
	ln := newMemFakeLearner()
	a.SetMemory(nil, ln)

	runText(a, conv, "  Ben Angular kullanıyorum.  ")

	select {
	case req := <-ln.got:
		if req.Text != "Ben Angular kullanıyorum." {
			t.Fatalf("öğrenme metni kullanıcının (kırpılmış) mesajı olmalı, got=%q", req.Text)
		}
		if strings.Contains(req.Text, "Asistan cevabı") {
			t.Fatal("asistan cevabı öğrenme girdisine KARIŞMAMALI")
		}
		if req.UserID != "u" || req.ConversationID != conv {
			t.Fatalf("kimlikler yanlış: %+v", req)
		}
	case <-time.After(3 * time.Second):
		t.Fatal("tamamlanan turdan sonra öğrenme çağrılmadı")
	}
}

func TestMemory_NoLearningWhenGenerationFails(t *testing.T) {
	f := &fakeLLM{stream: func(context.Context, llm.Request, llm.DeltaFunc) (llm.Result, error) {
		return llm.Result{}, errors.New("model çöktü")
	}}
	a, _, conv := setup(t, f, Config{})
	ln := newMemFakeLearner()
	a.SetMemory(nil, ln)

	runText(a, conv, "Ben Angular kullanıyorum.")

	ctx, cancel := context.WithTimeout(context.Background(), 2*time.Second)
	defer cancel()
	if err := a.Close(ctx); err != nil { // varsa süren öğrenme goroutine'ini de bekler
		t.Fatalf("Close: %v", err)
	}
	if n := len(ln.started); n != 0 {
		t.Fatalf("hatalı turdan öğrenilmemeli, çağrı=%d", n)
	}
}

func TestMemory_CloseCancelsAndWaitsForLearning(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("tamam")}
	a, _, conv := setup(t, f, Config{})
	ln := newMemFakeLearner()
	ln.block = true // ctx iptal olana kadar döner
	a.SetMemory(nil, ln)

	runText(a, conv, "Ben Angular kullanıyorum.")
	select {
	case <-ln.started:
	case <-time.After(3 * time.Second):
		t.Fatal("öğrenme başlamadı")
	}

	ctx, cancel := context.WithTimeout(context.Background(), 2*time.Second)
	defer cancel()
	done := make(chan error, 1)
	go func() { done <- a.Close(ctx) }()
	select {
	case err := <-done:
		if err != nil {
			t.Fatalf("Close, süren öğrenmeyi iptal edip beklemeli; hata: %v", err)
		}
	case <-time.After(3 * time.Second):
		t.Fatal("Close öğrenme yüzünden takıldı")
	}
}

// Eşzamanlı iki tur: öğrenme goroutine'leri birbirine karışmasın (-race ile çalıştır).
func TestMemory_ConcurrentTurnsLearnIndependently(t *testing.T) {
	f := &fakeLLM{stream: memOKStream("tamam")}
	a, svc, conv1 := setup(t, f, Config{})
	c2, err := svc.Create(context.Background(), "u")
	if err != nil {
		t.Fatal(err)
	}
	ln := newMemFakeLearner()
	a.SetMemory(&memFakeRecaller{}, ln)

	var wg sync.WaitGroup
	for _, c := range []string{conv1, c2.ID} {
		wg.Add(1)
		go func(conv string) {
			defer wg.Done()
			runText(a, conv, "Ben Go ile backend yazıyorum.")
		}(c)
	}
	wg.Wait()

	seen := map[string]bool{}
	for i := 0; i < 2; i++ {
		select {
		case req := <-ln.got:
			seen[req.ConversationID] = true
		case <-time.After(3 * time.Second):
			t.Fatalf("%d. öğrenme gelmedi", i+1)
		}
	}
	if !seen[conv1] || !seen[c2.ID] {
		t.Fatalf("her konuşma kendi kimliğiyle öğrenmeli: %v", seen)
	}
}