package e2e

import (
	"encoding/json"
	"fmt"
	"net/http"
	"net/url"
	"os"
	"path/filepath"
	"strings"
	"testing"
)

func TestReadmeRelativeLinks(t *testing.T) {
	t.Parallel()
	inst := startInstance(t)
	aliceKey := inst.newKey(t, "alice")
	inst.admin(t, "admin", "user", "create", "alice", "--key", aliceKey+".pub")
	if _, _, code := inst.ssh(t, aliceKey, "", "repo", "create", "alice/site"); code != 0 {
		t.Fatal("repo create failed")
	}
	work := t.TempDir()
	env := inst.gitEnv(aliceKey)
	mustGit(t, work, env, "clone", inst.sshURL("alice/site"), "w")
	dir := filepath.Join(work, "w")
	os.MkdirAll(filepath.Join(dir, "docs"), 0o755)
	os.MkdirAll(filepath.Join(dir, "img"), 0o755)
	os.WriteFile(filepath.Join(dir, "README.md"), []byte(
		"# site\n\n[guide](docs/guide.md) and [export](docs/paper.html) and "+
			"[abs](https://example.org/x) here\n\n![logo](img/logo.png)\n"+
			"![ext](https://example.org/pic.png)\n\n"+
			"| flag | effect |\n|------|--------|\n| `-v` | verbose |\n\n"+
			"```go\nfunc main() {}\n```\n"), 0o644)
	os.WriteFile(filepath.Join(dir, "docs", "guide.md"), []byte("# guide\n"), 0o644)
	os.WriteFile(filepath.Join(dir, "docs", "paper.org"), []byte("* paper\n"), 0o644)
	os.WriteFile(filepath.Join(dir, "img", "logo.png"), []byte{0x89, 0x50}, 0o644)
	mustGit(t, dir, env, "checkout", "-q", "-b", "main")
	mustGit(t, dir, env, "add", ".")
	mustGit(t, dir, env, "commit", "-q", "-m", "base")
	mustGit(t, dir, env, "push", "-q", "origin", "main")

	status, body := inst.get(t, "/alice/site")
	if status != 200 {
		t.Fatalf("tree: %d", status)
	}
	for _, want := range []string{
		`href="/alice/site/blob/main/docs/guide.md"`,  // relative link
		`href="/alice/site/blob/main/docs/paper.org"`, // .html mapped to .org source
		`src="/alice/site/raw/main/img/logo.png"`,     // relative image via raw
		`src="https://example.org/pic.png"`,           // remote image untouched
		`href="https://example.org/x"`,                // absolute untouched
		"<table>", "<td>verbose</td>",                 // GFM table renders
		`<span class="kd">func</span>`,                         // fenced code highlighted via classes
		`href="/alice/site/blob/main/README.md">README.md</a>`, // clickable card header
		`<th scope="col">name</th>`,                            // file table column headers
	} {
		if !strings.Contains(body, want) {
			t.Errorf("missing %q", want)
		}
	}
	// Directories sort ahead of files, whatever git's own tree order was:
	// docs/ and img/ precede LICENSE and README.md despite sorting after
	// them byte-wise.
	for _, dir := range []string{"docs", "img"} {
		d := strings.Index(body, `/tree/main/`+dir+`">`)
		f := strings.Index(body, `/blob/main/README.md">`)
		if d < 0 || f < 0 {
			t.Fatalf("listing missing %s/ or README.md", dir)
		}
		if d > f {
			t.Errorf("%s/ listed after README.md; directories should come first", dir)
		}
	}
	// Branch dropdown lists branches.
	if !strings.Contains(body, `class="refmenu"`) || !strings.Contains(body, ">All refs") {
		t.Error("branch dropdown missing")
	}
	// Per-file history: ?path= filters the log; blob pages link to it.
	os.WriteFile(filepath.Join(dir, "docs", "notes.txt"), []byte("n\n"), 0o644)
	mustGit(t, dir, env, "add", ".")
	mustGit(t, dir, env, "commit", "-q", "-m", "touch only the notes")
	mustGit(t, dir, env, "push", "-q", "origin", "main")
	if _, body := inst.get(t, "/alice/site/log?path=docs/notes.txt"); !strings.Contains(body, "touch only the notes") ||
		strings.Contains(body, ">base<") || !strings.Contains(body, "history of") {
		t.Fatalf("per-file log wrong:\n%s", body)
	}
	if _, body := inst.get(t, "/alice/site/log?path=no/such/file"); !strings.Contains(body, "nothing touches") {
		t.Fatalf("empty per-file log:\n%s", body)
	}
	if _, body := inst.get(t, "/alice/site/blob/main/docs/guide.md"); !strings.Contains(body, `log/main?path=docs%2fguide.md">history</a>`) {
		t.Fatalf("blob history link missing:\n%s", body)
	}
	// CLI parity: repo log --path.
	logOut, _, _ := inst.ssh(t, aliceKey, "", "repo", "log", "alice/site", "--path", "docs/notes.txt", "--json")
	if !strings.Contains(logOut, "touch only the notes") || strings.Contains(logOut, `"subject":"base"`) {
		t.Fatalf("repo log --path wrong:\n%s", logOut)
	}
	// Raw serves images with their real type (nosniff otherwise blocks
	// <img>); everything else stays inert text/plain.
	resp, err := http.Get(fmt.Sprintf("http://127.0.0.1:%d/alice/site/raw/main/img/logo.png", inst.httpPort))
	if err != nil {
		t.Fatal(err)
	}
	resp.Body.Close()
	if ct := resp.Header.Get("Content-Type"); ct != "image/png" {
		t.Errorf("raw png content-type = %q", ct)
	}
	resp, err = http.Get(fmt.Sprintf("http://127.0.0.1:%d/alice/site/raw/main/README.md", inst.httpPort))
	if err != nil {
		t.Fatal(err)
	}
	resp.Body.Close()
	if ct := resp.Header.Get("Content-Type"); !strings.HasPrefix(ct, "text/plain") {
		t.Errorf("raw md content-type = %q", ct)
	}
	// Blob pages preview images inline.
	if _, body := inst.get(t, "/alice/site/blob/main/img/logo.png"); !strings.Contains(body, `<img src="/alice/site/raw/main/img/logo.png"`) {
		t.Errorf("blob image preview missing:\n%s", body)
	}
	// Highlighting is class-based so the palette follows the color scheme:
	// no inline colors on code, and the stylesheet carries both palettes.
	if _, body := inst.get(t, "/alice/site/blob/main/README.md"); !strings.Contains(body, `class="chroma"`) ||
		strings.Contains(body, "style=\"color") {
		t.Errorf("highlighting not class-based:\n%.2000s", body)
	}
	if _, css := inst.get(t, "/static/style.css"); strings.Count(css, "/* Background */") < 2 ||
		!strings.Contains(css, ".chroma, .bg { background: transparent") {
		t.Error("stylesheet missing dual syntax palettes")
	}
	// Explore rows carry topics, license, and updated date.
	inst.ssh(t, aliceKey, "", "repo", "topics", "add", "alice/site", "web")
	// Bare 0BSD grant (no notice-retention clause), wrapped mid-sentence.
	os.WriteFile(filepath.Join(dir, "LICENSE"), []byte("Permission to use, copy, modify,\nand/or distribute this software for any\npurpose with or without fee is hereby granted.\n"), 0o644)
	mustGit(t, dir, env, "add", ".")
	mustGit(t, dir, env, "commit", "-q", "-m", "license")
	mustGit(t, dir, env, "push", "-q", "origin", "main")
	_, body = inst.get(t, "/explore")
	for _, want := range []string{`href="/explore?q=web"`, "0BSD", "updated 20"} {
		if !strings.Contains(body, want) {
			t.Errorf("explore row missing %q", want)
		}
	}
	// The description and topics belong to the code tab; task tabs render
	// only the identity row and the tab bar.
	for _, p := range []string{"/alice/site/issues", "/alice/site/mrs", "/alice/site/releases"} {
		if _, body := inst.get(t, p); strings.Contains(body, `class="chip topic"`) {
			t.Errorf("%s: header still carries topics on a task tab", p)
		}
	}
	if _, body := inst.get(t, "/alice/site"); !strings.Contains(body, `class="chip topic"`) {
		t.Error("repo home lost its topics")
	}
	// The repohead is the same markup on every tab within a repository —
	// aria-current on the tab link and the watch/bookmark toggles are the
	// only things that could vary, and they depend on who is signed in,
	// not which tab is shown. inst.get is anonymous, so two tabs' headers
	// must be byte-identical.
	inst.ssh(t, aliceKey, "", "issue", "create", "alice/site", "--title", "one")
	header := func(body string) string {
		i := strings.Index(body, `<header class="repohead">`)
		j := strings.Index(body, "</header>")
		if i < 0 || j < 0 || j < i {
			t.Fatalf("repohead not found:\n%.2000s", body)
		}
		return body[i:j]
	}
	_, issuesBody := inst.get(t, "/alice/site/issues")
	_, issueBody := inst.get(t, "/alice/site/issues/1")
	if a, b := header(issuesBody), header(issueBody); a != b {
		t.Errorf("issues list and issue page headers differ:\n%s\nvs\n%s", a, b)
	}
	_, homeBody := inst.get(t, "/alice/site")
	_, treeBody := inst.get(t, "/alice/site/tree/main/")
	if a, b := header(homeBody), header(treeBody); a != b {
		t.Errorf("repo home and tree headers differ:\n%s\nvs\n%s", a, b)
	}
}

