require_relative "../test_helper"

class CommentTest < ActiveSupport::TestCase

  def setup
    @person = create_user('testuser').person
    @author = create_user('testauthoruser').person
    @community = create_merit_categorization
    @article = create(TextileArticle, :profile_id => @community.id, :author_id => @author.id)
    @environment = Environment.default
    GamificationPlugin.gamification_set_rules(@environment)
  end
  attr_accessor :person, :article, :environment, :author, :community

  should 'add merit points to author when create a new comment' do
    create(Comment, :source => article, :author_id => person.id)
    assert_equal 1, person.score_points.count
  end

  should 'subtract merit points from author when destroy a comment' do
    comment = create(Comment, :source => article, :author_id => person.id)
    assert_equal 1, person.score_points.count
    comment.destroy
    assert_equal 2, person.score_points.count
    assert_equal 0, person.points
  end

  should 'add merit badge to author when create 5 new comments' do
    GamificationPlugin::Badge.create!(:owner => environment, :name => 'comment_author')
    GamificationPlugin.gamification_set_rules(environment)

    5.times { create(Comment, :source => article, :author_id => person.id) }
    assert_equal 'comment_author', person.badges.first.name
  end

  should 'add merit badge to source author when create 5 new comments' do
    GamificationPlugin::Badge.create!(:owner => environment, :name => 'comment_received')
    GamificationPlugin.gamification_set_rules(environment)

    5.times { create(Comment, :source => article, :author_id => person.id) }
    assert_equal 'comment_received', author.badges.first.name
  end

  should 'add badge to author when users like his comment' do
    GamificationPlugin::Badge.create!(:owner => environment, :name => 'positive_votes_received')
    GamificationPlugin.gamification_set_rules(environment)

    comment = create(Comment, :source => article, :author_id => person.id)
    4.times { Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => 1) }
    Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => -1)
    assert_equal [], person.badges
    Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => 1)
    assert_equal 'positive_votes_received', person.reload.badges.first.name
  end

  should 'add badge to author when users dislike his comment' do
    GamificationPlugin::Badge.create!(:owner => environment, :name => 'negative_votes_received')
    GamificationPlugin.gamification_set_rules(environment)

    comment = create(Comment, :source => article, :author_id => person.id)
    4.times { Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => -1) }
    Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => 1)
    assert_equal [], person.badges
    Vote.create!(:voter => fast_create(Person), :voteable => comment, :vote => -1)
    assert_equal 'negative_votes_received', person.reload.badges.first.name
  end

  should 'add merit points to comment owner when an user like his comment' do
    comment = create(Comment, :source => article, :author_id => person.id)

    c = GamificationPlugin::PointsCategorization.by_type(:vote_voteable_author).where(profile_id: article.profile.id).first
    assert_difference 'comment.author.points(:category => c.id.to_s)', c.weight do
      Vote.create!(:voter => person, :voteable => comment, :vote => 1)
    end
  end

  should 'subtract merit points to comment owner when an user unlike his comment' do
    comment = create(Comment, :source => article, :author_id => author.id)
    Vote.create!(:voter => person, :voteable => comment, :vote => 1)

    assert_difference 'comment.author.points', -50 do
      Vote.where(:voteable_id => comment.id).destroy_all
    end
  end

  should 'subtract merit points from comment owner when an user dislike his comment' do
    comment = create(Comment, :source => article, :author_id => person.id)

    c = GamificationPlugin::PointsCategorization.by_type(:vote_voteable_author).where(profile_id: article.profile.id).first
    assert_difference 'comment.author.points(:category => c.id.to_s)', -1*c.weight do
      Vote.create!(:voter => person, :voteable => comment, :vote => -1)
    end
  end

  should 'add merit points from comment owner when an user remove a dislike in his comment' do
    comment = create(Comment, :source => article, :author_id => author.id)
    Vote.create!(:voter => person, :voteable => comment, :vote => -1)

    assert_difference 'comment.author.points', 50 do
      Vote.where(:voteable_id => comment.id).destroy_all
    end
  end

  should 'add merit points to article author when create a new comment' do
    assert_difference 'author.score_points.count' do
      create(Comment, :source => article, :author_id => person.id)
    end
  end

  should 'add merit points to voter when he likes a comment' do
    comment = create(Comment, :source => article, :author_id => person.id)

    c = GamificationPlugin::PointsCategorization.by_type(:vote_voter).where(profile_id: community.id).first
    assert_difference 'comment.author.points(:category => c.id.to_s)', c.weight do
      Vote.create!(:voter => person, :voteable => comment, :vote => 1)
    end
  end

  should 'add merit points to voter when he dislikes a comment' do
    comment = create(Comment, :source => article, :author_id => person.id)

    c = GamificationPlugin::PointsCategorization.by_type(:vote_voter).where(profile_id: community.id).first
    assert_difference 'comment.author.points(:category => c.id.to_s)', c.weight do
      Vote.create!(:voter => person, :voteable => comment, :vote => -1)
    end
  end

  should 'add merit points to source article when create a comment' do
    c = GamificationPlugin::PointsCategorization.by_type(:comment_article).where(profile_id: community.id).first
    assert_difference 'article.points(:category => c.id.to_s)', c.weight do
      create(Comment, :source => article, :author_id => person.id)
    end
  end

  should 'add merit points to source community when create a comment' do
    article = create(TextileArticle, :profile_id => community.id, :author_id => author.id)

    c = GamificationPlugin::PointsCategorization.by_type(:comment_community).where(profile_id: community.id).first
    assert_difference 'community.points(:category => c.id.to_s)', c.weight do
      create(Comment, :source => article, :author_id => person.id)
    end
  end

end