yak(behavior-tests-blogex-public-api-and-router-plumbing-q1fb): behavior tests: blogex public API and router plumbing

blogex/test/blogex/blog_integration_test.exs

@@ -127,4 +127,41 @@ defmodule Blogex.BlogIntegrationTest do
       File.rm!(tmp_file)
     end
   end
+
+  describe "show_drafts?/0" do
+    # The only path through `Blogex.show_drafts?/0` (blogex.ex): `use Blogex.Blog`
+    # compiles a real module over a real draft fixture, so the flag is read by
+    # the generated `all_posts/0` rather than asserted in isolation.
+    #
+    # One test, one compile: compiling the same module name twice would print a
+    # "redefining module" warning, and warnings are fatal everywhere in this repo.
+    test "drafts are hidden by default and visible when :show_drafts is on" do
+      tmp_file = Path.join(System.tmp_dir!(), "test_blog_show_drafts.ex")
+
+      File.write!(tmp_file, """
+      defmodule TestBlogShowDrafts do
+        use Blogex.Blog,
+          blog_id: :test,
+          app: :blogex,
+          from: "priv/blog/test/2026/01-03-draft-post.md",
+          title: "Test Blog",
+          base_path: "/blog/test"
+      end
+      """)
+
+      [{TestBlogShowDrafts, _bytecode}] = Code.compile_file(tmp_file, __ENV__.file)
+
+      on_exit(fn ->
+        File.rm!(tmp_file)
+        Application.delete_env(:blogex, :show_drafts)
+      end)
+
+      assert apply(TestBlogShowDrafts, :all_posts, []) == []
+
+      Application.put_env(:blogex, :show_drafts, true)
+
+      assert [post] = apply(TestBlogShowDrafts, :all_posts, [])
+      assert post.title == "Draft Post (test fixture)"
+    end
+  end
 end

blogex/test/blogex/link_validator_test.exs

@@ -324,4 +324,18 @@ defmodule Blogex.LinkValidatorTest do
              }
     end
   end
+
+  describe "parse_blog_link/1" do
+    # `slug_end/1` decides where the slug stops so `?query` / `#fragment` are
+    # not validated as part of it. Pinned directly on `parse_blog_link/1`
+    # (both are `@doc false`) because `validate_link/1` only reaches them via
+    # "valid slug" cases, and a wrong cut would still validate by luck.
+    test "strips query strings and fragments from the slug" do
+      assert LinkValidator.parse_blog_link("/blog/engineering/hello-world?utm=1") ==
+               {"engineering", "hello-world"}
+
+      assert LinkValidator.parse_blog_link("/blog/engineering/hello-world#top") ==
+               {"engineering", "hello-world"}
+    end
+  end
 end

blogex/test/blogex/registry_test.exs

@@ -2,41 +2,7 @@ defmodule Blogex.RegistryTest do
   use ExUnit.Case
 
   alias Blogex.Registry
-
-  defmodule AlphaBlog do
-    def blog_id, do: :alpha
-
-    def all_posts,
-      do: [Blogex.Test.PostBuilder.build(id: "a1", date: ~D[2026-03-01], blog: :alpha)]
-
-    def all_tags, do: ["elixir"]
-
-    def unfiltered_posts,
-      do: [
-        Blogex.Test.PostBuilder.build(id: "a1", date: ~D[2026-03-01], blog: :alpha),
-        Blogex.Test.PostBuilder.build(
-          id: "a-draft",
-          date: ~D[2026-03-05],
-          blog: :alpha,
-          published: false
-        )
-      ]
-  end
-
-  defmodule BetaBlog do
-    def blog_id, do: :beta
-
-    def all_posts,
-      do: [Blogex.Test.PostBuilder.build(id: "b1", date: ~D[2026-03-15], blog: :beta)]
-
-    def all_tags, do: ["devops"]
-
-    def unfiltered_posts,
-      do: [
-        Blogex.Test.PostBuilder.build(id: "b1", date: ~D[2026-03-15], blog: :beta),
-        Blogex.Test.PostBuilder.build(id: "b-future", date: ~D[2099-01-01], blog: :beta)
-      ]
-  end
+  alias Blogex.Test.{AlphaBlog, BetaBlog}
 
   setup do
     Application.put_env(:blogex, :blogs, [AlphaBlog, BetaBlog])

blogex/test/blogex/router_test.exs

@@ -153,6 +153,26 @@ defmodule Blogex.RouterTest do
     end
   end
 
+  describe "Helpers.base_url/1" do
+    # `port_suffix/2` has one clause per (scheme, default port) pair plus the
+    # catch-all, and the feeds embed this URL. All four shapes are pinned so a
+    # clause cannot be dropped or reordered without a failure.
+    test "omits the port for the default scheme ports" do
+      assert base_url(:http, 80) == "http://www.example.com"
+      assert base_url(:https, 443) == "https://www.example.com"
+    end
+
+    test "keeps a non-default port" do
+      assert base_url(:http, 4000) == "http://www.example.com:4000"
+      assert base_url(:https, 8443) == "https://www.example.com:8443"
+    end
+
+    defp base_url(scheme, port) do
+      %{Plug.Test.conn(:get, "/") | scheme: scheme, port: port}
+      |> Blogex.Router.Helpers.base_url()
+    end
+  end
+
   defp get_content_type(conn) do
     conn
     |> Plug.Conn.get_resp_header("content-type")