feat: first entities in database

test/bds/posts_test.exs

@@ -0,0 +1,97 @@
+defmodule BDS.PostsTest do
+  use ExUnit.Case, async: false
+
+  setup do
+    :ok = Ecto.Adapters.SQL.Sandbox.checkout(BDS.Repo)
+    {:ok, project} = BDS.Projects.create_project(%{name: "Publishing"})
+    %{project: project}
+  end
+
+  test "create_post slugifies titles, stores list fields, and defaults draft fields", %{project: project} do
+    assert {:ok, post} =
+             BDS.Posts.create_post(%{
+               project_id: project.id,
+               title: "Über Café",
+               content: "draft body",
+               tags: ["elixir", "sqlite"],
+               categories: ["notes"],
+               author: "G",
+               language: "de",
+               template_slug: "article"
+             })
+
+    assert post.title == "Über Café"
+    assert post.slug == "uber-cafe"
+    assert post.status == :draft
+    assert post.file_path == ""
+    assert post.do_not_translate == false
+    assert post.tags == ["elixir", "sqlite"]
+    assert post.categories == ["notes"]
+    assert post.author == "G"
+    assert post.language == "de"
+    assert post.template_slug == "article"
+    assert post.project_id == project.id
+    assert is_integer(post.created_at)
+    assert is_integer(post.updated_at)
+
+    assert {:ok, duplicate_slug_post} =
+             BDS.Posts.create_post(%{project_id: project.id, title: "Über Café"})
+
+    assert duplicate_slug_post.slug == "uber-cafe-2"
+    assert duplicate_slug_post.tags == []
+    assert duplicate_slug_post.categories == []
+  end
+
+  test "create_post falls back to untitled and keeps slug uniqueness scoped to a project", %{project: project} do
+    assert {:ok, first} = BDS.Posts.create_post(%{project_id: project.id, title: nil})
+    assert first.title == ""
+    assert first.slug == "untitled"
+
+    assert {:ok, second} = BDS.Posts.create_post(%{project_id: project.id, title: nil})
+    assert second.slug == "untitled-2"
+
+    assert {:ok, other_project} = BDS.Projects.create_project(%{name: "Elsewhere"})
+    assert {:ok, other_post} = BDS.Posts.create_post(%{project_id: other_project.id, title: nil})
+    assert other_post.slug == "untitled"
+  end
+
+  test "update_post rejects slug changes after first publish and reopens published posts when content changes", %{project: project} do
+    assert {:ok, post} =
+             BDS.Posts.create_post(%{
+               project_id: project.id,
+               title: "Stable Slug",
+               content: "first body"
+             })
+
+    published_at = System.system_time(:second) - 5
+
+    {:ok, published} =
+      BDS.Posts.update_post(post.id, %{
+        status: :published,
+        published_at: published_at,
+        content: nil,
+        file_path: "posts/2026/04/stable-slug.md"
+      })
+
+    assert published.status == :published
+    assert published.published_at == published_at
+
+    assert {:error, changeset} = BDS.Posts.update_post(post.id, %{slug: "new-slug"})
+    assert "cannot change slug after first publish" in errors_on(changeset).slug
+
+    assert {:ok, reopened} = BDS.Posts.update_post(post.id, %{content: "revised draft"})
+    assert reopened.status == :draft
+    assert reopened.slug == "stable-slug"
+    assert reopened.published_at == published_at
+    assert reopened.content == "revised draft"
+    assert reopened.updated_at >= published.updated_at
+  end
+
+  defp errors_on(changeset) do
+    Ecto.Changeset.traverse_errors(changeset, fn {message, opts} ->
+      Regex.replace(~r"%{(\w+)}", message, fn _, key ->
+        opts |> Keyword.get(String.to_existing_atom(key), key) |> to_string()
+      end)
+    end)
+  end
+end