// TestLandingRoutes checks the landing page's copy and the two routes.
func TestLandingRoutes(t *testing.T) {
	t.Parallel()
	smtp := startFakeSMTP(t)
	inst := startInstanceWith(t, fmt.Sprintf(
		"[web]\nmode = \"accounts\"\n[registration]\nmode = \"open\"\n[mail]\nsmtp_host = %q\nfrom = \"noreply@gitbay.test\"\n",
		smtp.addr))
	_, body := inst.get(t, "/")
	for _, want := range []string{
		"A git forge you drive from the terminal.",
		`class="button primary" href="/explore">Explore repositories</a>`,
		`class="button btn" href="/register">Create an account</a>`,
		"web login</code>",
		"/static/img/demo.webm",
		"<video autoplay muted loop playsinline controls",
	} {
		if !strings.Contains(body, want) {
			t.Errorf("landing lacks %q", want)
		}
	}
	if strings.Contains(body, "is the whole onboarding") {
		t.Error("landing still calls repo create the whole onboarding")
	}
	_, reg := inst.get(t, "/register")
	if !strings.Contains(reg, "Paste the contents of your public key file") || !strings.Contains(reg, "ssh-keygen -t ed25519") {
		t.Error("register page lacks the key hint or the disclosure that makes a key")
	}
	if strings.Contains(reg, "gitbay.org/krz/gitbay/wiki") {
		t.Error("register page links out to this instance's wiki")
	}
}

