flipstone-ar_mailer 3.0.0

data/test/test_arsendmail.rb

@@ -0,0 +1,542 @@
+require File.expand_path(File.dirname(__FILE__) + '/test_helper')
+
+class ArMailer::ARSendmail
+  attr_accessor :slept
+  def sleep(secs)
+    @slept ||= []
+    @slept << secs
+  end
+end
+
+class TestARSendmail < MiniTest::Unit::TestCase
+
+  def setup
+    ActionMailer::Base.reset
+    Email.reset
+    Net::SMTP.reset
+
+    @sm = ArMailer::ARSendmail.new
+    @sm.verbose = true
+
+    Net::SMTP.clear_on_start
+
+    @include_c_e = ! $".grep(/config\/environment.rb/).empty?
+    $" << 'config/environment.rb' unless @include_c_e
+  end
+
+  def teardown
+    $".delete 'config/environment.rb' unless @include_c_e
+  end
+
+  def test_class_mailq
+    Email.create :from => nobody, :to => 'recip@h1.example.com',
+                 :mail => 'body0'
+    Email.create :from => nobody, :to => 'recip@h1.example.com',
+                 :mail => 'body1'
+    last = Email.create :from => nobody, :to => 'recip@h2.example.com',
+                        :mail => 'body2'
+    last_attempt_time = Time.parse('Thu Aug 10 2006 11:40:05')
+    last.last_send_attempt = last_attempt_time.to_i
+
+    out, err = capture_io do
+      ArMailer::ARSendmail.mailq
+    end
+
+    expected = <<-EOF
+-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
+         1        5 Thu Aug 10 11:19:49  nobody@example.com
+                                         recip@h1.example.com
+
+         2        5 Thu Aug 10 11:19:50  nobody@example.com
+                                         recip@h1.example.com
+
+         3        5 Thu Aug 10 11:19:51  nobody@example.com
+Last send attempt: Thu Aug 10 11:40:05 %s 2006
+                                         recip@h2.example.com
+
+-- 0 Kbytes in 3 Requests.
+    EOF
+
+    expected = expected % last_attempt_time.strftime('%z')
+    assert_equal expected, out
+  end
+
+  def test_class_mailq_empty
+    out, err = capture_io do
+      ArMailer::ARSendmail.mailq
+    end
+
+    assert_equal "Mail queue is empty\n", out
+  end
+
+  def test_class_new
+    @sm = ArMailer::ARSendmail.new
+
+    assert_equal 60, @sm.delay
+    assert_equal nil, @sm.once
+    assert_equal nil, @sm.verbose
+    assert_equal nil, @sm.batch_size
+
+    @sm = ArMailer::ARSendmail.new :Delay => 75, :Verbose => true,
+                                       :Once => true, :BatchSize => 1000
+
+    assert_equal 75, @sm.delay
+    assert_equal true, @sm.once
+    assert_equal true, @sm.verbose
+    assert_equal 1000, @sm.batch_size
+  end
+
+  def test_class_parse_args_batch_size
+    options = ArMailer::ARSendmail.process_args %w[-b 500]
+
+    assert_equal 500, options[:BatchSize]
+
+    options = ArMailer::ARSendmail.process_args %w[--batch-size 500]
+
+    assert_equal 500, options[:BatchSize]
+  end
+
+  def test_class_parse_args_chdir
+    argv = %w[-c /tmp]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal '/tmp', options[:Chdir]
+
+    argv = %w[--chdir /tmp]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal '/tmp', options[:Chdir]
+
+    argv = %w[-c /nonexistent]
+
+    out, err = capture_io do
+      assert_raises SystemExit do
+        ArMailer::ARSendmail.process_args argv
+      end
+    end
+  end
+
+  def test_class_parse_args_daemon
+    argv = %w[-d]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal true, options[:Daemon]
+
+    argv = %w[--daemon]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal true, options[:Daemon]
+  end
+
+  def test_class_parse_args_pidfile
+    argv = %w[-p ./log/ar_sendmail.pid]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal './log/ar_sendmail.pid', options[:Pidfile]
+
+    argv = %w[--pidfile ./log/ar_sendmail.pid]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal './log/ar_sendmail.pid', options[:Pidfile]
+  end
+
+  def test_class_parse_args_delay
+    argv = %w[--delay 75]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal 75, options[:Delay]
+  end
+
+  def test_class_parse_args_environment
+    assert_equal nil, ENV['RAILS_ENV']
+
+    argv = %w[-e production]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal 'production', options[:RailsEnv]
+
+    assert_equal 'production', ENV['RAILS_ENV']
+
+    argv = %w[--environment production]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal 'production', options[:RailsEnv]
+  end
+
+  def test_class_parse_args_mailq
+    options = ArMailer::ARSendmail.process_args []
+    refute_includes options, :MailQ
+
+    argv = %w[--mailq]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal true, options[:MailQ]
+  end
+
+  def test_class_parse_args_max_age
+    options = ArMailer::ARSendmail.process_args []
+    assert_equal 86400 * 7, options[:MaxAge]
+
+    argv = %w[--max-age 86400]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal 86400, options[:MaxAge]
+  end
+
+  def test_class_parse_args_no_config_environment
+    $".delete 'config/environment.rb'
+
+    out, err = capture_io do
+      assert_raises SystemExit do
+        ArMailer::ARSendmail.process_args []
+      end
+    end
+
+  ensure
+    $" << 'config/environment.rb' if @include_c_e
+  end
+
+  def test_class_parse_args_once
+    argv = %w[-o]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal true, options[:Once]
+
+    argv = %w[--once]
+
+    options = ArMailer::ARSendmail.process_args argv
+
+    assert_equal true, options[:Once]
+  end
+
+  def test_class_usage
+    out, err = capture_io do
+      assert_raises SystemExit do
+        ArMailer::ARSendmail.usage 'opts'
+      end
+    end
+
+    assert_equal '', out
+    assert_equal "opts\n", err
+
+    out, err = capture_io do
+      assert_raises SystemExit do
+        ArMailer::ARSendmail.usage 'opts', 'hi'
+      end
+    end
+
+    assert_equal '', out
+    assert_equal "hi\n\nopts\n", err
+  end
+
+  def test_cleanup
+    e1 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    e1.created_on = Time.now
+    e2 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    e3 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    e3.last_send_attempt = Time.now
+
+    out, err = capture_io do
+      @sm.cleanup
+    end
+
+    assert_equal '', out
+    assert_equal "expired 1 emails from the queue\n", err
+    assert_equal 2, Email.records.length
+
+    assert_equal [e1, e2], Email.records
+  end
+
+  def test_cleanup_disabled
+    e1 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    e1.created_on = Time.now
+    e2 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    @sm.max_age = 0
+
+    out, err = capture_io do
+      @sm.cleanup
+    end
+
+    assert_equal '', out
+    assert_equal 2, Email.records.length
+  end
+
+  def test_deliver
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 1, Net::SMTP.deliveries.length
+    assert_equal ['body', 'from', 'to'], Net::SMTP.deliveries.first
+    assert_equal 0, Email.records.length
+    assert_equal 0, Net::SMTP.reset_called, 'Reset connection on SyntaxError'
+
+    assert_equal '', out
+    assert_equal "sent email 00000000001 from from to to: \"queued\"\n", err
+  end
+
+  def test_deliver_not_called_when_no_emails
+    sm = ArMailer::ARSendmail.new({:Once => true})
+    sm.expects(:deliver).never
+    sm.run
+  end
+
+  def test_deliver_auth_error
+    Net::SMTP.on_start do
+      e = Net::SMTPAuthenticationError.new 'try again'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    now = Time.now.to_i
+
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 0, Net::SMTP.deliveries.length
+    assert_equal 1, Email.records.length
+    assert_equal 0, Email.records.first.last_send_attempt
+    assert_equal 0, Net::SMTP.reset_called
+    assert_equal 1, @sm.failed_auth_count
+    assert_equal [60], @sm.slept
+
+    assert_equal '', out
+    assert_equal "authentication error, retrying: try again\n", err
+  end
+
+  def test_deliver_auth_error_recover
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    @sm.failed_auth_count = 1
+
+    out, err = capture_io do @sm.deliver [email] end
+
+    assert_equal 0, @sm.failed_auth_count
+    assert_equal 1, Net::SMTP.deliveries.length
+  end
+
+  def test_deliver_auth_error_twice
+    Net::SMTP.on_start do
+      e = Net::SMTPAuthenticationError.new 'try again'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    @sm.failed_auth_count = 1
+
+    out, err = capture_io do
+      assert_raises Net::SMTPAuthenticationError do
+        @sm.deliver []
+      end
+    end
+
+    assert_equal 2, @sm.failed_auth_count
+    assert_equal "authentication error, giving up: try again\n", err
+  end
+
+  def test_deliver_4xx_error
+    Net::SMTP.on_send_message do
+      e = Net::SMTPSyntaxError.new 'try again'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    now = Time.now.to_i
+
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 0, Net::SMTP.deliveries.length
+    assert_equal 1, Email.records.length
+    assert_operator now, :<=, Email.records.first.last_send_attempt
+    assert_equal 1, Net::SMTP.reset_called, 'Reset connection on SyntaxError'
+
+    assert_equal '', out
+    assert_equal "error sending email 1: \"try again\"(Net::SMTPSyntaxError):\n\tone\n\ttwo\n\tthree\n", err
+  end
+
+  def test_deliver_5xx_error
+    Net::SMTP.on_send_message do
+      e = Net::SMTPFatalError.new 'unknown recipient'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    now = Time.now.to_i
+
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 0, Net::SMTP.deliveries.length
+    assert_equal 1, Email.records.length
+    assert_equal 1, Net::SMTP.reset_called, 'Reset connection on SyntaxError'
+
+    assert_kind_of Time, Email.records.first.failed_at
+    assert_equal Email.records.first.failure_message, "unknown recipient"
+
+    assert_equal '', out
+    assert_equal "5xx error sending email 1, removing from queue: \"unknown recipient\"(Net::SMTPFatalError):\n\tone\n\ttwo\n\tthree\n", err
+  end
+
+  def test_deliver_errno_epipe
+    Net::SMTP.on_send_message do
+      raise Errno::EPIPE
+    end
+
+    now = Time.now.to_i
+
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 0, Net::SMTP.deliveries.length
+    assert_equal 1, Email.records.length
+    assert_operator now, :>=, Email.records.first.last_send_attempt
+    assert_equal 0, Net::SMTP.reset_called, 'Reset connection on SyntaxError'
+
+    assert_equal '', out
+    assert_equal '', err
+  end
+
+  def test_deliver_syntax_error
+    Net::SMTP.on_send_message do
+      Net::SMTP.on_send_message # clear
+      e = Net::SMTPSyntaxError.new 'blah blah blah'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    now = Time.now.to_i
+
+    email1 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+    email2 = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email1, email2]
+    end
+
+    assert_equal 1, Net::SMTP.deliveries.length, 'delivery count'
+    assert_equal 1, Email.records.length
+    assert_equal 1, Net::SMTP.reset_called, 'Reset connection on SyntaxError'
+    assert_operator now, :<=, Email.records.first.last_send_attempt
+
+    assert_equal '', out
+    assert_equal "error sending email 1: \"blah blah blah\"(Net::SMTPSyntaxError):\n\tone\n\ttwo\n\tthree\nsent email 00000000002 from from to to: \"queued\"\n", err
+  end
+
+  def test_deliver_timeout
+    Net::SMTP.on_send_message do
+      e = Timeout::Error.new 'timed out'
+      e.set_backtrace %w[one two three]
+      raise e
+    end
+
+    now = Time.now.to_i
+
+    email = Email.create :mail => 'body', :to => 'to', :from => 'from'
+
+    out, err = capture_io do
+      @sm.deliver [email]
+    end
+
+    assert_equal 0, Net::SMTP.deliveries.length
+    assert_equal 1, Email.records.length
+    assert_operator now, :>=, Email.records.first.last_send_attempt
+    assert_equal 1, Net::SMTP.reset_called, 'Reset connection on Timeout'
+
+    assert_equal '', out
+    assert_equal "error sending email 1: \"timed out\"(Timeout::Error):\n\tone\n\ttwo\n\tthree\n", err
+  end
+
+  def test_do_exit
+    out, err = capture_io do
+      assert_raises SystemExit do
+        @sm.do_exit
+      end
+    end
+
+    assert_equal '', out
+    assert_equal "caught signal, shutting down\n", err
+  end
+
+  def test_log
+    out, err = capture_io do
+      @sm.log 'hi'
+    end
+
+    assert_equal "hi\n", err
+  end
+
+  def test_find_emails
+    email_data = [
+      { :mail => 'body0', :to => 'recip@h1.example.com', :from => nobody },
+      { :mail => 'body1', :to => 'recip@h1.example.com', :from => nobody },
+      { :mail => 'body2', :to => 'recip@h2.example.com', :from => nobody },
+    ]
+
+    emails = email_data.map do |email_data| Email.create email_data end
+
+    tried = Email.create :mail => 'body3', :to => 'recip@h3.example.com',
+                         :from => nobody
+
+    tried.last_send_attempt = Time.now.to_i - 258
+
+    found_emails = []
+
+    out, err = capture_io do
+      found_emails = @sm.find_emails
+    end
+
+    assert_equal emails, found_emails
+
+    assert_equal '', out
+    assert_equal "found 3 emails to send\n", err
+  end
+
+  def test_find_emails_no_5xx_error_recovery
+    Email.create :failed_at => Time.now.utc
+    found_emails = []
+
+    out, err = capture_io do
+      found_emails = @sm.find_emails
+    end
+
+    assert_equal [], found_emails
+  end
+
+  def test_smtp_settings
+    ActionMailer::Base.server_settings[:address] = 'localhost'
+
+    assert_equal 'localhost', @sm.smtp_settings[:address]
+  end
+
+  def nobody
+    'nobody@example.com'
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,11 @@
+require 'test/unit'
+require 'rubygems'
+require 'active_support'
+require 'active_support/core_ext/class/attribute_accessors' # d: why need to require?
+require 'active_support/core_ext/string/inflections' # d: why need to require?
+require 'test/resources/action_mailer'
+require 'minitest/autorun'
+require 'mocha'
+
+require 'ar_mailer/active_record'
+require 'ar_mailer/ar_sendmail'

