package execute

import (
	"context"
	"encoding/json"
	"os"
	"path/filepath"
	"strings"
	"testing"
	"time"
)

// TestMain points OLLIE_CFG_PATH at testdata so loadSandboxConfig uses the
// minimal test sandbox config rather than the user's ~/.config/ollie/sandbox/.
func TestMain(m *testing.M) {
	wd, err := os.Getwd()
	if err != nil {
		panic(err)
	}
	os.Setenv("OLLIE_CFG_PATH", filepath.Join(wd, "testdata"))
	os.Setenv("OLLIE", "")
	os.Exit(m.Run())
}

// newServer returns a Server with Yolo=true so tests run without landrun in CI.
func newServer(t *testing.T) *Server {
	t.Helper()
	s := New(t.TempDir())
	s.Yolo = true // skip landrun in unit tests
	return s
}

// callCode invokes execute_code via Dispatch with a steps array.
func callCode(t *testing.T, s *Server, steps []map[string]any, extra ...map[string]any) (string, error) {
	t.Helper()
	payload := map[string]any{"steps": steps}
	if len(extra) > 0 {
		for k, v := range extra[0] {
			payload[k] = v
		}
	}
	raw, _ := json.Marshal(payload)
	return s.Dispatch(context.Background(), "execute_code", raw)
}

// callTool invokes call_tool via Dispatch with a calls array.
func callTool(t *testing.T, s *Server, calls []map[string]any) (string, error) {
	t.Helper()
	payload := map[string]any{"calls": calls}
	raw, _ := json.Marshal(payload)
	return s.Dispatch(context.Background(), "call_tool", raw)
}

// callPipe invokes the pipe tool via Dispatch with a stages array.
func callPipe(t *testing.T, s *Server, stages []map[string]any) (string, error) {
	t.Helper()
	payload := map[string]any{"stages": stages}
	raw, _ := json.Marshal(payload)
	return s.Dispatch(context.Background(), "pipe", raw)
}

// ---- detectLanguage ----

func TestDetectLanguage(t *testing.T) {
	cases := []struct{ code, want string }{
		{"echo hi", "bash"},
		{"#!/bin/bash\necho hi", "bash"},
		{"#!/usr/bin/env python3\nprint(1)", "python3"},
		{"#!/usr/bin/python\nprint(1)", "python3"},
		{"#!/usr/bin/perl\nprint 1", "perl"},
		{"#!/usr/bin/awk -f\n{print}", "awk"},
		{"#!/usr/bin/env gawk\n{print}", "awk"},
		{"#!/usr/bin/sed -f\ns/a/b/", "sed"},
		{"#!/usr/bin/ed\n,p", "ed"},
		{"#!/usr/bin/env jq\n.", "jq"},
		{"#!/usr/bin/env lua\nprint(1)", "lua"},
	}
	for _, c := range cases {
		if got := detectLanguage(c.code); got != c.want {
			t.Errorf("detectLanguage(%q) = %q, want %q", c.code[:min(20, len(c.code))], got, c.want)
		}
	}
}

func min(a, b int) int {
	if a < b {
		return a
	}
	return b
}

// ---- ansiCEscape ----

func TestAnsiCEscape(t *testing.T) {
	got := ansiCEscape("a\\b'c\nd\te")
	want := `a\\b\'c\nd\te`
	if got != want {
		t.Errorf("got %q, want %q", got, want)
	}
}

// ---- injectArgs ----

func TestInjectArgsBash(t *testing.T) {
	out := injectArgs("bash", "myscript", []string{"hello", "world"}, "echo $1 $2")
	if !strings.HasPrefix(out, "set -- ") {
		t.Errorf("bash inject should start with 'set --', got: %q", out)
	}
	if !strings.Contains(out, "echo $1 $2") {
		t.Errorf("bash inject should contain original code")
	}
}