func TestWebInteractions(t *testing.T) {
	t.Parallel()
	inst := startInstanceWith(t, "[web]\nmode = \"accounts\"\n")
	aliceKey := inst.newKey(t, "alice")
	inst.admin(t, "admin", "user", "create", "alice", "--key", aliceKey+".pub", "--email", "alice@example.test", "--verified")
	if _, _, code := inst.ssh(t, aliceKey, "", "org", "create", "theorg"); code != 0 {
		t.Fatal("org create failed")
	}

	out, _, code := inst.ssh(t, aliceKey, "", "web", "login", "--json")
	if code != 0 {
		t.Fatal("web login failed")
	}
	var env2 struct {
		Data struct {
			URL string `json:"url"`
		} `json:"data"`
	}
	json.Unmarshal([]byte(out), &env2)
	browser := newBrowser(t)
	browserGet(t, browser, inst.base()+env2.Data.URL[strings.Index(env2.Data.URL, "/login"):])

	// Create a repo under the org through the web form.
	if status, _ := browserPost(t, browser, inst.base()+"/new",
		url.Values{"owner": {"theorg"}, "name": {"webborn"}, "visibility": {"public"}}); status != 200 {
		t.Fatalf("org repo via web: %d", status)
	}
	if out, _, code := inst.ssh(t, aliceKey, "", "repo", "show", "theorg/webborn"); code != 0 {
		t.Fatalf("org repo missing: %s", out)
	}

	// Pin from the web; the repo header reflects it and the dashboard
	// lists it; a second toggle unpins.
	if status, _ := browserPost(t, browser, inst.base()+"/theorg/webborn/pin", url.Values{}); status != 200 {
		t.Fatal("pin toggle failed")
	}
	_, body := browserGet(t, browser, inst.base()+"/theorg/webborn")
	if !strings.Contains(body, "</span> Pinned</button>") {
		t.Fatal("repo header not pinned")
	}
	if _, body = browserGet(t, browser, inst.base()+"/"); !strings.Contains(body, ">theorg/</span>webborn") {
		t.Fatal("dashboard missing pinned repo")
	}
	browserPost(t, browser, inst.base()+"/theorg/webborn/pin", url.Values{})
	if _, body = browserGet(t, browser, inst.base()+"/theorg/webborn"); !strings.Contains(body, "</span> Pin</button>") {
		t.Fatal("unpin failed")
	}

	// New issue with labels through the form; label chips filter.
	if status, _ := browserPost(t, browser, inst.base()+"/theorg/webborn/issues/new",
		url.Values{"title": {"styled"}, "body": {"b"}, "labels": {"bug ui"}}); status != 200 {
		t.Fatal("issue via web failed")
	}
	if status, _ := browserPost(t, browser, inst.base()+"/theorg/webborn/issues/new",
		url.Values{"title": {"plain"}}); status != 200 {
		t.Fatal("second issue failed")
	}
	_, body = browserGet(t, browser, inst.base()+"/theorg/webborn/issues?label=bug")
	if !strings.Contains(body, "styled") || strings.Contains(body, ">plain<") {
		t.Fatalf("label filter wrong:\n%s", body)
	}
	_, body = browserGet(t, browser, inst.base()+"/theorg/webborn/issues/1")
	if !strings.Contains(body, `href="/theorg/webborn/issues?label=bug"`) ||
		!strings.Contains(body, `href="/alice">alice</a>`) {
		t.Fatal("issue page chips/author not linked")
	}
}