metadata

@@ -0,0 +1,116 @@
+--- !ruby/object:Gem::Specification 
+name: flipstone-ar_mailer
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 3
+  - 0
+  - 0
+  version: 3.0.0
+platform: ruby
+authors: 
+- Eric Hodel
+- Adam Meehan
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-01-13 00:00:00 -05:00
+default_executable: ar_sendmail
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: minitest
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 5
+        - 0
+        version: 1.5.0
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: mocha
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 9
+        - 8
+        version: 0.9.8
+  type: :development
+  version_requirements: *id002
+description: Even delivering email to the local machine may take too long when you have to send hundreds of messages.  ar_mailer allows you to store messages into the database for later delivery by a separate process, ar_sendmail.
+email: david@flipstone.com
+executables: 
+- ar_sendmail
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- LICENSE.txt
+- README.rdoc
+files: 
+- History.txt
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- bin/ar_sendmail
+- generators/ar_mailer/ar_mailer_generator.rb
+- generators/ar_mailer/templates/migration.rb
+- generators/ar_mailer/templates/model.rb
+- lib/flipstone-ar_mailer.rb
+- lib/ar_mailer/active_record.rb
+- lib/ar_mailer/ar_sendmail.rb
+- lib/smtp_tls.rb
+- share/bsd/ar_sendmail
+- share/linux/ar_sendmail
+- share/linux/ar_sendmail.conf
+- test/resources/action_mailer.rb
+- test/test_armailer.rb
+- test/test_arsendmail.rb
+- test/test_helper.rb
+has_rdoc: true
+homepage: http://github.com/flipstone/ar_mailer
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.rdoc
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: seattlerb
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A two-phase delivery agent for ActionMailer
+test_files: 
+- test/test_armailer.rb
+- test/test_arsendmail.rb