package menu

import (
	"bytes"
	"html/template"
	"net/http/httptest"
	"strings"
	"testing"

	"amadan.net/oficina/estilo.git/internal/tokencheck"
)

func TestMenuUsesDefinedTokens(t *testing.T) {
	missing, n := tokencheck.Undefined(CSS())
	if n == 0 {
		t.Fatal("menu.css reads no rastrillo token; the check would pass vacuously")
	}
	if len(missing) > 0 {
		t.Fatal("menu.css reads undefined tokens:", missing)
	}
}

// The square rule, stated in the stylesheet: a float and the rows inside
// it are rounded, a menubar title is in the page flow and is square.
func TestFloatsAreRoundedAndMenubarTitlesSquare(t *testing.T) {
	src := string(CSS())
	for _, want := range []string{
		"--estilo-float-radius: 9px;",
		"border-radius: var(--estilo-float-radius);",
		"border-radius: 0;          /* square: in-flow */",
		// Sized to its rows, not to the <details> it hangs from.
		"inline-size: max-content;",
	} {
		if !strings.Contains(src, want) {
			t.Errorf("menu.css lost %q", want)
		}
	}
}

func render(t *testing.T, name string, data any) string {
	t.Helper()
	view, err := template.New("").ParseFS(Templates(), "templates/*.html")
	if err != nil {
		t.Fatal(err)
	}
	var out bytes.Buffer
	if err := view.ExecuteTemplate(&out, name, data); err != nil {
		t.Fatal(err)
	}
	return out.String()
}

var locales = map[string]string{"en": "Open source", "de": "Open Source", "es": "Código abierto", "fr": "Logiciels libres", "it": "Open source", "pt": "Código aberto", "nl": "Open source", "pl": "Otwarte oprogramowanie", "ar": "مفتوح المصدر", "ja": "オープンソース", "zh": "开源", "ko": "오픈 소스"}

func TestItemRendersCallerLabelsInEveryLocale(t *testing.T) {
	for locale, label := range locales {
		t.Run(locale, func(t *testing.T) {
			html := render(t, "estilo-menu-item", Item{Href: "/credits", Label: label, Key: "⌘K"})
			for _, want := range []string{`<a estilo-menu-item href="/credits">`, "<span estilo-menu-label>" + template.HTMLEscapeString(label) + "</span>", "<kbd estilo-menu-key>⌘K</kbd>"} {
				if !strings.Contains(html, want) {
					t.Fatalf("missing %q in %s", want, html)
				}
			}
			if strings.Contains(html, "<script") {
				t.Fatal("a menu row needs no script")
			}
		})
	}
	if html := render(t, "estilo-menu-item", Item{Href: "/x", Label: "x"}); strings.Contains(html, "<kbd") {
		t.Fatal("an item with no shortcut renders an empty key column", html)
	}
}

// Sheets, the second adopter, needs rows that are not links: New sheet
// is a POST, and Keyboard shortcuts… opens a dialog. Both must work with
// scripts off, so a POST is a one-button form and a dialog opens with the
// platform's invoker command (command="show-modal"), not a click handler.
func TestItemCanPostOrOpenADialog(t *testing.T) {
	for locale, label := range locales {
		t.Run(locale, func(t *testing.T) {
			esc := template.HTMLEscapeString(label)
			html := render(t, "estilo-menu-item", Item{Action: "/sheets", Label: label, Key: "⌥N"})
			if !strings.Contains(html, `<form method="post" action="/sheets"><button estilo-menu-item type="submit"><span estilo-menu-label>`+esc+`</span><kbd estilo-menu-key>⌥N</kbd></button></form>`) || strings.Contains(html, "<a ") {
				t.Fatalf("a POST row is not a one-button form: %s", html)
			}
			html = render(t, "estilo-menu-item", Item{Dialog: "sheets-shortcuts", Label: label})
			if !strings.Contains(html, `<button estilo-menu-item type="button" commandfor="sheets-shortcuts" command="show-modal"><span estilo-menu-label>`+esc+`</span></button>`) || strings.Contains(html, "<a ") || strings.Contains(html, "<form") {
				t.Fatalf("a dialog row is not an invoker button: %s", html)
			}
		})
	}
	html := render(t, "estilo-menu-item", Item{Action: "javascript:bad()", Label: "x"})
	if !strings.Contains(html, "#ZgotmplZ") {
		t.Fatal("an unsafe POST target is not neutralised", html)
	}
	html = render(t, "estilo-menu-item", Item{Dialog: `x" onclick="bad()`, Label: "x"})
	if strings.Contains(html, `onclick="bad()"`) {
		t.Fatal("a dialog id escapes its attribute", html)
	}
}