func TestCommitParentLinks(t *testing.T) {
	t.Parallel()
	inst := startInstance(t)
	aliceKey := inst.newKey(t, "alice")
	inst.admin(t, "admin", "user", "create", "alice", "--key", aliceKey+".pub")
	if _, _, code := inst.ssh(t, aliceKey, "", "repo", "create", "alice/app"); code != 0 {
		t.Fatal("repo create failed")
	}
	work := t.TempDir()
	env := inst.gitEnv(aliceKey)
	mustGit(t, work, env, "clone", inst.sshURL("alice/app"), "w")
	dir := filepath.Join(work, "w")
	os.WriteFile(filepath.Join(dir, "a.txt"), []byte("a\n"), 0o644)
	mustGit(t, dir, env, "checkout", "-q", "-b", "main")
	mustGit(t, dir, env, "add", ".")
	mustGit(t, dir, env, "commit", "-q", "-m", "first")
	first := strings.TrimSpace(mustGit(t, dir, env, "rev-parse", "HEAD"))
	os.WriteFile(filepath.Join(dir, "a.txt"), []byte("b\n"), 0o644)
	mustGit(t, dir, env, "commit", "-qam", "second")
	head := strings.TrimSpace(mustGit(t, dir, env, "rev-parse", "HEAD"))
	mustGit(t, dir, env, "push", "-q", "origin", "main")

	_, body := inst.get(t, "/alice/app/commit/"+head)
	if !strings.Contains(body, `href="/alice/app/commit/`+first+`"`) {
		t.Fatal("parent commit not linked")
	}
	_, body = inst.get(t, "/alice/app/commit/"+first)
	if strings.Contains(body, ">parent") {
		t.Fatal("root commit shows a parent")
	}
}