func TestInjectArgsPython(t *testing.T) {
	out := injectArgs("python3", "s", []string{"a"}, "print(sys.argv)")
	if !strings.HasPrefix(out, "import sys\n") {
		t.Errorf("python inject should start with 'import sys', got: %q", out)
	}
}

// ---- ToolsPath / PluginsPath ----

func TestToolsPathEnv(t *testing.T) {
	t.Setenv("OLLIE_TOOLS_PATH", "/custom/tools:/other")
	if got := ToolsPath(); got != "/custom/tools" {
		t.Errorf("got %q, want /custom/tools", got)
	}
}

func TestPluginsPathEnv(t *testing.T) {
	t.Setenv("OLLIE_PLUGINS_PATH", "/custom/plugins:/other")
	if got := PluginsPath(); got != "/custom/plugins" {
		t.Errorf("got %q, want /custom/plugins", got)
	}
}

// ---- ReadTool ----

func TestReadTool(t *testing.T) {
	dir := t.TempDir()
	t.Setenv("OLLIE_TOOLS_PATH", dir)
	if err := os.WriteFile(filepath.Join(dir, "mytool"), []byte("#!/bin/bash\necho ok"), 0644); err != nil {
		t.Fatal(err)
	}
	code, err := ReadTool("mytool")
	if err != nil {
		t.Fatal(err)
	}
	if !strings.Contains(code, "echo ok") {
		t.Errorf("unexpected content: %q", code)
	}
}

func TestReadToolNotFound(t *testing.T) {
	t.Setenv("OLLIE_TOOLS_PATH", t.TempDir())
	_, err := ReadTool("nonexistent")
	if err == nil || !strings.Contains(err.Error(), "tool not found") {
		t.Errorf("expected 'tool not found' error, got %v", err)
	}
}

func TestReadToolInvalidName(t *testing.T) {
	for _, name := range []string{"../etc/passwd", "foo/bar"} {
		_, err := ReadTool(name)
		if err == nil {
			t.Errorf("expected error for name %q", name)
		}
	}
}

// ---- ValidateCode ----

func TestValidateCodeDangerous(t *testing.T) {
	s := newServer(t)
	cases := []struct{ code, lang string }{
		{"sudo rm -rf /", "bash"},
		{"rm -rf /home", "bash"},
		{"mkfs /dev/sda", "bash"},
		{"dd if=/dev/zero of=/dev/sda", "bash"},
		{"shutil.rmtree('/')", "python3"},
	}
	for _, c := range cases {
		if err := s.ValidateCode(c.code, c.lang); err == nil {
			t.Errorf("expected dangerous pattern error for %q (%s)", c.code, c.lang)
		}
	}
}

func TestValidateCodeSafe(t *testing.T) {
	s := newServer(t)
	if err := s.ValidateCode("echo hello", "bash"); err != nil {
		t.Errorf("unexpected error: %v", err)
	}
}

// ---- Execute (integration, requires bash) ----

func TestExecuteSimpleBash(t *testing.T) {
	s := newServer(t)
	out, err := s.Execute(context.Background(), "echo hello", "bash", 10, "default", true)
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if strings.TrimSpace(out) != "hello" {
		t.Errorf("got %q, want %q", out, "hello")
	}
}

func TestExecuteStdin(t *testing.T) {
	s := newServer(t)
	out, err := s.executeWithStdin(context.Background(), "cat", "bash", 10, "default", true, "piped input")
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if strings.TrimSpace(out) != "piped input" {
		t.Errorf("got %q, want %q", out, "piped input")
	}
}

func TestExecuteTimeout(t *testing.T) {
	s := newServer(t)
	_, err := s.Execute(context.Background(), "sleep 10", "bash", 1, "default", true)
	if err == nil || !strings.Contains(err.Error(), "timeout") {
		t.Errorf("expected timeout error, got %v", err)
	}
}

func TestExecuteNonZeroExit(t *testing.T) {
	s := newServer(t)
	_, err := s.Execute(context.Background(), "exit 1", "bash", 10, "default", true)
	if err == nil {
		t.Error("expected error for non-zero exit")
	}
}

