git.squeep.com Git - akkoma/blob - test/web/rich_media/parser_test.exs

   1 # Pleroma: A lightweight social networking server
   2 # Copyright © 2017-2020 Pleroma Authors <https://pleroma.social/>
   3 # SPDX-License-Identifier: AGPL-3.0-only
   4
   5 defmodule Pleroma.Web.RichMedia.ParserTest do
   6   use ExUnit.Case, async: true
   7
   8   alias Pleroma.Web.RichMedia.Parser
   9
  10   setup do
  11     Tesla.Mock.mock(fn
  12       %{
  13         method: :get,
  14         url: "http://example.com/ogp"
  15       } ->
  16         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/ogp.html")}
  17
  18       %{
  19         method: :get,
  20         url: "http://example.com/non-ogp"
  21       } ->
  22         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/non_ogp_embed.html")}
  23
  24       %{
  25         method: :get,
  26         url: "http://example.com/ogp-missing-title"
  27       } ->
  28         %Tesla.Env{
  29           status: 200,
  30           body: File.read!("test/fixtures/rich_media/ogp-missing-title.html")
  31         }
  32
  33       %{
  34         method: :get,
  35         url: "http://example.com/twitter-card"
  36       } ->
  37         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/twitter_card.html")}
  38
  39       %{
  40         method: :get,
  41         url: "http://example.com/oembed"
  42       } ->
  43         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/oembed.html")}
  44
  45       %{
  46         method: :get,
  47         url: "http://example.com/oembed.json"
  48       } ->
  49         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/oembed.json")}
  50
  51       %{method: :get, url: "http://example.com/empty"} ->
  52         %Tesla.Env{status: 200, body: "hello"}
  53
  54       %{method: :get, url: "http://example.com/malformed"} ->
  55         %Tesla.Env{status: 200, body: File.read!("test/fixtures/rich_media/malformed-data.html")}
  56
  57       %{method: :get, url: "http://example.com/error"} ->
  58         {:error, :overload}
  59
  60       %{
  61         method: :head,
  62         url: "http://example.com/huge-page"
  63       } ->
  64         %Tesla.Env{
  65           status: 200,
  66           headers: [{"content-length", "2000001"}, {"content-type", "text/html"}]
  67         }
  68
  69       %{
  70         method: :head,
  71         url: "http://example.com/pdf-file"
  72       } ->
  73         %Tesla.Env{
  74           status: 200,
  75           headers: [{"content-length", "1000000"}, {"content-type", "application/pdf"}]
  76         }
  77
  78       %{method: :head} ->
  79         %Tesla.Env{status: 404, body: "", headers: []}
  80     end)
  81
  82     :ok
  83   end
  84
  85   test "returns error when no metadata present" do
  86     assert {:error, _} = Parser.parse("http://example.com/empty")
  87   end
  88
  89   test "doesn't just add a title" do
  90     assert Parser.parse("http://example.com/non-ogp") ==
  91              {:error,
  92               "Found metadata was invalid or incomplete: %{\"url\" => \"http://example.com/non-ogp\"}"}
  93   end
  94
  95   test "parses ogp" do
  96     assert Parser.parse("http://example.com/ogp") ==
  97              {:ok,
  98               %{
  99                 "image" => "http://ia.media-imdb.com/images/rock.jpg",
 100                 "title" => "The Rock",
 101                 "description" =>
 102                   "Directed by Michael Bay. With Sean Connery, Nicolas Cage, Ed Harris, John Spencer.",
 103                 "type" => "video.movie",
 104                 "url" => "http://example.com/ogp"
 105               }}
 106   end
 107
 108   test "falls back to <title> when ogp:title is missing" do
 109     assert Parser.parse("http://example.com/ogp-missing-title") ==
 110              {:ok,
 111               %{
 112                 "image" => "http://ia.media-imdb.com/images/rock.jpg",
 113                 "title" => "The Rock (1996)",
 114                 "description" =>
 115                   "Directed by Michael Bay. With Sean Connery, Nicolas Cage, Ed Harris, John Spencer.",
 116                 "type" => "video.movie",
 117                 "url" => "http://example.com/ogp-missing-title"
 118               }}
 119   end
 120
 121   test "parses twitter card" do
 122     assert Parser.parse("http://example.com/twitter-card") ==
 123              {:ok,
 124               %{
 125                 "card" => "summary",
 126                 "site" => "@flickr",
 127                 "image" => "https://farm6.staticflickr.com/5510/14338202952_93595258ff_z.jpg",
 128                 "title" => "Small Island Developing States Photo Submission",
 129                 "description" => "View the album on Flickr.",
 130                 "url" => "http://example.com/twitter-card"
 131               }}
 132   end
 133
 134   test "parses OEmbed" do
 135     assert Parser.parse("http://example.com/oembed") ==
 136              {:ok,
 137               %{
 138                 "author_name" => "‮‭‬bees‬",
 139                 "author_url" => "https://www.flickr.com/photos/bees/",
 140                 "cache_age" => 3600,
 141                 "flickr_type" => "photo",
 142                 "height" => "768",
 143                 "html" =>
 144                   "<a data-flickr-embed=\"true\" href=\"https://www.flickr.com/photos/bees/2362225867/\" title=\"Bacon Lollys by ‮‭‬bees‬, on Flickr\"><img src=\"https://farm4.staticflickr.com/3040/2362225867_4a87ab8baf_b.jpg\" width=\"1024\" height=\"768\" alt=\"Bacon Lollys\"></a><script async src=\"https://embedr.flickr.com/assets/client-code.js\" charset=\"utf-8\"></script>",
 145                 "license" => "All Rights Reserved",
 146                 "license_id" => 0,
 147                 "provider_name" => "Flickr",
 148                 "provider_url" => "https://www.flickr.com/",
 149                 "thumbnail_height" => 150,
 150                 "thumbnail_url" =>
 151                   "https://farm4.staticflickr.com/3040/2362225867_4a87ab8baf_q.jpg",
 152                 "thumbnail_width" => 150,
 153                 "title" => "Bacon Lollys",
 154                 "type" => "photo",
 155                 "url" => "http://example.com/oembed",
 156                 "version" => "1.0",
 157                 "web_page" => "https://www.flickr.com/photos/bees/2362225867/",
 158                 "web_page_short_url" => "https://flic.kr/p/4AK2sc",
 159                 "width" => "1024"
 160               }}
 161   end
 162
 163   test "rejects invalid OGP data" do
 164     assert {:error, _} = Parser.parse("http://example.com/malformed")
 165   end
 166
 167   test "returns error if getting page was not successful" do
 168     assert {:error, :overload} = Parser.parse("http://example.com/error")
 169   end
 170
 171   test "does a HEAD request to check if the body is too large" do
 172     assert {:error, :body_too_large} = Parser.parse("http://example.com/huge-page")
 173   end
 174
 175   test "does a HEAD request to check if the body is html" do
 176     assert {:error, {:content_type, _}} = Parser.parse("http://example.com/pdf-file")
 177   end
 178 end