// TestAuthorNamesResolve checks that a commit whose author address is
// verified here displays the account's name rather than whatever git
// config carried, and that an unknown address keeps its own name.
func TestAuthorNamesResolve(t *testing.T) {
	t.Parallel()
	inst := startInstance(t)
	aliceKey := inst.newKey(t, "alice")
	inst.admin(t, "admin", "user", "create", "alice",
		"--key", aliceKey+".pub", "--email", "alice@example.test", "--verified")
	if _, errOut, code := inst.ssh(t, aliceKey, "", "repo", "create", "alice/app"); code != 0 {
		t.Fatalf("repo create: %s", errOut)
	}
	work := t.TempDir()
	env := inst.gitEnv(aliceKey)
	mustGit(t, work, env, "clone", inst.sshURL("alice/app"), "w")
	dir := filepath.Join(work, "w")

	// One commit from the account's verified address under a different
	// display name, one from an address nobody has proven.
	known := append(append([]string{}, env...),
		"GIT_AUTHOR_NAME=Alice Q. Longname", "GIT_AUTHOR_EMAIL=alice@example.test",
		"GIT_COMMITTER_NAME=Alice Q. Longname", "GIT_COMMITTER_EMAIL=alice@example.test")
	os.WriteFile(filepath.Join(dir, "a.txt"), []byte("a\n"), 0o644)
	mustGit(t, dir, known, "checkout", "-q", "-b", "main")
	mustGit(t, dir, known, "add", ".")
	mustGit(t, dir, known, "commit", "-q", "-m", "from the account")
	stranger := append(append([]string{}, env...),
		"GIT_AUTHOR_NAME=Outside Person", "GIT_AUTHOR_EMAIL=outside@nowhere.test",
		"GIT_COMMITTER_NAME=Outside Person", "GIT_COMMITTER_EMAIL=outside@nowhere.test")
	os.WriteFile(filepath.Join(dir, "b.txt"), []byte("b\n"), 0o644)
	mustGit(t, dir, stranger, "add", ".")
	mustGit(t, dir, stranger, "commit", "-q", "-m", "from a stranger")
	// The tip is the account's, so the bar above the listing shows a link.
	os.WriteFile(filepath.Join(dir, "c.txt"), []byte("c\n"), 0o644)
	mustGit(t, dir, known, "add", ".")
	mustGit(t, dir, known, "commit", "-q", "-m", "back to the account")
	mustGit(t, dir, known, "push", "-q", "origin", "main")

	// The log shows the account name for the verified address only.
	_, body := inst.get(t, "/alice/app/log")
	if strings.Contains(body, "Alice Q. Longname") {
		t.Fatalf("log showed the git config name for a known address:\n%s", body)
	}
	if !strings.Contains(body, "Outside Person") {
		t.Fatalf("log lost an unknown author's name:\n%s", body)
	}
	if !strings.Contains(body, "alice") {
		t.Fatalf("log missing the account name:\n%s", body)
	}
	// A resolved name links to the profile; an unknown one stays text.
	if !strings.Contains(body, `class="authorlink" href="/alice"`) {
		t.Fatalf("account name is not a link:\n%s", body)
	}
	if strings.Contains(body, `href="/Outside Person"`) {
		t.Fatalf("unknown author was linked:\n%s", body)
	}
	// The tipbar resolves and links the same way when the tip is an account's.
	if _, tree := inst.get(t, "/alice/app"); !strings.Contains(tree, `class="authorlink" href="/alice"`) {
		t.Fatalf("tipbar name is not a link:\n%s", tree)
	}
}

// TestTreeSearchCodeAndClone: the overview links "Search code", not
// "Find file", and shows two labelled clone blocks after the file table.
func TestTreeSearchCodeAndClone(t *testing.T) {
	t.Parallel()
	inst := startInstance(t)
	key := inst.newKey(t, "alice")
	inst.admin(t, "admin", "user", "create", "alice", "--key", key+".pub")
	inst.ssh(t, key, "", "repo", "create", "alice/app")
	work := t.TempDir()
	env := inst.gitEnv(key)
	mustGit(t, work, env, "clone", inst.sshURL("alice/app"), "w")
	dir := filepath.Join(work, "w")
	os.WriteFile(filepath.Join(dir, "README.md"), []byte("# app\n"), 0o644)
	os.MkdirAll(filepath.Join(dir, "docs"), 0o755)
	os.WriteFile(filepath.Join(dir, "docs", "README.md"), []byte("# docs\n"), 0o644)
	mustGit(t, dir, env, "checkout", "-q", "-b", "main")
	mustGit(t, dir, env, "add", ".")
	mustGit(t, dir, env, "commit", "-q", "-m", "init")
	mustGit(t, dir, env, "push", "-q", "origin", "main")
	_, body := inst.get(t, "/alice/app")
	if strings.Contains(body, ">Find file<") || !strings.Contains(body, ">Search code<") {
		t.Error("overview still says Find file")
	}
	if i, j := strings.Index(body, `<table class="tree">`), strings.Index(body, `<div class="clone">`); i < 0 || j < i {
		t.Error("clone block does not follow the file table")
	}
	if !strings.Contains(body, `<span class="fieldname">SSH</span>`) || !strings.Contains(body, `<span class="fieldname">HTTPS</span>`) {
		t.Error("clone blocks are not labelled")
	}
	if !strings.Contains(body, `class="overview withfacts"`) {
		t.Error("root overview is not the two-column withfacts layout")
	}
	// Clone and about belong to the repository root, not a subdirectory.
	_, sub := inst.get(t, "/alice/app/tree/main/docs")
	if strings.Contains(sub, `<div class="facts">`) {
		t.Error("subdirectory listing still shows the clone/about facts block")
	}
	if !strings.Contains(sub, `class="overview"`) || strings.Contains(sub, `class="overview withfacts"`) {
		t.Error("subdirectory listing should have a plain overview, not withfacts")
	}
}