defmodule EslHn.Test.Data do
  @moduledoc """
  Additional `StreamData` generators used during testing
  """

  use ExUnitProperties

  alias EslHn.Hn.Story

  def story do
    gen all(
          title <- string(:utf8, min_length: 1),
          score <- positive_integer()
        ) do
      %Story{
        id: System.unique_integer([:positive]),
        title: title,
        score: score,
        url: "https://example.com/#{URI.encode(title)}"
      }
    end
  end
end