require 'test_helper'

class CommentTest < Zena::Unit::TestCase

  def setup
    super
    @comment = comments(:ant_says_inside)
  end

  def test_discussion
    assert_equal Discussion, @comment.discussion.class
  end

  def test_cannot_set_site_id_for_new_record
    comment = Comment.new(:site_id=>1234)
    assert_nil comment.site_id
  end

  def test_cannot_set_site_id_for_old_record
    comment = comments(:lion_says_inside)
    original_site_id = comment.site_id
    comment.update_attributes(:site_id => 1234)
    assert_equal original_site_id, comment.site_id
  end

  def test_site_id_allocation
    comment = secure!(Comment) { Comment.create( :user_id=>users_id(:tiger), :title=>'boo', :text=>'blah', :discussion_id => discussions_id(:outside_discussion_on_status_en), :author_name=>'joe', :site_id => 2 ) }
    assert !comment.new_record?, "Not a new record"
    assert_equal sites_id(:zena), comment[:site_id]
    assert_equal users_id(:anon), comment[:user_id]
  end

  def test_site_id
    login(:anon)
    comment = secure!(Comment) { Comment.create(:title=>'boo', :text=>'blah', :discussion_id => discussions_id(:outside_discussion_on_status_en), :author_name=>'joe') }
    assert !comment.new_record?, "Not a new record"
    assert_equal sites_id(:zena), comment.site_id
  end

  def test_no_replies
    comment = comments(:lion_says_inside)
    assert_nil comment.replies
  end

  def test_author
    login(:anon)
    comment = secure!(Comment) { comments(:lion_says_inside) }
    assert_equal 'PLV', comment.author.initials
  end

  def test_node
    login(:anon)
    comment = secure!(Comment) { comments(:lion_says_inside) }
    assert_equal nodes_id(:status), comment.node[:id] #1467732830
    #assert_equal 1766226092, comment.node[:id]
  end

  def test_remove_own
    login(:lion)
    comment = secure!(Comment) { comments(:lion_says_inside) }
    assert_equal Zena::Status[:pub], comment[:status]
    assert comment.remove
    comment = comments(:lion_says_inside)
    assert_equal Zena::Status[:rem], comment[:status]
  end

  def test_remove_spam
    login(:lion)
    comment = secure!(Comment) { comments(:public_spam_in_en) }
    assert_equal Zena::Status[:prop], comment[:status]
    assert comment.remove
    comment = comments(:public_spam_in_en)
    assert_equal Zena::Status[:rem], comment[:status]
  end

  def test_moderate_anonymous_comments
    login(:tiger)
    bak = visitor.status
    visitor.status = User::Status[:moderated]

    discussion = secure!(Discussion) { Discussion.create(:node_id=>nodes_id(:cleanWater), :lang=>'en') }

    comment    = secure!(Comment   ) { Comment.create( :title=>'coco', :text=>'spam see my web site', :author_name=>'me', :discussion_id => discussion[:id] ) }

    assert !comment.new_record?, "Not a new record"
    assert_equal Zena::Status[:prop], comment[:status]

    visitor.status = User::Status[:user]
    comment = secure!(Comment) { Comment.create(:title=>'coco again', :text=>'spam see my web site again', :author_name=>'me', :discussion_id => discussion[:id] ) }
    assert !comment.new_record?, "Not a new record"
    assert_equal Zena::Status[:pub], comment[:status]

    comments = discussion.comments
    assert_equal 1, comments.size
    assert_equal 2, discussion.comments(:with_prop=>true).size
  end

  def test_set_comment
    login(:anon)
    comment    = secure!(Comment) { comments(:first_reply_in_en) }
    discussion = comment.discussion
    reply      = secure!(Comment) { Comment.create( :text=>'blah blah', :author_name=>'me', :reply_to=>comment[:id], :discussion_id => discussion[:id] ) }
    assert !reply.new_record?, "Not a new record"
    assert_equal 're: re: What about rivers ?', reply[:title]
  end

  def test_valid_comment
    login(:anon)
    comment = secure!(Comment) { Comment.create( :title=>'boo', :text=>'blah', :discussion_id => discussions_id(:outside_discussion_on_status_en) ) }
    assert comment.new_record?, "Is a new record"
    assert_equal "can't be blank", comment.errors[:author_name]

    login(:tiger)
    comment = secure!(Comment) { Comment.create( :title=>'boo', :text=>'blah', :discussion_id => discussions_id(:outside_discussion_on_status_en) ) }
    assert ! comment.new_record?, "Not a new record"
    assert_nil comment[:author_name], "Author name is nil"
    assert_equal 'Panther Tigris Sumatran', comment.author_name
  end


  def test_prop_replies
    login(:anon)
    visitor.lang = 'en'
    comment = comments(:public_says_in_en)
    prop_reply = secure!(Comment) { Comment.create(:discussion_id => comment[:discussion_id], :reply_to=>comment[:id], :title=>'bob', :author_name=>'any', :text=>'blah') }

    err prop_reply
    assert !prop_reply.new_record?, "Not a new record"
    assert_equal Zena::Status[:prop], prop_reply[:status]

    replies = comment.replies
    replies_with_prop = comment.replies(:with_prop=>true)
    assert_equal 1, replies.size
    assert_equal comments_id(:first_reply_in_en), replies[0][:id]
    assert_equal 2, replies_with_prop.size
    assert_equal prop_reply[:id], replies_with_prop[1][:id]
  end

  def test_can_write
    login(:anon)
    visitor.ip = '10.0.0.44'
    comment = comments(:public_spam_in_en)
    assert_not_equal visitor.ip, comment.ip
    assert !comment.can_write?
    visitor.ip = '10.0.0.3'
    assert_equal comment.ip, visitor.ip
    assert comment.can_write?
  end

  def test_cannot_update_discussion_closed
    Discussion.connection.execute "UPDATE discussions SET open = 0 WHERE id = #{discussions_id(:outside_discussion_on_status_en)}"
    login(:anon)
    visitor.ip = '10.0.0.3'
    comment = comments(:public_spam_in_en)
    assert_equal comment.ip, visitor.ip
    assert !comment.update_attributes(:text => 'up')
    assert_equal 'Discussion closed, comments cannot be updated.', comment.errors.on(:base)
  end

  def test_cannot_update_not_author
    login(:ant)
    comment = comments(:public_spam_in_en)
    assert !comment.update_attributes(:text => 'up')
    assert_equal 'You do not have the rights to modify comments.', comment.errors[:base]
  end

  # FIXME: should also fail (delete = ok, edit = not ok)
  #def test_cannot_update_not_author_and_admin
  #  login(:lion)
  #  comment = comments(:public_spam_in_en)
  #  assert !comment.update_attributes(:text => 'up')
  #  assert_equal 'You do not have the rights to modify comments.', comment.errors[:base]
  #end

  def test_update
    login(:anon)
    visitor.ip = '10.0.0.3'
    comment = comments(:public_spam_in_en)
    assert_equal comment.ip, visitor.ip
    assert comment.update_attributes(:text => 'up')
    assert comment.errors.empty?
    comment = comments(:public_spam_in_en) # reload
    assert_equal 'up', comment[:text]
  end
end