Server : Apache/2.4.41 (Ubuntu) System : Linux absol.cf 5.4.0-198-generic #218-Ubuntu SMP Fri Sep 27 20:18:53 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory :  /var/lib/gems/2.5.0/gems/eventmachine-le-1.1.7/tests/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

require 'net/smtp'
require "net/telnet"
require 'em_test_helper'

class TestSmtpServer < Test::Unit::TestCase

  # Don't test on port 25. It requires superuser and there's probably
  # a mail server already running there anyway.
  Localhost = "127.0.0.1"
  Localport = 25001

  # This class is an example of what you need to write in order
  # to implement a mail server. You override the methods you are
  # interested in. Some, but not all, of these are illustrated here.
  #
  class Mailserver < EM::Protocols::SmtpServer

    attr_reader :my_msg_body, :my_sender, :my_recipients, :messages_count


    def initialize *args
      super
    end

    def receive_sender sender
      @my_sender = sender
      #p sender
      true
    end

    def receive_recipient rcpt
      @my_recipients ||= []
      @my_recipients << rcpt
      true
    end

    def receive_data_chunk c
      @my_msg_body = c.last
    end

    def receive_message
      @messages_count ||= 0
      @messages_count += 1
      true
    end

    def connection_ended
      EM.stop
    end
  end

  def run_server
    c = nil
    EM.run {
      EM.start_server( Localhost, Localport, Mailserver ) {|conn| c = conn}
      EM::Timer.new(2) {EM.stop} # prevent hanging the test suite in case of error
      yield if block_given?
    }
    c
  end

  def test_mail
    c = run_server do
      EM::Protocols::SmtpClient.send :host=>Localhost,
        :port=>Localport,
        :domain=>"bogus",
        :from=>"me@example.com",
        :to=>"you@example.com",
        :header=> {"Subject"=>"Email subject line", "Reply-to"=>"me@example.com"},
        :body=>"Not much of interest here."
    end
    assert_equal( "Not much of interest here.", c.my_msg_body )
    assert_equal( "<me@example.com>", c.my_sender )
    assert_equal( ["<you@example.com>"], c.my_recipients )
  end



  def test_multiple_messages_per_connection
    c = run_server do
      Thread.new do
        Net::SMTP.start( Localhost, Localport, Localhost ) do |smtp|
          2.times do
            smtp.send_message  "This is a test e-mail message.", 'me@fromdomain.com', 'test@todomain.com'
          end
        end
      end
    end

    assert_equal( 2, c.messages_count )
  end

  def test_login_authentication
    Mailserver.parms = {:auth => :required}
    connection = run_server do
      Thread.new do
        pop = Net::Telnet::new("Host" => Localhost,
                               "Port" =>Localport,
                               "Telnetmode" => false,
                               "Prompt" => /^\d{3}\s+/n
                              )
        pop.cmd(<<-CMD)
auth login
#{["aaa"].pack('m').chomp}
#{["bbb"].pack('m').chomp}
mail from:a@b.com
rcpt to:c@d.com
data
hello
.
quit
CMD
      end
    end

    assert_equal( 1, connection.messages_count )
  ensure
    Mailserver.parms = {:auth => nil}
  end
end