#-- encoding: UTF-8
#-- copyright
# ChiliProject is a project management system.
#
# Copyright (C) 2010-2011 the ChiliProject Team
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# See doc/COPYRIGHT.rdoc for more details.
#++
require File.expand_path('../../test_helper', __FILE__)

class MailerTest < ActiveSupport::TestCase
  include Redmine::I18n
  include ActionDispatch::Assertions::SelectorAssertions
  fixtures :all

  def setup
    User.current = nil # Clear current user in case of tests setting it and leaking data
    ActionMailer::Base.deliveries.clear
    Setting.host_name = 'mydomain.foo'
    Setting.protocol = 'http'
    Setting.plain_text_mail = '0'
    Setting.default_language = 'en'
    @user = User.find(1)
  end

  def test_generated_links_in_emails
    Setting.host_name = 'mydomain.foo'
    Setting.protocol = 'https'

    journal = Journal.find(2)
    assert Mailer.deliver_issue_edit(journal, @user)

    mail = ActionMailer::Base.deliveries.last
    assert_kind_of TMail::Mail, mail

    assert_select_email do
      # link to the main ticket
      assert_select "a[href=?]", "https://mydomain.foo/issues/1", :text => "Bug #1: Can't print recipes"
      # link to a referenced ticket
      assert_select "a[href=?][title=?]", "https://mydomain.foo/issues/2", "Add ingredients categories (Assigned)", :text => "#2"
      # link to a changeset
      assert_select "a[href=?][title=?]", "https://mydomain.foo/projects/ecookbook/repository/revisions/2", "This commit fixes #1, #2 and references #1 &amp; #3", :text => "r2"
    end
  end

  def test_generated_links_with_prefix
    relative_url_root = Redmine::Utils.relative_url_root
    Setting.host_name = 'mydomain.foo/rdm'
    Setting.protocol = 'http'
    Redmine::Utils.relative_url_root = '/rdm'

    journal = Journal.find(2)
    assert Mailer.deliver_issue_edit(journal, @user)

    mail = ActionMailer::Base.deliveries.last
    assert_kind_of TMail::Mail, mail

    assert_select_email do
      # link to the main ticket
      assert_select "a[href=?]", "http://mydomain.foo/rdm/issues/1", :text => "Bug #1: Can't print recipes"
      # link to a referenced ticket
      assert_select "a[href=?][title=?]", "http://mydomain.foo/rdm/issues/2", "Add ingredients categories (Assigned)", :text => "#2"
      # link to a changeset
      assert_select "a[href=?][title=?]", "http://mydomain.foo/rdm/projects/ecookbook/repository/revisions/2", "This commit fixes #1, #2 and references #1 &amp; #3", :text => "r2"
    end
  ensure
    # restore it
    Redmine::Utils.relative_url_root = relative_url_root
  end

  def test_generated_links_with_prefix_and_no_relative_url_root
    relative_url_root = Redmine::Utils.relative_url_root
    Setting.host_name = 'mydomain.foo/rdm'
    Setting.protocol = 'http'
    Redmine::Utils.relative_url_root = nil

    journal = Journal.find(2)
    assert Mailer.deliver_issue_edit(journal, @user)

    mail = ActionMailer::Base.deliveries.last
    assert_kind_of TMail::Mail, mail

    assert_select_email do
      # link to the main ticket
      assert_select "a[href=?]", "http://mydomain.foo/rdm/issues/1", :text => "Bug #1: Can't print recipes"
      # link to a referenced ticket
      assert_select "a[href=?][title=?]", "http://mydomain.foo/rdm/issues/2", "Add ingredients categories (Assigned)", :text => "#2"
      # link to a changeset
      assert_select "a[href=?][title=?]", "http://mydomain.foo/rdm/projects/ecookbook/repository/revisions/2", "This commit fixes #1, #2 and references #1 &amp; #3", :text => "r2"
    end
  ensure
    # restore it
    Redmine::Utils.relative_url_root = relative_url_root
  end

  def test_email_headers
    issue = Issue.find(1)
    Mailer.deliver_issue_add(issue, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal 'bulk', mail.header_string('Precedence')
    assert_equal 'auto-generated', mail.header_string('Auto-Submitted')
  end

  def test_plain_text_mail
    Setting.plain_text_mail = 1
    journal = Journal.find(2)
    Mailer.deliver_issue_edit(journal, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_equal "text/plain", mail.content_type
    assert_equal 0, mail.parts.size
    assert !mail.encoded.include?('href')
  end

  def test_html_mail
    Setting.plain_text_mail = 0
    journal = Journal.find(2)
    Mailer.deliver_issue_edit(journal, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_equal 2, mail.parts.size
    assert mail.encoded.include?('href')
  end

  def test_mail_from_with_phrase
    with_settings :mail_from => 'Redmine app <redmine@example.net>' do
      Mailer.deliver_test(User.find(1))
    end
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal 'Redmine app', mail.from_addrs.first.name
  end

  def test_should_not_send_email_without_recipient
    news = News.find(:first)
    user = news.author
    # Remove members except news author
    news.project.memberships.each {|m| m.destroy unless m.user == user}

    user.pref[:no_self_notified] = false
    user.pref.save
    User.current = user
    Mailer.deliver_news_added(news.reload, user)
    assert_equal 1, last_email.to.size

    # nobody to notify
    user.pref[:no_self_notified] = true
    user.pref.save
    User.current = user
    ActionMailer::Base.deliveries.clear
    Mailer.deliver_news_added(news.reload, user)
    assert ActionMailer::Base.deliveries.empty?
  end

  def test_issue_add_message_id
    issue = Issue.find(1)
    Mailer.deliver_issue_add(issue, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal Mailer.message_id_for(issue), mail.message_id
    assert_nil mail.references
  end

  def test_issue_edit_message_id
    journal = Journal.find(1)
    Mailer.deliver_issue_edit(journal, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal Mailer.message_id_for(journal), mail.message_id
    assert_equal Mailer.message_id_for(journal.journaled), mail.references.first.to_s
  end

  def test_message_posted_message_id
    message = Message.find(1)
    Mailer.deliver_message_posted(message, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal Mailer.message_id_for(message), mail.message_id
    assert_nil mail.references
    assert_select_email do
      # link to the message
      assert_select "a[href*=?]", "#{Setting.protocol}://#{Setting.host_name}/boards/#{message.board.id}/topics/#{message.id}", :text => message.subject
    end
  end

  def test_reply_posted_message_id
    message = Message.find(3)
    Mailer.deliver_message_posted(message, @user)
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    assert_equal Mailer.message_id_for(message), mail.message_id
    assert_equal Mailer.message_id_for(message.parent), mail.references.first.to_s
    assert_select_email do
      # link to the reply
      assert_select "a[href=?]", "#{Setting.protocol}://#{Setting.host_name}/boards/#{message.board.id}/topics/#{message.root.id}?r=#{message.id}#message-#{message.id}", :text => message.subject
    end
  end

  context("#issue_add") do
    setup do
      ActionMailer::Base.deliveries.clear
      Setting.bcc_recipients = '1'
      @issue = Issue.find(1)
    end

    should "send one email per recipient" do
      assert Mailer.deliver_issue_add(@issue, @user)
      assert_equal 1, ActionMailer::Base.deliveries.length
      assert_equal ['admin@somenet.foo'], last_email.to
    end

    should "change mail language depending on recipient language" do
      Setting.stubs(:available_languages).returns(['en', 'de'])
      set_language_if_valid 'en'

      user = User.find(1)
      user.language = 'de'

      assert Mailer.deliver_issue_add(@issue, user)
      assert_equal 1, ActionMailer::Base.deliveries.length

      mail = last_email
      assert_equal ['admin@somenet.foo'], mail.to
      assert mail.body.include?('erstellt')
      assert !mail.body.include?('reported')
      assert_equal :en, current_language
    end

    should "falls back to default language if user has no language" do
      # 1. user's language
      # 2. Setting.default_language
      # 3. :en

      Setting.stubs(:available_languages).returns(['en', 'de', 'fr'])
      set_language_if_valid 'fr'

      Setting.default_language = 'de'

      user = User.find(1)
      user.language = '' # (auto)

      assert Mailer.deliver_issue_add(@issue, user)
      assert_equal 1, ActionMailer::Base.deliveries.length

      mail = last_email
      assert_equal ['admin@somenet.foo'], mail.to
      assert !mail.body.include?('reported')
      assert mail.body.include?('erstellt')
      assert_equal :fr, current_language
    end
  end

  def test_issue_add
    issue = Issue.find(1)
    assert Mailer.deliver_issue_add(issue, @user)
  end

  def test_issue_edit
    journal = Journal.find(1)
    assert Mailer.deliver_issue_edit(journal, @user)
  end

  def test_document_added
    document = Document.find(1)
    assert Mailer.deliver_document_added(document, @user)
  end

  def test_attachments_added
    attachements = [ Attachment.find_by_container_type('Document') ]
    assert Mailer.deliver_attachments_added(attachements, @user)
  end

  def test_version_file_added
    attachements = [ Attachment.find_by_container_type('Version') ]
    assert Mailer.deliver_attachments_added(attachements, @user)
    assert_equal ['admin@somenet.foo'], last_email.to
  end

  def test_project_file_added
    attachements = [ Attachment.find_by_container_type('Project') ]
    assert Mailer.deliver_attachments_added(attachements, @user)
    assert_equal ['admin@somenet.foo'], last_email.to
  end

  def test_news_added
    news = News.find(:first)
    assert Mailer.deliver_news_added(news, @user)
  end

  def test_news_comment_added
    comment = Comment.find(2)
    assert Mailer.deliver_news_comment_added(comment)
  end

  def test_message_posted
    message = Message.find(:first)
    assert Mailer.deliver_message_posted(message, @user)
  end

  def test_wiki_content_added
    content = WikiContent.find(1)
    assert_difference 'ActionMailer::Base.deliveries.size' do
      assert Mailer.deliver_wiki_content_added(content, @user)
    end
  end

  def test_wiki_content_updated
    content = WikiContent.find(1)
    assert_difference 'ActionMailer::Base.deliveries.size' do
      assert Mailer.deliver_wiki_content_updated(content, @user)
    end
  end

  def test_account_information
    user = User.find(2)
    assert Mailer.deliver_account_information(user, 'pAsswORd')
  end

  def test_lost_password
    token = Token.find(2)
    assert Mailer.deliver_lost_password(token)
  end

  def test_register
    token = Token.find(1)
    Setting.host_name = 'redmine.foo'
    Setting.protocol = 'https'

    ActionMailer::Base.deliveries.clear
    assert Mailer.deliver_register(token)
    mail = ActionMailer::Base.deliveries.last
    assert mail.body.include?("https://redmine.foo/account/activate?token=#{token.value}")
  end

  def test_test
    user = User.find(1)
    assert Mailer.deliver_test(user)
  end

  def test_reminders
    Mailer.reminders(:days => 42)
    assert_equal 1, ActionMailer::Base.deliveries.size
    mail = ActionMailer::Base.deliveries.last
    assert mail.to.include?('dlopper@somenet.foo')
    assert mail.body.include?('Bug #3: Error 281 when updating a recipe')
    assert_equal '1 issue(s) due in the next 42 days', mail.subject
  end

  def test_reminders_for_users
    Mailer.reminders(:days => 42, :users => ['5'])
    assert_equal 0, ActionMailer::Base.deliveries.size
    Mailer.reminders(:days => 42, :users => ['3'])
    assert_equal 1, ActionMailer::Base.deliveries.size
    mail = ActionMailer::Base.deliveries.last
    assert mail.to.include?('dlopper@somenet.foo')
    assert mail.body.include?('Bug #3: Error 281 when updating a recipe')
  end

  def last_email
    mail = ActionMailer::Base.deliveries.last
    assert_not_nil mail
    mail
  end

  def test_mailer_should_not_change_locale
    Setting.stubs(:available_languages).returns(['en', 'it', 'fr'])
    Setting.default_language = 'en'
    # Set current language to italian
    set_language_if_valid 'it'
    # Send an email to a french user
    user = User.find(1)
    user.language = 'fr'
    Mailer.deliver_account_activated(user)
    mail = ActionMailer::Base.deliveries.last
    assert mail.body.include?('Votre compte')
    assert_equal :it, current_language
  end

  def test_with_deliveries_off
    Mailer.with_deliveries false do
      Mailer.deliver_test(@user)
    end
    assert ActionMailer::Base.deliveries.empty?
    # should restore perform_deliveries
    assert ActionMailer::Base.perform_deliveries
  end

  context "layout" do
    should "include the emails_header depeding on the locale" do
      Setting.available_languages = [:en, :de]
      Setting.emails_header = { "de" => "deutscher header",
                                "en" => "english header" }

      user = User.find(1)
      user.language = :en
      assert Mailer.deliver_test(user)
      mail = ActionMailer::Base.deliveries.last
      assert mail.body.include?('english header')

      user.language = :de
      assert Mailer.deliver_test(user)
      mail = ActionMailer::Base.deliveries.last
      assert mail.body.include?('deutscher header')
    end

  end

end