func TestExecuteUnsupportedLanguage(t *testing.T) {
	s := newServer(t)
	_, err := s.Execute(context.Background(), "code", "cobol", 10, "default", true)
	if err == nil || !strings.Contains(err.Error(), "unsupported language") {
		t.Errorf("expected unsupported language error, got %v", err)
	}
}

// ---- Dispatch / execute_code ----

func TestDispatchUnknownTool(t *testing.T) {
	s := newServer(t)
	_, err := s.Dispatch(context.Background(), "unknown_tool", json.RawMessage(`{}`))
	if err == nil {
		t.Error("expected error for unknown tool")
	}
}

func TestDispatchNoSteps(t *testing.T) {
	s := newServer(t)
	_, err := callCode(t, s, []map[string]any{})
	if err == nil || !strings.Contains(err.Error(), "steps is required") {
		t.Errorf("expected 'steps is required' error, got %v", err)
	}
}

func TestDispatchSingleStep(t *testing.T) {
	s := newServer(t)
	out, err := callCode(t, s, []map[string]any{{"code": "echo single"}})
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if !strings.Contains(out, "single") {
		t.Errorf("got %q, want output containing 'single'", out)
	}
}

// ---- Dispatch / pipe ----

func TestDispatchPipeline(t *testing.T) {
	s := newServer(t)
	out, err := callPipe(t, s, []map[string]any{
		{"code": "printf 'a\\nb\\nc'"},
		{"code": "grep b"},
	})
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if strings.TrimSpace(out) != "b" {
		t.Errorf("got %q, want %q", out, "b")
	}
}

func TestDispatchPipeNoStages(t *testing.T) {
	s := newServer(t)
	_, err := callPipe(t, s, []map[string]any{})
	if err == nil || !strings.Contains(err.Error(), "stages is required") {
		t.Errorf("expected 'stages is required' error, got %v", err)
	}
}

// ---- Dispatch / execute_code parallel ----

func TestDispatchParallel(t *testing.T) {
	s := newServer(t)
	out, err := callCode(t, s, []map[string]any{
		{"parallel": []map[string]any{
			{"code": "echo A"},
			{"code": "echo B"},
		}},
	})
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if !strings.Contains(out, "A") || !strings.Contains(out, "B") {
		t.Errorf("parallel output missing A or B: %q", out)
	}
}

// ---- Dispatch / call_tool ----

func TestDispatchCallTool(t *testing.T) {
	dir := t.TempDir()
	t.Setenv("OLLIE_TOOLS_PATH", dir)
	if err := os.WriteFile(filepath.Join(dir, "greet"), []byte("#!/bin/bash\necho hello-from-tool"), 0755); err != nil {
		t.Fatal(err)
	}
	s := newServer(t)
	out, err := callTool(t, s, []map[string]any{{"tool": "greet"}})
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if !strings.Contains(out, "hello-from-tool") {
		t.Errorf("got %q, want output containing 'hello-from-tool'", out)
	}
}

func TestDispatchCallToolNoCalls(t *testing.T) {
	s := newServer(t)
	_, err := callTool(t, s, []map[string]any{})
	if err == nil || !strings.Contains(err.Error(), "calls is required") {
		t.Errorf("expected 'calls is required' error, got %v", err)
	}
}

func TestDispatchCallToolInlineRejected(t *testing.T) {
	s := newServer(t)
	_, err := callTool(t, s, []map[string]any{{"code": "echo hi"}})
	if err == nil || !strings.Contains(err.Error(), "tool name is required") {
		t.Errorf("expected 'tool name is required' error for inline code in call_tool, got %v", err)
	}
}

