defmodule PlausibleWeb.StatsControllerTest do use PlausibleWeb.ConnCase, async: false use Plausible.Repo @react_container "div#stats-react-container" describe "GET /:domain - anonymous user" do test "public site - shows site stats", %{conn: conn} do site = new_site(public: true) populate_stats(site, [build(:pageview)]) conn = get(conn, "/#{site.domain}") resp = html_response(conn, 200) assert element_exists?(resp, @react_container) assert text_of_attr(resp, @react_container, "data-domain") == site.domain assert text_of_attr(resp, @react_container, "data-is-dbip") == "false" assert text_of_attr(resp, @react_container, "data-has-goals") == "false" assert text_of_attr(resp, @react_container, "data-conversions-opted-out") == "false" assert text_of_attr(resp, @react_container, "data-funnels-opted-out") == "false" assert text_of_attr(resp, @react_container, "data-props-opted-out") == "false" assert text_of_attr(resp, @react_container, "data-props-available") == "true" assert text_of_attr(resp, @react_container, "data-site-segments-available") == "true" assert text_of_attr(resp, @react_container, "data-funnels-available") == "true" assert text_of_attr(resp, @react_container, "data-has-props") == "false" assert text_of_attr(resp, @react_container, "data-logged-in") == "false" assert text_of_attr(resp, @react_container, "data-current-user-role") == "public" assert text_of_attr(resp, @react_container, "data-current-user-id") == "null" assert text_of_attr(resp, @react_container, "data-embedded") == "" assert text_of_attr(resp, @react_container, "data-is-consolidated-view") == "false" assert text_of_attr(resp, @react_container, "data-consolidated-view-available") == "false" assert text_of_attr(resp, @react_container, "data-team-identifier") == site.team.identifier assert "noindex, nofollow" == resp |> find("meta[name=robots]") |> text_of_attr("content") assert text_of_element(resp, "title") == "Plausible · #{site.domain}" end test "public site - all segments (personal or site) are stuffed into dataset, without their owner_id and owner_name", %{conn: conn} do user = new_user() site = new_site(owner: user, public: true) populate_stats(site, [build(:pageview)]) emea_site_segment = insert(:segment, site: site, owner: user, type: :site, name: "EMEA region" ) |> Map.put(:owner_name, nil) |> Map.put(:owner_id, nil) foo_personal_segment = insert(:segment, site: site, owner: user, type: :personal, name: "FOO" ) |> Map.put(:owner_name, nil) |> Map.put(:owner_id, nil) conn = get(conn, "/#{site.domain}") resp = html_response(conn, 200) assert element_exists?(resp, @react_container) assert text_of_attr(resp, @react_container, "data-segments") == Jason.encode!([foo_personal_segment, emea_site_segment]) end test "plausible.io live demo - shows site stats, header and footer", %{conn: conn} do site = new_site(domain: "plausible.io", public: true) populate_stats(site, [build(:pageview)]) conn = get(conn, "/#{site.domain}") resp = html_response(conn, 200) assert element_exists?(resp, @react_container) assert "index, nofollow" == resp |> find("meta[name=robots]") |> text_of_attr("content") assert text_of_element(resp, "title") == "Plausible Analytics: Live Demo" assert resp =~ "Login" assert resp =~ "Want these stats for your website?" assert resp =~ "Getting started" end test "public site - redirect to /login when no stats because verification requires it", %{ conn: conn } do new_site(domain: "some-other-public-site.io", public: true) conn = get(conn, conn |> get("/some-other-public-site.io") |> redirected_to()) assert redirected_to(conn) == Routes.auth_path(conn, :login_form, return_to: "/some-other-public-site.io/verification" ) end test "public site - no stats with skip_to_dashboard", %{ conn: conn } do new_site(domain: "some-other-public-site.io", public: true) conn = get(conn, "/some-other-public-site.io?skip_to_dashboard=true") resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-logged-in") == "false" end test "can not view stats of a private website", %{conn: conn} do _ = insert(:user) conn = get(conn, "/test-site.com") assert html_response(conn, 404) =~ "There's nothing here" end end describe "GET /:domain - as a logged in user" do setup [:create_user, :log_in, :create_site] test "can view stats of a website I've created", %{conn: conn, site: site, user: user} do populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-logged-in") == "true" assert text_of_attr(resp, @react_container, "data-current-user-role") == "owner" assert text_of_attr(resp, @react_container, "data-current-user-id") == "#{user.id}" end test "can view stats of a website I've created, enforcing pageviews check skip", %{ conn: conn, site: site } do resp = conn |> get(conn |> get("/" <> site.domain) |> redirected_to()) |> html_response(200) refute text_of_attr(resp, @react_container, "data-logged-in") == "true" resp = conn |> get("/" <> site.domain <> "?skip_to_dashboard=true") |> html_response(200) assert text_of_attr(resp, @react_container, "data-logged-in") == "true" end on_ee do test "first view of a consolidated dashboard sets stats_start_date and native_stats_start_at according to native_stats_start_at of the earliest team site", %{ conn: conn, site: site, user: user } do team = team_of(user) now = NaiveDateTime.utc_now(:second) ten_days_ago = NaiveDateTime.add(now, -10, :day) twenty_days_ago = NaiveDateTime.add(now, -20, :day) site |> Plausible.Site.set_native_stats_start_at(ten_days_ago) |> Plausible.Repo.update!() new_site(team: team, native_stats_start_at: twenty_days_ago) cv = new_consolidated_view(team) conn = get(conn, "/" <> cv.domain) resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-domain") == cv.domain assert text_of_attr(resp, @react_container, "data-logged-in") == "true" assert text_of_attr(resp, @react_container, "data-current-user-role") == "owner" assert text_of_attr(resp, @react_container, "data-current-user-id") == "#{user.id}" cv = Plausible.Repo.reload(cv) assert cv.stats_start_date == NaiveDateTime.to_date(twenty_days_ago) assert cv.native_stats_start_at == twenty_days_ago end test "does not redirect consolidated views to verification", %{ conn: conn, user: user } do new_site(owner: user) new_site(owner: user) cv = user |> team_of() |> new_consolidated_view() conn = get(conn, "/" <> cv.domain) resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-domain") == cv.domain assert text_of_attr(resp, @react_container, "data-logged-in") == "true" assert text_of_attr(resp, @react_container, "data-current-user-role") == "owner" assert text_of_attr(resp, @react_container, "data-current-user-id") == "#{user.id}" end test "redirects to /sites if for some reason ineligible anymore", %{ conn: conn, user: user } do new_site(owner: user) new_site(owner: user) cv = user |> team_of() |> new_consolidated_view() user |> team_of() |> Plausible.Teams.Team.end_trial() |> Plausible.Repo.update!() conn = get(conn, "/" <> cv.domain) assert redirected_to(conn, 302) == "/sites" end end @tag :ee_only test "header, stats are shown; footer is not shown", %{conn: conn, site: site, user: user} do populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert resp =~ user.name assert text_of_attr(resp, @react_container, "data-logged-in") == "true" refute resp =~ "Getting started" end @tag :ce_build_only test "header, stats, footer are shown", %{conn: conn, site: site, user: user} do populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert resp =~ user.name assert text_of_attr(resp, @react_container, "data-logged-in") == "true" assert resp =~ "Getting started" end test "shows locked page if site is locked", %{conn: conn, user: user} do locked_site = new_site(owner: user) locked_site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() conn = get(conn, "/" <> locked_site.domain) resp = html_response(conn, 200) assert resp =~ "Dashboard Locked" assert resp =~ "Please subscribe to the appropriate tier with the link below" end test "shows locked page if site is locked for billing role", %{conn: conn, user: user} do other_user = new_user() locked_site = new_site(owner: other_user) locked_site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() add_member(team_of(other_user), user: user, role: :billing) conn = get(conn, "/" <> locked_site.domain) resp = html_response(conn, 200) assert resp =~ "Dashboard Locked" assert resp =~ "Please subscribe to the appropriate tier with the link below" end test "shows locked page if site is locked for viewer role", %{conn: conn, user: user} do other_user = new_user() locked_site = new_site(owner: other_user) locked_site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() add_member(team_of(other_user), user: user, role: :viewer) conn = get(conn, "/" <> locked_site.domain) resp = html_response(conn, 200) assert resp =~ "Dashboard Locked" refute resp =~ "Please subscribe to the appropriate tier with the link below" assert resp =~ "Owner of this site must upgrade their subscription plan" end test "shows locked page for anonymous" do locked_site = new_site(public: true) locked_site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() conn = get(build_conn(), "/" <> locked_site.domain) resp = html_response(conn, 200) assert resp =~ "Dashboard Locked" assert resp =~ "You can check back later or contact the site owner" end test "can not view stats of someone else's website", %{conn: conn} do site = new_site() conn = get(conn, "/" <> site.domain) assert html_response(conn, 404) =~ "There's nothing here" end test "does not show CRM link to the site", %{conn: conn, site: site} do conn = get(conn, conn |> get("/" <> site.domain) |> redirected_to()) refute html_response(conn, 200) =~ "/cs/sites" end test "all segments (personal or site) are stuffed into dataset, with their associated owner_id and owner_name", %{conn: conn, site: site, user: user} do populate_stats(site, [build(:pageview)]) emea_site_segment = insert(:segment, site: site, owner: user, type: :site, name: "EMEA region" ) |> Map.put(:owner_name, user.name) foo_personal_segment = insert(:segment, site: site, owner: user, type: :personal, name: "FOO" ) |> Map.put(:owner_name, user.name) conn = get(conn, "/#{site.domain}") resp = html_response(conn, 200) assert element_exists?(resp, @react_container) assert text_of_attr(resp, @react_container, "data-segments") == Jason.encode!([foo_personal_segment, emea_site_segment]) end end describe "GET /:domain - as a super admin" do @describetag :ee_only setup [:create_user, :make_user_super_admin, :log_in] test "can view a private dashboard with stats", %{conn: conn, user: user} do site = new_site() populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert resp =~ "stats-react-container" assert text_of_attr(resp, @react_container, "data-logged-in") == "true" assert text_of_attr(resp, @react_container, "data-current-user-role") == "super_admin" assert text_of_attr(resp, @react_container, "data-current-user-id") == "#{user.id}" end test "can enter verification when site is without stats", %{conn: conn} do site = new_site() conn = get(conn, conn |> get("/" <> site.domain) |> redirected_to()) assert html_response(conn, 200) =~ "Verifying your installation" end test "can view a private locked dashboard with stats", %{conn: conn} do user = new_user() site = new_site(owner: user) site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert resp =~ "This dashboard is actually locked" end test "can view private locked verification without stats", %{conn: conn} do user = new_user() site = new_site(owner: user) site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() conn = get(conn, conn |> get("/#{site.domain}") |> redirected_to()) assert html_response(conn, 200) =~ "Verifying your installation" end test "can view a locked public dashboard", %{conn: conn} do site = new_site(public: true) site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() populate_stats(site, [build(:pageview)]) conn = get(conn, "/" <> site.domain) resp = html_response(conn, 200) assert resp =~ "This dashboard is actually locked" end on_ee do test "shows CRM link to the site", %{conn: conn} do site = new_site() conn = get(conn, conn |> get("/" <> site.domain) |> redirected_to()) assert html_response(conn, 200) =~ Routes.customer_support_site_path(PlausibleWeb.Endpoint, :show, site.id) end end end defp make_user_super_admin(%{user: user}) do Application.put_env(:plausible, :super_admin_user_ids, [user.id]) end describe "GET /:domain/export" do setup [:create_user, :create_site, :log_in] test "exports all the necessary CSV files", %{conn: conn, site: site} do conn = get(conn, "/" <> site.domain <> "/export") assert {"content-type", "application/zip; charset=utf-8"} = List.keyfind(conn.resp_headers, "content-type", 0) {:ok, zip} = :zip.unzip(response(conn, 200), [:memory]) zip = Enum.map(zip, fn {filename, _} -> filename end) assert ~c"visitors.csv" in zip assert ~c"browsers.csv" in zip assert ~c"browser_versions.csv" in zip assert ~c"cities.csv" in zip assert ~c"conversions.csv" in zip assert ~c"countries.csv" in zip assert ~c"devices.csv" in zip assert ~c"entry_pages.csv" in zip assert ~c"exit_pages.csv" in zip assert ~c"operating_systems.csv" in zip assert ~c"operating_system_versions.csv" in zip assert ~c"pages.csv" in zip assert ~c"regions.csv" in zip assert ~c"sources.csv" in zip assert ~c"channels.csv" in zip assert ~c"utm_campaigns.csv" in zip assert ~c"utm_contents.csv" in zip assert ~c"utm_mediums.csv" in zip assert ~c"utm_sources.csv" in zip assert ~c"utm_terms.csv" in zip end test "exports scroll depth metric in pages.csv", %{conn: conn, site: site} do t0 = ~N[2020-01-01 00:00:00] [t1, t2, t3] = for i <- 1..3, do: NaiveDateTime.add(t0, i, :minute) populate_stats(site, [ build(:pageview, user_id: 12, pathname: "/blog", timestamp: t0), build(:engagement, user_id: 12, pathname: "/blog", timestamp: t1, scroll_depth: 20, engagement_time: 60_000 ), build(:pageview, user_id: 12, pathname: "/another", timestamp: t1), build(:engagement, user_id: 12, pathname: "/another", timestamp: t2, scroll_depth: 24, engagement_time: 60_000 ), build(:pageview, user_id: 34, pathname: "/blog", timestamp: t0), build(:engagement, user_id: 34, pathname: "/blog", timestamp: t1, scroll_depth: 17, engagement_time: 60_000 ), build(:pageview, user_id: 34, pathname: "/another", timestamp: t1), build(:engagement, user_id: 34, pathname: "/another", timestamp: t2, scroll_depth: 26, engagement_time: 60_000 ), build(:pageview, user_id: 34, pathname: "/blog", timestamp: t2), build(:engagement, user_id: 34, pathname: "/blog", timestamp: t3, scroll_depth: 60, engagement_time: 60_000 ), build(:pageview, user_id: 56, pathname: "/blog", timestamp: t0), build(:engagement, user_id: 56, pathname: "/blog", timestamp: t1, scroll_depth: 100, engagement_time: 60_000 ) ]) pages = conn |> get("/#{site.domain}/export?period=day&date=2020-01-01") |> response(200) |> unzip_and_parse_csv(~c"pages.csv") assert pages == [ ["name", "visitors", "pageviews", "bounce_rate", "time_on_page", "scroll_depth"], ["/blog", "3", "4", "33", "80", "60"], ["/another", "2", "2", "0", "60", "25"], [""] ] end test "exports only internally used props in custom_props.csv for a growth plan", %{ conn: conn, site: site } do {:ok, site} = Plausible.Props.allow(site, ["author"]) [owner | _] = Repo.preload(site, :owners).owners subscribe_to_growth_plan(owner) populate_stats(site, [ build(:pageview, "meta.key": ["author"], "meta.value": ["a"]), build(:event, name: "File Download", "meta.key": ["url"], "meta.value": ["b"]) ]) result = conn |> get("/" <> site.domain <> "/export?period=day") |> response(200) |> unzip_and_parse_csv(~c"custom_props.csv") assert result == [ ["property", "value", "visitors", "events", "percentage"], ["url", "(none)", "1", "1", "50.0"], ["url", "b", "1", "1", "50.0"], [""] ] end test "does not include custom_props.csv for a growth plan if no internal props used", %{ conn: conn, site: site } do {:ok, site} = Plausible.Props.allow(site, ["author"]) [owner | _] = Repo.preload(site, :owners).owners subscribe_to_growth_plan(owner) populate_stats(site, [ build(:pageview, "meta.key": ["author"], "meta.value": ["a"]) ]) {:ok, zip} = conn |> get("/#{site.domain}/export?period=day") |> response(200) |> :zip.unzip([:memory]) files = Map.new(zip) refute Map.has_key?(files, ~c"custom_props.csv") end test "exports data in zipped csvs", %{conn: conn, site: site} do populate_exported_stats(site) conn = get(conn, "/" <> site.domain <> "/export?period=custom&from=2021-09-20&to=2021-10-20") assert_zip(conn, "30d") end test "fails to export with interval=undefined, looking at you, spiders", %{ conn: conn, site: site } do assert conn |> get("/" <> site.domain <> "/export?date=2021-10-20&interval=undefined") |> response(400) end test "exports allowed event props for a trial account", %{conn: conn, site: site} do {:ok, site} = Plausible.Props.allow(site, ["author", "logged_in"]) populate_stats(site, [ build(:pageview, "meta.key": ["author"], "meta.value": ["uku"]), build(:pageview, "meta.key": ["author"], "meta.value": ["uku"]), build(:event, "meta.key": ["author"], "meta.value": ["marko"], name: "Newsletter Signup"), build(:pageview, user_id: 999, "meta.key": ["logged_in"], "meta.value": ["true"]), build(:pageview, user_id: 999, "meta.key": ["logged_in"], "meta.value": ["true"]), build(:pageview, "meta.key": ["disallowed"], "meta.value": ["whatever"]), build(:pageview) ]) result = conn |> get("/" <> site.domain <> "/export?period=day") |> response(200) |> unzip_and_parse_csv(~c"custom_props.csv") assert result == [ ["property", "value", "visitors", "events", "percentage"], ["author", "(none)", "3", "4", "50.0"], ["author", "uku", "2", "2", "33.33"], ["author", "marko", "1", "1", "16.67"], ["logged_in", "(none)", "5", "5", "83.33"], ["logged_in", "true", "1", "2", "16.67"], [""] ] end test "exports data grouped by interval", %{conn: conn, site: site} do populate_exported_stats(site) visitors = conn |> get( "/" <> site.domain <> "/export?period=custom&from=2021-09-20&to=2021-10-20&interval=week" ) |> response(200) |> unzip_and_parse_csv(~c"visitors.csv") assert visitors == [ [ "date", "visitors", "pageviews", "visits", "views_per_visit", "bounce_rate", "visit_duration" ], ["2021-09-20", "1", "1", "1", "1.0", "100", "0"], ["2021-09-27", "0", "0", "0", "0.0", "0.0", ""], ["2021-10-04", "0", "0", "0", "0.0", "0.0", ""], ["2021-10-11", "0", "0", "0", "0.0", "0.0", ""], ["2021-10-18", "3", "4", "3", "1.33", "33", "40"], [""] ] end test "exports operating system versions", %{conn: conn, site: site} do populate_stats(site, [ build(:pageview, operating_system: "Mac", operating_system_version: "14"), build(:pageview, operating_system: "Mac", operating_system_version: "14"), build(:pageview, operating_system: "Mac", operating_system_version: "14"), build(:pageview, operating_system: "Ubuntu", operating_system_version: "20.04" ), build(:pageview, operating_system: "Ubuntu", operating_system_version: "20.04" ), build(:pageview, operating_system: "Mac", operating_system_version: "13") ]) os_versions = conn |> get("/#{site.domain}/export?period=day") |> response(200) |> unzip_and_parse_csv(~c"operating_system_versions.csv") assert os_versions == [ ["name", "version", "visitors"], ["Mac", "14", "3"], ["Ubuntu", "20.04", "2"], ["Mac", "13", "1"], [""] ] end test "exports imported data when requested", %{conn: conn, site: site} do site_import = insert(:site_import, site: site) insert(:goal, site: site, event_name: "Outbound Link: Click") populate_stats(site, site_import.id, [ build(:imported_visitors, visitors: 9), build(:imported_browsers, browser: "Chrome", pageviews: 1), build(:imported_devices, device: "Desktop", pageviews: 1), build(:imported_entry_pages, entry_page: "/test", pageviews: 1), build(:imported_exit_pages, exit_page: "/test", pageviews: 1), build(:imported_locations, country: "PL", region: "PL-22", city: 3_099_434, pageviews: 1 ), build(:imported_operating_systems, operating_system: "Mac", pageviews: 1), build(:imported_pages, page: "/test", pageviews: 1), build(:imported_sources, source: "Google", channel: "Paid Search", utm_medium: "search", utm_campaign: "ads", utm_source: "google", utm_content: "content", utm_term: "term", pageviews: 1 ), build(:imported_custom_events, name: "Outbound Link: Click", link_url: "https://example.com", visitors: 5, events: 10 ) ]) tomorrow = Date.utc_today() |> Date.add(1) |> Date.to_iso8601() conn = get(conn, "/#{site.domain}/export?date=#{tomorrow}&with_imported=true") assert response = response(conn, 200) {:ok, zip} = :zip.unzip(response, [:memory]) filenames = zip |> Enum.map(fn {filename, _} -> to_string(filename) end) # NOTE: currently, custom_props.csv is not populated from imported data expected_filenames = [ "visitors.csv", "sources.csv", "channels.csv", "utm_mediums.csv", "utm_sources.csv", "utm_campaigns.csv", "utm_contents.csv", "utm_terms.csv", "pages.csv", "entry_pages.csv", "exit_pages.csv", "countries.csv", "regions.csv", "cities.csv", "browsers.csv", "browser_versions.csv", "operating_systems.csv", "operating_system_versions.csv", "devices.csv", "conversions.csv", "referrers.csv" ] Enum.each(expected_filenames, fn expected -> assert expected in filenames end) Enum.each(zip, fn {~c"visitors.csv", data} -> csv = parse_csv(data) assert List.first(csv) == [ "date", "visitors", "pageviews", "visits", "views_per_visit", "bounce_rate", "visit_duration" ] assert Enum.at(csv, -2) == [Date.to_iso8601(Date.utc_today()), "9", "1", "1", "1.0", "0.0", "10.0"] {~c"sources.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["Google", "1", "0.0", "10.0"], [""] ] {~c"channels.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["Paid Search", "1", "0.0", "10.0"], [""] ] {~c"utm_mediums.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["search", "1", "0.0", "10.0"], [""] ] {~c"utm_sources.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["google", "1", "0.0", "10.0"], [""] ] {~c"utm_campaigns.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["ads", "1", "0.0", "10.0"], [""] ] {~c"utm_contents.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["content", "1", "0.0", "10.0"], [""] ] {~c"utm_terms.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["term", "1", "0.0", "10.0"], [""] ] {~c"pages.csv", data} -> assert parse_csv(data) == [ [ "name", "visitors", "pageviews", "bounce_rate", "time_on_page", "scroll_depth" ], ["/test", "1", "1", "0.0", "10", ""], [""] ] {~c"entry_pages.csv", data} -> assert parse_csv(data) == [ [ "name", "unique_entrances", "total_entrances", "bounce_rate", "visit_duration" ], ["/test", "1", "1", "0.0", "10.0"], [""] ] {~c"exit_pages.csv", data} -> assert parse_csv(data) == [ ["name", "unique_exits", "total_exits", "exit_rate"], ["/test", "1", "1", "100.0"], [""] ] {~c"countries.csv", data} -> assert parse_csv(data) == [["name", "visitors"], ["Poland", "1"], [""]] {~c"regions.csv", data} -> assert parse_csv(data) == [ ["name", "visitors"], ["Pomerania", "1"], [""] ] {~c"cities.csv", data} -> assert parse_csv(data) == [["name", "visitors"], ["Gdańsk", "1"], [""]] {~c"browsers.csv", data} -> assert parse_csv(data) == [ ["name", "visitors"], ["Chrome", "1"], [""] ] {~c"browser_versions.csv", data} -> assert parse_csv(data) == [ ["name", "version", "visitors"], ["Chrome", "(not set)", "1"], [""] ] {~c"operating_systems.csv", data} -> assert parse_csv(data) == [["name", "visitors"], ["Mac", "1"], [""]] {~c"operating_system_versions.csv", data} -> assert parse_csv(data) == [ ["name", "version", "visitors"], ["Mac", "(not set)", "1"], [""] ] {~c"devices.csv", data} -> assert parse_csv(data) == [["name", "visitors"], ["Desktop", "1"], [""]] {~c"conversions.csv", data} -> assert parse_csv(data) == [ ["name", "unique_conversions", "total_conversions"], ["Outbound Link: Click", "5", "10"], [""] ] {~c"referrers.csv", data} -> assert parse_csv(data) == [ ["name", "visitors", "bounce_rate", "visit_duration"], ["Direct / None", "1", "0.0", "10.0"], [""] ] end) end end defp parse_csv(file_content) when is_binary(file_content) do file_content |> String.split("\r\n") |> Enum.map(&String.split(&1, ",")) end describe "GET /:domain/export - via shared link" do setup [:create_user, :create_site] test "exports data in zipped csvs", %{conn: conn, site: site} do link = insert(:shared_link, site: site) populate_exported_stats(site) conn = get( conn, "/" <> site.domain <> "/export?auth=#{link.slug}&period=custom&from=2021-09-20&to=2021-10-20" ) assert_zip(conn, "30d") end end describe "GET /:domain/export - for past 6 months" do setup [:create_user, :create_site, :log_in] test "exports 6 months of data in zipped csvs", %{conn: conn, site: site} do populate_exported_stats(site) conn = get(conn, "/" <> site.domain <> "/export?period=6mo&date=2021-11-20") assert_zip(conn, "6m") end end describe "GET /:domain/export - with path filter" do setup [:create_user, :create_site, :log_in] test "exports filtered data in zipped csvs", %{conn: conn, site: site} do populate_exported_stats(site) filters = Jason.encode!([[:is, "event:page", ["/some-other-page"]]]) conn = get( conn, "/#{site.domain}/export?period=custom&from=2021-09-20&to=2021-10-20&filters=#{filters}" ) assert_zip(conn, "30d-filter-path") end test "exports scroll depth in visitors.csv", %{conn: conn, site: site} do populate_stats(site, [ build(:pageview, user_id: 12, pathname: "/blog", timestamp: ~N[2020-01-05 00:00:00]), build(:engagement, user_id: 12, pathname: "/blog", timestamp: ~N[2020-01-05 00:01:00], scroll_depth: 40 ), build(:pageview, user_id: 12, pathname: "/blog", timestamp: ~N[2020-01-05 10:00:00]), build(:engagement, user_id: 12, pathname: "/blog", timestamp: ~N[2020-01-05 10:01:00], scroll_depth: 17 ), build(:pageview, user_id: 34, pathname: "/blog", timestamp: ~N[2020-01-07 00:00:00]), build(:engagement, user_id: 34, pathname: "/blog", timestamp: ~N[2020-01-07 00:01:00], scroll_depth: 90 ) ]) filters = Jason.encode!([[:is, "event:page", ["/blog"]]]) pages = conn |> get("/#{site.domain}/export?date=2020-01-08&period=7d&filters=#{filters}") |> response(200) |> unzip_and_parse_csv(~c"visitors.csv") assert pages == [ [ "date", "visitors", "pageviews", "visits", "views_per_visit", "bounce_rate", "visit_duration", "scroll_depth" ], ["2020-01-01", "0", "0", "0", "0.0", "0.0", "", ""], ["2020-01-02", "0", "0", "0", "0.0", "0.0", "", ""], ["2020-01-03", "0", "0", "0", "0.0", "0.0", "", ""], ["2020-01-04", "0", "0", "0", "0.0", "0.0", "", ""], ["2020-01-05", "1", "2", "2", "1.0", "100", "0", "28"], ["2020-01-06", "0", "0", "0", "0.0", "0.0", "", ""], ["2020-01-07", "1", "1", "1", "1.0", "100", "0", "90"], [""] ] end end describe "GET /:domain/export - with a custom prop filter" do setup [:create_user, :create_site, :log_in] test "custom-props.csv only returns the prop and its value in filter", %{ conn: conn, site: site } do {:ok, site} = Plausible.Props.allow(site, ["author", "logged_in"]) populate_stats(site, [ build(:pageview, "meta.key": ["author"], "meta.value": ["uku"]), build(:pageview, "meta.key": ["author"], "meta.value": ["marko"]), build(:pageview, "meta.key": ["logged_in"], "meta.value": ["true"]) ]) filters = Jason.encode!([[:is, "event:props:author", ["marko"]]]) result = conn |> get("/" <> site.domain <> "/export?period=day&filters=#{filters}") |> response(200) |> unzip_and_parse_csv(~c"custom_props.csv") assert result == [ ["property", "value", "visitors", "events", "percentage"], ["author", "marko", "1", "1", "100.0"], [""] ] end end defp unzip_and_parse_csv(archive, filename) do {:ok, zip} = :zip.unzip(archive, [:memory]) {_filename, data} = Enum.find(zip, &(elem(&1, 0) == filename)) parse_csv(data) end defp assert_zip(conn, folder) do assert conn.status == 200 assert {"content-type", "application/zip; charset=utf-8"} = List.keyfind(conn.resp_headers, "content-type", 0) {:ok, zip} = :zip.unzip(response(conn, 200), [:memory]) folder = Path.expand(folder, "test/plausible_web/controllers/CSVs") Enum.map(zip, &assert_csv_by_fixture(&1, folder)) end defp assert_csv_by_fixture({file, downloaded}, folder) do file = Path.expand(file, folder) {:ok, content} = File.read(file) msg = "CSV file comparison failed (#{file})" assert downloaded == content, message: msg, left: downloaded, right: content end defp populate_exported_stats(site) do populate_stats(site, [ build(:pageview, user_id: 123, pathname: "/", timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], minute: -1) |> NaiveDateTime.truncate(:second), country_code: "EE", subdivision1_code: "EE-37", city_geoname_id: 588_409, referrer_source: "Google" ), build(:engagement, user_id: 123, pathname: "/", timestamp: ~N[2021-10-20 12:00:00] |> NaiveDateTime.truncate(:second), engagement_time: 30_000, scroll_depth: 30, country_code: "EE", subdivision1_code: "EE-37", city_geoname_id: 588_409, referrer_source: "Google" ), build(:pageview, user_id: 123, pathname: "/some-other-page", timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], minute: -2) |> NaiveDateTime.truncate(:second), country_code: "EE", subdivision1_code: "EE-37", city_geoname_id: 588_409, referrer_source: "Google" ), build(:engagement, user_id: 123, pathname: "/some-other-page", timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], minute: -1) |> NaiveDateTime.truncate(:second), engagement_time: 60_000, scroll_depth: 30, country_code: "EE", subdivision1_code: "EE-37", city_geoname_id: 588_409, referrer_source: "Google" ), build(:pageview, user_id: 100, pathname: "/", timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], day: -1) |> NaiveDateTime.truncate(:second), utm_medium: "search", utm_campaign: "ads", utm_source: "google", utm_content: "content", utm_term: "term", browser: "Firefox", browser_version: "120", operating_system: "Mac", operating_system_version: "14" ), build(:engagement, user_id: 100, pathname: "/", timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], day: -1, minute: 1) |> NaiveDateTime.truncate(:second), engagement_time: 30_000, scroll_depth: 30, utm_medium: "search", utm_campaign: "ads", utm_source: "google", utm_content: "content", utm_term: "term", browser: "Firefox", browser_version: "120", operating_system: "Mac", operating_system_version: "14" ), build(:pageview, user_id: 200, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], month: -1) |> NaiveDateTime.truncate(:second), country_code: "EE", browser: "Firefox", browser_version: "120", operating_system: "Mac", operating_system_version: "14" ), build(:engagement, user_id: 200, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], month: -1, minute: 1) |> NaiveDateTime.truncate(:second), engagement_time: 30_000, scroll_depth: 20, country_code: "EE", browser: "Firefox", browser_version: "120", operating_system: "Mac", operating_system_version: "14" ), build(:pageview, user_id: 300, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], month: -5) |> NaiveDateTime.truncate(:second), utm_campaign: "ads", country_code: "EE", referrer_source: "Google", click_id_param: "gclid", browser: "FirefoxNoVersion", operating_system: "MacNoVersion" ), build(:engagement, user_id: 300, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], month: -5, minute: 1) |> NaiveDateTime.truncate(:second), engagement_time: 30_000, scroll_depth: 20, utm_campaign: "ads", country_code: "EE", referrer_source: "Google", click_id_param: "gclid", browser: "FirefoxNoVersion", operating_system: "MacNoVersion" ), build(:pageview, user_id: 456, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], day: -1, minute: -1) |> NaiveDateTime.truncate(:second), pathname: "/signup", "meta.key": ["variant"], "meta.value": ["A"] ), build(:engagement, user_id: 456, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], day: -1) |> NaiveDateTime.truncate(:second), pathname: "/signup", engagement_time: 60_000, scroll_depth: 20, "meta.key": ["variant"], "meta.value": ["A"] ), build(:event, user_id: 456, timestamp: NaiveDateTime.shift(~N[2021-10-20 12:00:00], day: -1) |> NaiveDateTime.truncate(:second), name: "Signup", "meta.key": ["variant"], "meta.value": ["A"] ) ]) insert(:goal, %{site: site, event_name: "Signup"}) end describe "GET /:domain/export - with goal filter" do setup [:create_user, :create_site, :log_in] test "exports goal-filtered data in zipped csvs", %{conn: conn, site: site} do populate_exported_stats(site) filters = Jason.encode!([[:is, "event:goal", ["Signup"]]]) conn = get( conn, "/#{site.domain}/export?period=custom&from=2021-09-20&to=2021-10-20&filters=#{filters}" ) assert_zip(conn, "30d-filter-goal") end test "custom-props.csv only returns the prop names for the goal in filter", %{ conn: conn, site: site } do {:ok, site} = Plausible.Props.allow(site, ["author", "logged_in"]) populate_stats(site, [ build(:event, name: "Newsletter Signup", "meta.key": ["author"], "meta.value": ["uku"]), build(:event, name: "Newsletter Signup", "meta.key": ["author"], "meta.value": ["marko"]), build(:event, name: "Newsletter Signup", "meta.key": ["author"], "meta.value": ["marko"]), build(:pageview, "meta.key": ["logged_in"], "meta.value": ["true"]) ]) insert(:goal, site: site, event_name: "Newsletter Signup") filters = Jason.encode!([[:is, "event:goal", ["Newsletter Signup"]]]) result = conn |> get("/" <> site.domain <> "/export?period=day&filters=#{filters}") |> response(200) |> unzip_and_parse_csv(~c"custom_props.csv") assert result == [ ["property", "value", "visitors", "events", "conversion_rate"], ["author", "marko", "2", "2", "50.0"], ["author", "uku", "1", "1", "25.0"], [""] ] end test "exports conversions and conversion rate for operating system versions", %{ conn: conn, site: site } do populate_stats(site, [ build(:pageview, operating_system: "Mac", operating_system_version: "14"), build(:event, name: "Signup", operating_system: "Mac", operating_system_version: "14" ), build(:event, name: "Signup", operating_system: "Mac", operating_system_version: "14" ), build(:event, name: "Signup", operating_system: "Mac", operating_system_version: "14" ), build(:event, name: "Signup", operating_system: "Ubuntu", operating_system_version: "20.04" ), build(:event, name: "Signup", operating_system: "Ubuntu", operating_system_version: "20.04" ), build(:event, name: "Signup", operating_system: "Lubuntu", operating_system_version: "20.04" ) ]) insert(:goal, site: site, event_name: "Signup") filters = Jason.encode!([[:is, "event:goal", ["Signup"]]]) os_versions = conn |> get("/#{site.domain}/export?period=day&filters=#{filters}") |> response(200) |> unzip_and_parse_csv(~c"operating_system_versions.csv") assert os_versions == [ ["name", "version", "conversions", "conversion_rate"], ["Mac", "14", "3", "75.0"], ["Ubuntu", "20.04", "2", "100.0"], ["Lubuntu", "20.04", "1", "100.0"], [""] ] end end describe "GET /share/:domain?auth=:auth" do test "prompts a password for a password-protected link", %{conn: conn} do site = new_site() link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) conn = get(conn, "/share/#{site.domain}?auth=#{link.slug}") assert response(conn, 200) =~ "Enter password" end test "logs anonymous user in straight away if the link is not password-protected", %{ conn: conn } do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}") resp = html_response(conn, 200) assert resp =~ "stats-react-container" assert text_of_attr(resp, @react_container, "data-logged-in") == "false" assert text_of_attr(resp, @react_container, "data-current-user-id") == "null" assert text_of_attr(resp, @react_container, "data-current-user-role") == "public" end test "footer and header are shown when accessing public dashboard", %{ conn: conn } do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}") resp = html_response(conn, 200) assert resp =~ "stats-react-container" assert text_of_attr(resp, @react_container, "data-logged-in") == "false" assert text_of_attr(resp, @react_container, "data-current-user-id") == "null" assert text_of_attr(resp, @react_container, "data-current-user-role") == "public" assert resp =~ "Login" assert resp =~ "Getting started" end test "returns page with X-Frame-Options disabled so it can be embedded in an iframe", %{ conn: conn } do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}") resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-embedded") == "false" assert Plug.Conn.get_resp_header(conn, "x-frame-options") == [] end test "returns page embedded page", %{ conn: conn } do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}&embed=true") resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-embedded") == "true" assert text_of_attr(resp, @react_container, "data-logged-in") == "false" assert text_of_attr(resp, @react_container, "data-current-user-id") == "null" assert text_of_attr(resp, @react_container, "data-current-user-role") == "public" assert Plug.Conn.get_resp_header(conn, "x-frame-options") == [] end test "does not show header, does not show footer on embedded pages", %{conn: conn} do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}&embed=true") resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-embedded") == "true" refute resp =~ "Login" refute resp =~ "Getting started" end test "shows locked page if page is locked", %{conn: conn} do site = new_site(domain: "test-site.com") site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() link = insert(:shared_link, site: site) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}") assert html_response(conn, 200) =~ "Dashboard Locked" refute String.contains?(html_response(conn, 200), "Back to my sites") end test "shows locked page if shared link is locked due to insufficient team subscription", %{ conn: conn } do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site) insert(:starter_subscription, team: site.team) conn = get(conn, "/share/test-site.com/?auth=#{link.slug}") assert html_response(conn, 200) =~ "Shared Link Unavailable" refute String.contains?(html_response(conn, 200), "Back to my sites") end for special_name <- Plausible.Sites.shared_link_special_names() do test "shows dashboard if team subscription insufficient but shared link name is '#{special_name}'", %{conn: conn} do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site, name: unquote(special_name)) insert(:starter_subscription, team: site.team) html = conn |> get("/share/test-site.com/?auth=#{link.slug}") |> html_response(200) assert element_exists?(html, @react_container) refute html =~ "Shared Link Unavailable" end end test "renders 404 not found when no auth parameter supplied", %{conn: conn} do conn = get(conn, "/share/example.com") assert response(conn, 404) =~ "nothing here" end test "renders 404 not found when non-existent auth parameter is supplied", %{conn: conn} do conn = get(conn, "/share/example.com?auth=bad-token") assert response(conn, 404) =~ "nothing here" end test "renders 404 not found when auth parameter for another site is supplied", %{conn: conn} do site1 = insert(:site, domain: "test-site-1.com") site2 = insert(:site, domain: "test-site-2.com") site1_link = insert(:shared_link, site: site1) conn = get(conn, "/share/#{site2.domain}/?auth=#{site1_link.slug}") assert response(conn, 404) =~ "nothing here" end test "all segments (personal or site) are stuffed into dataset, without their owner_id and owner_name", %{conn: conn} do user = new_user() site = new_site(domain: "test-site.com", owner: user) link = insert(:shared_link, site: site) emea_site_segment = insert(:segment, site: site, owner: user, type: :site, name: "EMEA region" ) |> Map.put(:owner_name, nil) |> Map.put(:owner_id, nil) foo_personal_segment = insert(:segment, site: site, owner: user, type: :personal, name: "FOO" ) |> Map.put(:owner_name, nil) |> Map.put(:owner_id, nil) conn = get(conn, "/share/#{site.domain}/?auth=#{link.slug}") resp = html_response(conn, 200) assert text_of_attr(resp, @react_container, "data-segments") == Jason.encode!([foo_personal_segment, emea_site_segment]) end end describe "GET /share/:slug - backwards compatibility" do test "it redirects to new shared link format for historical links", %{conn: conn} do site = insert(:site, domain: "test-site.com") site_link = insert(:shared_link, site: site, inserted_at: ~N[2021-12-31 00:00:00]) conn = get(conn, "/share/#{site_link.slug}") assert redirected_to(conn, 302) == "/share/#{site.domain}?auth=#{site_link.slug}" end test "it does nothing for newer links", %{conn: conn} do site = insert(:site, domain: "test-site.com") site_link = insert(:shared_link, site: site, inserted_at: ~N[2022-01-01 00:00:00]) conn = get(conn, "/share/#{site_link.slug}") assert response(conn, 404) =~ "nothing here" end end describe "POST /share/:slug/authenticate" do test "logs anonymous user in with correct password", %{conn: conn} do site = new_site(domain: "test-site.com") link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) conn = post(conn, "/share/#{link.slug}/authenticate", %{password: "password"}) assert redirected_to(conn, 302) == "/share/#{site.domain}?auth=#{link.slug}" conn = get(conn, "/share/#{site.domain}?auth=#{link.slug}") assert html_response(conn, 200) =~ "stats-react-container" end test "shows form again with wrong password", %{conn: conn} do site = insert(:site, domain: "test-site.com") link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) conn = post(conn, "/share/#{link.slug}/authenticate", %{password: "WRONG!"}) assert html_response(conn, 200) =~ "Enter password" end test "only gives access to the correct dashboard", %{conn: conn} do site = new_site(domain: "test-site.com") site2 = new_site(domain: "test-site2.com") link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) link2 = insert(:shared_link, site: site2, password_hash: Plausible.Auth.Password.hash("password1") ) conn = post(conn, "/share/#{link.slug}/authenticate", %{password: "password"}) assert redirected_to(conn, 302) == "/share/#{site.domain}?auth=#{link.slug}" conn = get(conn, "/share/#{site2.domain}?auth=#{link2.slug}") assert html_response(conn, 200) =~ "Enter password" end test "preserves query parameters during password authentication", %{conn: conn} do site = new_site() link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) filters = "f=is,country,EE&l=EE,Estonia&f=is,browser,Firefox" conn = get( conn, "/share/#{site.domain}?auth=#{link.slug}&#{filters}" ) assert html_response(conn, 200) =~ "Enter password" html = html_response(conn, 200) assert html =~ ~s(action="/share/#{link.slug}/authenticate?) assert html =~ "f=is,browser,Firefox" assert html =~ "f=is,country,EE" assert html =~ "l=EE,Estonia" conn = post( conn, "/share/#{link.slug}/authenticate?#{filters}", %{password: "password"} ) expected_redirect = "/share/#{URI.encode_www_form(site.domain)}?auth=#{link.slug}&#{filters}" assert redirected_to(conn, 302) == expected_redirect conn = post( conn, "/share/#{link.slug}/authenticate?#{filters}", %{password: "WRONG!"} ) html = html_response(conn, 200) assert html =~ "Enter password" assert html =~ "Incorrect password" assert text_of_attr(html, "form", "action") =~ "?#{filters}" conn = post( conn, "/share/#{link.slug}/authenticate?#{filters}", %{password: "password"} ) redirected_url = redirected_to(conn, 302) assert redirected_url =~ filters conn = post( conn, "/share/#{link.slug}/authenticate?#{filters}", %{password: "password"} ) redirect_path = redirected_to(conn, 302) conn = get(conn, redirect_path) assert html_response(conn, 200) =~ "stats-react-container" assert redirect_path =~ filters assert redirect_path =~ "auth=#{link.slug}" end end describe "dogfood tracking" do @describetag :ee_only test "does not set domain_to_replace on live demo dashboard", %{conn: conn} do site = new_site(domain: "plausible.io", public: true) populate_stats(site, [build(:pageview)]) conn = get(conn, "/#{site.domain}") script_params = html_response(conn, 200) |> get_script_params() assert %{ "location_override" => nil, "domain_to_replace" => nil } = script_params end test "sets domain_to_replace on any other dashboard", %{conn: conn} do site = new_site(domain: "öö.ee", public: true) populate_stats(site, [build(:pageview)]) conn = get(conn, "/#{site.domain}") script_params = html_response(conn, 200) |> get_script_params() assert %{ "location_override" => nil, "domain_to_replace" => "%C3%B6%C3%B6.ee" } = script_params end test "sets domain_to_replace on live demo shared link", %{conn: conn} do site = new_site(domain: "plausible.io", public: true) link = insert(:shared_link, site: site) populate_stats(site, [build(:pageview)]) conn = get(conn, "/share/#{site.domain}/?auth=#{link.slug}") script_params = html_response(conn, 200) |> get_script_params() assert %{ "location_override" => nil, "domain_to_replace" => "plausible.io" } = script_params end test "sets location_override on a locked dashboard", %{conn: conn} do locked_site = new_site(public: true) locked_site.team |> Ecto.Changeset.change(locked: true) |> Repo.update!() conn = get(conn, "/" <> locked_site.domain) html = html_response(conn, 200) script_params = html |> get_script_params() assert html =~ "Dashboard Locked" assert script_params["location_override"] == PlausibleWeb.Endpoint.url() <> "/:dashboard" end test "sets location_override on a locked shared link", %{conn: conn} do locked_site = new_site() link = insert(:shared_link, site: locked_site) insert(:starter_subscription, team: locked_site.team) conn = get(conn, "/share/#{locked_site.domain}/?auth=#{link.slug}") html = html_response(conn, 200) script_params = get_script_params(html) assert html =~ "Shared Link Unavailable" assert script_params["location_override"] == PlausibleWeb.Endpoint.url() <> "/share/:dashboard" end test "sets location_override on shared_link_password.html", %{conn: conn} do site = new_site() link = insert(:shared_link, site: site, password_hash: Plausible.Auth.Password.hash("password")) conn = get(conn, "/share/#{site.domain}?auth=#{link.slug}") html = html_response(conn, 200) script_params = get_script_params(html) assert html =~ "Enter password" assert script_params["location_override"] == PlausibleWeb.Endpoint.url() <> "/share/:dashboard" end end defp get_script_params(html) do html |> find("#dogfood-script") |> text_of_attr("data-script-params") |> JSON.decode!() end end