workshop

defmodule Workshop.Validate do
  use Workshop.Validator

  alias Workshop.Exercises
  alias Workshop.Exercise

  verify "Should have a title" do
    cond do
      Workshop.Info.get(Workshop.Meta, :title) == nil ->
        {:error, "The workshop should have a title"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have a version" do
    cond do
      Workshop.Info.get(Workshop.Meta, :version) == nil ->
        {:error, "The workshop should have a version"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have a description" do
    cond do
      Workshop.Info.get(Workshop.Meta, :description) == nil ->
        {:error, "The workshop should have a description"}
      :otherwise ->
        :ok
    end
  end

  verify "Could have a short description" do
    shortdesc = Workshop.Info.get(Workshop.Meta, :shortdesc)
    cond do
      shortdesc == false ->
        :ok
      shortdesc == nil ->
        {:warning, "Consider adding a short description to the workshop, " <>
                   "or suppress this warning by setting @shortdesc to `false`"}
      String.length(shortdesc) < 25 ->
        {:error, "Workshop @shortdesc is too short. Please keep it longer than 25 chars."}
      String.length(shortdesc) > 200 ->
        {:error, "Workshop @shortdesc is too long. Please keep it below 200 chars."}
      :otherwise ->
        :ok
    end
  end

  verify "Should have an introduction" do
    cond do
      Workshop.Info.get(Workshop.Meta, :introduction) == nil ->
        {:error, "The workshop should have an introduction"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have a debriefing" do
    cond do
      Workshop.Info.get(Workshop.Meta, :debriefing) == nil ->
        {:error, "The workshop should have a debriefing"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have at least one exercise" do
    cond do
      length(Exercises.list!) <= 0 ->
        {:error, "The workshop should have at least one exercise"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have unique weights for exercises" do
    exercises =
      Exercises.list_by_weight!
      |> Enum.map(&elem(&1, 0))

    cond do
      length(exercises) != length(Enum.uniq(exercises)) ->
        {:error, "Two or more exercises has the same weight, please make the weights unique"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have unique titles for exercises" do
    exercises =
      Exercises.list_by_weight!
      |> Enum.map(&elem(&1, 1))

    cond do
      length(exercises) != length(Enum.uniq(exercises)) ->
        {:error, "Two or more exercises has the same title, please make the titles unique"}
      :otherwise ->
        :ok
    end
  end

  verify "Should have all valid exercises" do
    Exercises.list!
    |> Enum.map(&Exercise.load/1)
    |> Enum.map(&Exercise.validate/1)
  end
end