// The old TestDispatchToolStep tested tool steps via execute_code.
// That path still works (execute_code accepts tool steps in its steps array);
// but call_tool is now the canonical way. Test both for coverage.
func TestDispatchToolStepViaExecuteCode(t *testing.T) {
	dir := t.TempDir()
	t.Setenv("OLLIE_TOOLS_PATH", dir)
	if err := os.WriteFile(filepath.Join(dir, "greet"), []byte("#!/bin/bash\necho hello-from-tool"), 0755); err != nil {
		t.Fatal(err)
	}
	s := newServer(t)
	out, err := callCode(t, s, []map[string]any{{"tool": "greet"}})
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if !strings.Contains(out, "hello-from-tool") {
		t.Errorf("got %q, want output containing 'hello-from-tool'", out)
	}
}

// ---- limitedWriter ----

func TestLimitedWriter(t *testing.T) {
	var buf strings.Builder
	lw := &limitedWriter{w: &buf, limit: 5}
	lw.Write([]byte("hello world"))
	if buf.String() != "hello" {
		t.Errorf("got %q, want %q", buf.String(), "hello")
	}
	if !lw.truncated {
		t.Error("expected truncated=true")
	}
}

// ---- rate limiting ----

func TestRateLimitBlocks(t *testing.T) {
	s := newServer(t)
	// Trigger maxFailures validation failures.
	for i := 0; i < maxFailures; i++ {
		s.recordValidationFailure()
	}
	if err := s.checkRateLimit(); err == nil {
		t.Error("expected rate limit error after max failures")
	}
}

// ---- SetEnv / SetCWD ----

func TestSetEnvInjected(t *testing.T) {
	s := newServer(t)
	s.SetEnv("MY_TEST_VAR", "injected_value")
	out, err := s.Execute(context.Background(), "echo $MY_TEST_VAR", "bash", 10, "default", true)
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	if !strings.Contains(out, "injected_value") {
		t.Errorf("got %q, want 'injected_value'", out)
	}
}

func TestSetCWD(t *testing.T) {
	s := newServer(t)
	dir := t.TempDir()
	s.SetCWD(dir)
	out, err := s.Execute(context.Background(), "pwd", "bash", 10, "default", true)
	if err != nil {
		t.Fatalf("unexpected error: %v", err)
	}
	// TempDir may use a symlink; compare base name only.
	if !strings.Contains(out, filepath.Base(dir)) {
		t.Errorf("got %q, want path containing %q", out, filepath.Base(dir))
	}
}

// ---- Strict mode ----

func TestStrictModeRejectsInline(t *testing.T) {
	s := newServer(t)
	s.Strict = true
	_, err := callCode(t, s, []map[string]any{{"code": "echo hi"}})
	if err == nil || !strings.Contains(err.Error(), "strict") {
		t.Errorf("expected strict mode error, got %v", err)
	}
}

func TestStrictModeAllowsTool(t *testing.T) {
	dir := t.TempDir()
	t.Setenv("OLLIE_TOOLS_PATH", dir)
	if err := os.WriteFile(filepath.Join(dir, "safe"), []byte("#!/bin/bash\necho safe"), 0755); err != nil {
		t.Fatal(err)
	}
	s := newServer(t)
	s.Strict = true
	out, err := callCode(t, s, []map[string]any{{"tool": "safe"}})
	if err != nil {
		t.Fatalf("strict mode should allow tool steps: %v", err)
	}
	if !strings.Contains(out, "safe") {
		t.Errorf("got %q, want 'safe'", out)
	}
}

// ---- classifyStep ----

func TestClassifyStep(t *testing.T) {
	// inline code is unclassifiable without scanning → global
	if got := classifyStep(CodeStep{Code: "echo hi"}); got != lockClassGlobal {
		t.Errorf("inline echo: got %v; want global", got)
	}
	// elevated → global
	if got := classifyStep(CodeStep{Elevated: true}); got != lockClassGlobal {
		t.Errorf("elevated: got %v; want global", got)
	}
	// unknown tool → global
	if got := classifyStep(CodeStep{Tool: "nonexistent_tool_xyz"}); got != lockClassGlobal {
		t.Errorf("unknown tool: got %v; want global", got)
	}
}