func TestItemEscapesUntrustedHrefAndLabel(t *testing.T) {
	html := render(t, "estilo-menu-item", Item{Href: "javascript:alert(1)", Label: "<img src=x onerror=bad>"})
	if !strings.Contains(html, "#ZgotmplZ") || strings.Contains(html, "<img") {
		t.Fatal("unsafe menu item markup", html)
	}
}

func TestShortcutPerPlatform(t *testing.T) {
	cases := []struct{ keys, apple, other string }{
		{"Mod+Z", "⌘Z", "Ctrl+Z"},
		{"Mod+Shift+Z", "⇧⌘Z", "Ctrl+Shift+Z"},
		{"Mod+Shift+K", "⇧⌘K", "Ctrl+Shift+K"},
		{"Shift+Mod+K", "⇧⌘K", "Ctrl+Shift+K"},
		{"Mod+Alt+1", "⌥⌘1", "Ctrl+Alt+1"},
		{"Ctrl+Alt+Shift+Mod+P", "⌃⌥⇧⌘P", "Ctrl+Alt+Shift+P"},
		{"Ctrl+Tab", "⌃⇥", "Ctrl+Tab"},
		{"Mod+Ctrl+F", "⌃⌘F", "Ctrl+F"},
		{"Alt+Enter", "⌥↩", "Alt+Enter"},
		{"Shift+Enter", "⇧↩", "Shift+Enter"},
		{"Shift+Tab", "⇧⇥", "Shift+Tab"},
		{"Tab", "⇥", "Tab"},
		{"Esc", "⎋", "Esc"},
		{"Delete", "⌫", "Delete"},
		{"Backspace", "⌫", "Backspace"},
		{"Mod+K", "⌘K", "Ctrl+K"},
	}
	mac := httptest.NewRequest("GET", "/", nil)
	mac.Header.Set("User-Agent", "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36")
	win := httptest.NewRequest("GET", "/", nil)
	win.Header.Set("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36")
	for _, c := range cases {
		if got := Shortcut(mac, c.keys); got != c.apple {
			t.Errorf("Apple %q = %q, want %q", c.keys, got, c.apple)
		}
		if got := Shortcut(win, c.keys); got != c.other {
			t.Errorf("other %q = %q, want %q", c.keys, got, c.other)
		}
	}
}

func TestApplePlatformDetection(t *testing.T) {
	cases := []struct {
		header, value string
		want          bool
	}{
		{"Sec-CH-UA-Platform", `"macOS"`, true},
		{"Sec-CH-UA-Platform", `"iOS"`, true},
		{"Sec-CH-UA-Platform", `"Windows"`, false},
		{"Sec-CH-UA-Platform", `"Linux"`, false},
		{"User-Agent", "Mozilla/5.0 (iPhone; CPU iPhone OS 18_0 like Mac OS X)", true},
		{"User-Agent", "Mozilla/5.0 (iPad; CPU OS 18_0 like Mac OS X)", true},
		{"User-Agent", "Mozilla/5.0 (X11; Linux x86_64)", false},
		{"User-Agent", "Mozilla/5.0 (Linux; Android 14)", false},
	}
	for _, c := range cases {
		r := httptest.NewRequest("GET", "/", nil)
		r.Header.Set(c.header, c.value)
		if got := Apple(r); got != c.want {
			t.Errorf("%s %q: Apple = %v, want %v", c.header, c.value, got, c.want)
		}
	}
}

// A destructive row ("End meeting for everyone", Calls' first need) is
// drawn in the negative tone, as a link, a POST or a dialog alike, and
// its hover is the negative tint, not the accent: colour is not its only
// cue — the label says what it does — but a red row that lights up blue
// says two things at once.
func TestADangerItemIsDrawnInTheNegativeTone(t *testing.T) {
	for _, it := range []Item{{Href: "/m/x/end", Label: "End"}, {Action: "/m/x/end", Label: "End"}, {Dialog: "end", Label: "End"}} {
		it.Danger = true
		if html := render(t, "estilo-menu-item", it); !strings.Contains(html, `estilo-menu-item="danger"`) {
			t.Fatalf("a danger row is not marked: %s", html)
		}
		it.Danger = false
		if html := render(t, "estilo-menu-item", it); strings.Contains(html, "danger") {
			t.Fatalf("a plain row is marked danger: %s", html)
		}
	}
	for _, want := range []string{
		`[estilo-menu-item~="danger"] { color: var(--rst-tone-negative-fg); }`,
		`[estilo-menu-item~="danger"]:hover, [estilo-menu-item~="danger"]:focus-visible { background: var(--rst-tone-negative-bg); }`,
	} {
		if !strings.Contains(string(CSS()), want) {
			t.Errorf("menu.css lacks %s", want)
		}
	}
}