chore: refresh gramsrv public release

internal/app/themes/service_test.go

@@ -0,0 +1,72 @@
+package themes
+
+import (
+	"context"
+	"errors"
+	"testing"
+
+	"telesrv/internal/domain"
+	"telesrv/internal/store/memory"
+)
+
+func TestServiceCreateAutoSlugAndCreatorGuard(t *testing.T) {
+	ctx := context.Background()
+	svc := NewService(memory.NewThemeStore())
+
+	const owner = int64(1001)
+	a, err := svc.Create(ctx, domain.ThemeSpec{CreatorUserID: owner, Title: "A", DocumentID: 50})
+	if err != nil {
+		t.Fatalf("create a: %v", err)
+	}
+	if a.Slug == "" || a.ID == 0 || a.AccessHash == 0 {
+		t.Fatalf("create a = %+v, want auto slug + ids", a)
+	}
+	if !a.IsCreator(owner) {
+		t.Fatalf("creator mismatch")
+	}
+
+	// 两次空 slug 创建得到不同的自动 slug。
+	b, err := svc.Create(ctx, domain.ThemeSpec{CreatorUserID: owner, Title: "B"})
+	if err != nil {
+		t.Fatalf("create b: %v", err)
+	}
+	if b.Slug == a.Slug {
+		t.Fatalf("auto slugs collided: %q", a.Slug)
+	}
+
+	// 非创建者不能改。
+	if _, err := svc.Update(ctx, 2002, domain.ThemeRef{ID: a.ID}, domain.ThemeUpdate{Title: strptr("hacked")}); !errors.Is(err, domain.ErrThemeInvalid) {
+		t.Fatalf("non-creator update err = %v, want ErrThemeInvalid", err)
+	}
+
+	// 创建者可改 title + document。
+	newTitle := "A2"
+	newDoc := int64(99)
+	updated, err := svc.Update(ctx, owner, domain.ThemeRef{ID: a.ID}, domain.ThemeUpdate{Title: &newTitle, DocumentID: &newDoc})
+	if err != nil {
+		t.Fatalf("creator update: %v", err)
+	}
+	if updated.Title != "A2" || updated.DocumentID != 99 {
+		t.Fatalf("update result = %+v, want title A2 doc 99", updated)
+	}
+
+	// install 计数 + 列表。
+	if err := svc.Install(ctx, owner, domain.ThemeRef{ID: a.ID}, true); err != nil {
+		t.Fatalf("install: %v", err)
+	}
+	got, ok, _ := svc.Get(ctx, domain.ThemeRef{Slug: a.Slug})
+	if !ok || got.InstallsCount != 1 {
+		t.Fatalf("after install installs = %d ok=%v, want 1", got.InstallsCount, ok)
+	}
+	list, _ := svc.ListInstalled(ctx, owner)
+	if len(list) != 1 || list[0].ID != a.ID {
+		t.Fatalf("installed list = %+v, want [a]", list)
+	}
+
+	// 未知引用 → ErrThemeInvalid。
+	if err := svc.Install(ctx, owner, domain.ThemeRef{Slug: "nope"}, false); !errors.Is(err, domain.ErrThemeInvalid) {
+		t.Fatalf("install unknown err = %v, want ErrThemeInvalid", err)
+	}
+}
+
+func strptr(s string) *string { return &s }