func TestSetLockDir(t *testing.T) {
	s := newServer(t)
	dir := t.TempDir()
	s.SetLockDir(dir)
	if s.lockDir != dir {
		t.Errorf("lockDir = %q; want %q", s.lockDir, dir)
	}
}

func TestRunReadBatch_Single(t *testing.T) {
	s := newServer(t)
	ctx := context.Background()
	stages := []CodeStep{{Code: "echo batch", Tool: ""}}
	out, err := s.runReadBatch(ctx, 0, stages, 10, "default", "")
	if err != nil {
		t.Fatalf("runReadBatch: %v", err)
	}
	if !strings.Contains(out, "batch") {
		t.Errorf("output = %q; want 'batch'", out)
	}
}

func TestRunReadBatch_Multi(t *testing.T) {
	s := newServer(t)
	ctx := context.Background()
	stages := []CodeStep{
		{Code: "echo one"},
		{Code: "echo two"},
	}
	out, err := s.runReadBatch(ctx, 0, stages, 10, "default", "")
	if err != nil {
		t.Fatalf("runReadBatch multi: %v", err)
	}
	if !strings.Contains(out, "one") || !strings.Contains(out, "two") {
		t.Errorf("output = %q; want 'one' and 'two'", out)
	}
}

func TestRunReadBatch_WithLockDir(t *testing.T) {
	s := newServer(t)
	s.SetLockDir(t.TempDir())
	ctx := context.Background()
	stages := []CodeStep{{Code: "echo locked"}}
	out, err := s.runReadBatch(ctx, 0, stages, 10, "default", "")
	if err != nil {
		t.Fatalf("runReadBatch with lockdir: %v", err)
	}
	if !strings.Contains(out, "locked") {
		t.Errorf("output = %q; want 'locked'", out)
	}
}

func TestTimeoutZeroNoDeadline(t *testing.T) {
	s := newServer(t)
	ctx := context.Background()

	// timeout=0 should not kill the process after 30s default.
	// We verify by running a 2s sleep with timeout=0 and detaching it.
	// If timeout were applied, it would use default 30s which is fine,
	// but we confirm it doesn't fail with timeout=0.
	done := make(chan string, 1)
	go func() {
		out, _ := s.Execute(ctx, "echo alive; sleep 1; echo done", "bash", 0, "default", true)
		done <- out
	}()
	out := <-done
	if !strings.Contains(out, "done") {
		t.Errorf("expected 'done' in output, got: %q", out)
	}
}

// ---- detach ----

func TestDetach(t *testing.T) {
	s := newServer(t)
	ctx := context.Background()

	// Start a long-running process, then detach it
	var detachedPID int
	s.OnDetach = func(pid int, cmd string) {
		detachedPID = pid
	}

	done := make(chan string, 1)
	go func() {
		out, _ := s.Execute(ctx, "echo started; sleep 30", "bash", 60, "default", true)
		done <- out
	}()

	// Give the process time to start and reach the select
	for i := 0; i < 50; i++ {
		if s.Detach() {
			break
		}
		time.Sleep(10 * time.Millisecond)
	}

	out := <-done
	if !strings.Contains(out, "[detached: pid") {
		t.Fatalf("expected detach marker in output, got: %q", out)
	}
	if detachedPID == 0 {
		t.Fatal("OnDetach not called")
	}

	// Verify process is in detached list
	procs := s.ListDetached()
	if len(procs) != 1 {
		t.Fatalf("expected 1 detached process, got %d", len(procs))
	}
	if procs[0].PID != detachedPID {
		t.Errorf("PID mismatch: got %d, want %d", procs[0].PID, detachedPID)
	}
	if procs[0].Exited {
		t.Error("process should still be running")
	}

	// Kill it
	if err := s.SignalDetached(detachedPID, 15); err != nil { // SIGTERM
		t.Fatalf("SignalDetached: %v", err)
	}

	// Wait for exit
	<-procs[0].done
	if !procs[0].Exited {
		t.Error("process should have exited after SIGTERM")
	}
}