rack-mail_exception 0.0.1

data/vendor/mail/spec/mail/network_spec.rb

@@ -0,0 +1,359 @@
+# encoding: utf-8
+require 'spec_helper'
+
+class MyDelivery; def initialize(settings); end; end
+
+class MyRetriever; def initialize(settings); end; end
+
+describe "Mail" do
+
+  before(:each) do
+    # Reset all defaults back to original state
+    Mail.defaults do
+      delivery_method :smtp, { :address              => "localhost",
+                               :port                 => 25,
+                               :domain               => 'localhost.localdomain',
+                               :user_name            => nil,
+                               :password             => nil,
+                               :authentication       => nil,
+                               :enable_starttls_auto => true  }
+    
+      retriever_method :pop3, { :address             => "localhost",
+                                :port                => 110,
+                                :user_name           => nil,
+                                :password            => nil,
+                                :enable_ssl          => true }
+    end
+  end
+
+  describe "default delivery and retriever methods" do
+    
+    it "should set the delivery method" do
+      Mail.defaults do
+        delivery_method :smtp
+      end
+      Mail.delivery_method.class.should == Mail::SMTP
+    end
+    
+    it "should default to settings for smtp" do
+      Mail.delivery_method.class.should == Mail::SMTP
+      Mail.delivery_method.settings.should == { :address              => "localhost",
+                                                :port                 => 25,
+                                                :domain               => 'localhost.localdomain',
+                                                :user_name            => nil,
+                                                :password             => nil,
+                                                :authentication       => nil,
+                                                :enable_starttls_auto => true  }
+    end
+
+    it "should set the retriever method" do
+      Mail.defaults do
+        retriever_method :pop3
+      end
+      Mail.retriever_method.class.should == Mail::POP3
+    end
+
+    it "should default to settings for pop3" do
+      Mail.retriever_method.class.should == Mail::POP3
+      Mail.retriever_method.settings.should == { :address              => "localhost",
+                                                 :port                 => 110,
+                                                 :user_name            => nil,
+                                                 :password             => nil,
+                                                 :authentication       => nil,
+                                                 :enable_ssl           => true  }
+    end
+
+    it "should allow us to overwrite anything we need on SMTP" do
+      Mail.defaults do
+        delivery_method :smtp, :port => 999
+      end
+      Mail.delivery_method.settings[:address].should == 'localhost'
+      Mail.delivery_method.settings[:port].should == 999
+    end
+
+    it "should allow us to overwrite anything we need on POP3" do
+      Mail.defaults do
+        retriever_method :pop3, :address => 'foo.bar.com'
+      end
+      Mail.retriever_method.settings[:address].should == 'foo.bar.com'
+      Mail.retriever_method.settings[:port].should == 110
+    end
+
+    it "should allow you to pass in your own delivery method" do
+      Mail.defaults do
+        delivery_method MyDelivery
+      end
+      Mail.delivery_method.class.should == MyDelivery
+    end
+
+    it "should ask the custom delivery agent for it's settings" do
+      mock_my_delivery = mock(MyDelivery)
+      mock_my_delivery.should_receive(:settings).and_return({:these_are => :settings})
+      MyDelivery.should_receive(:new).and_return(mock_my_delivery)
+      Mail.defaults do
+        delivery_method MyDelivery
+      end
+      Mail.delivery_method.settings.should == {:these_are => :settings}
+    end
+
+    it "should allow you to pass in your own retriever method" do
+      Mail.defaults do
+        retriever_method MyRetriever
+      end
+      Mail.retriever_method.class.should == MyRetriever
+    end
+
+    it "should ask the custom retriever agent for it's settings" do
+      mock_my_retriever = mock(MyRetriever)
+      mock_my_retriever.should_receive(:settings).and_return({:these_are => :settings})
+      MyRetriever.should_receive(:new).and_return(mock_my_retriever)
+      Mail.defaults do
+        retriever_method MyRetriever
+      end
+      Mail.retriever_method.settings.should == {:these_are => :settings}
+    end
+
+  end
+
+  describe "instance delivery methods" do
+    
+    it "should copy the defaults defined by Mail.defaults" do
+      mail = Mail.new
+      mail.delivery_method.class.should == Mail::SMTP
+    end
+  
+    it "should be able to change the delivery_method" do
+      mail = Mail.new
+      mail.delivery_method :file
+      mail.delivery_method.class.should == Mail::FileDelivery
+    end
+
+    it "should be able to change the delivery_method and pass in settings" do
+      mail = Mail.new
+      tmpdir = File.expand_path('../../../tmp/mail', __FILE__)
+      mail.delivery_method :file, :location => tmpdir
+      mail.delivery_method.class.should == Mail::FileDelivery
+      mail.delivery_method.settings.should == {:location => tmpdir}
+    end
+  
+    it "should not change the default when it changes the delivery_method" do
+      mail1 = Mail.new
+      mail2 = Mail.new
+      mail1.delivery_method :file
+      Mail.delivery_method.class.should == Mail::SMTP
+      mail1.delivery_method.class.should == Mail::FileDelivery
+      mail2.delivery_method.class.should == Mail::SMTP
+    end
+  
+    it "should not change the default settings when it changes the delivery_method settings" do
+      mail1 = Mail.new
+      mail2 = Mail.new
+      mail1.delivery_method :smtp, :address => 'my.own.address'
+      Mail.delivery_method.settings[:address].should == 'localhost'
+      mail1.delivery_method.settings[:address].should == 'my.own.address'
+      mail2.delivery_method.settings[:address].should == 'localhost'
+    end
+
+  end
+  
+  describe "retrieving emails via POP3" do
+    it "should retrieve all emails via POP3" do
+      messages = Mail.all
+
+      messages.should_not be_empty
+      for message in messages
+        message.should be_instance_of(Mail::Message)
+      end
+    end
+  end
+  
+  describe "sending emails via SMTP" do
+
+    before(:each) do
+      # Set the delivery method to test as the default
+      MockSMTP.clear_deliveries
+    end
+
+    it "should deliver a mail message" do
+      message = Mail.deliver do
+        from 'mikel@test.lindsaar.net'
+        to 'ada@test.lindsaar.net'
+        subject 'Re: No way!'
+        body 'Yeah sure'
+        # add_file 'New Header Image', '/somefile.png'
+      end
+
+      MockSMTP.deliveries[0][0].should == message.encoded
+      MockSMTP.deliveries[0][1].should == "mikel@test.lindsaar.net"
+      MockSMTP.deliveries[0][2].should == ["ada@test.lindsaar.net"]
+    end
+
+    it "should deliver itself" do
+      message = Mail.new do
+        from 'mikel@test.lindsaar.net'
+        to 'ada@test.lindsaar.net'
+        subject 'Re: No way!'
+        body 'Yeah sure'
+        # add_file 'New Header Image', '/somefile.png'
+      end
+      
+      message.deliver!
+
+      MockSMTP.deliveries[0][0].should == message.encoded
+      MockSMTP.deliveries[0][1].should == "mikel@test.lindsaar.net"
+      MockSMTP.deliveries[0][2].should == ["ada@test.lindsaar.net"]
+    end
+    
+  end
+
+  describe "deliveries" do
+    
+    class MyDeliveryMethod
+      attr_accessor :settings
+      def initialize(values = {}); end
+      def deliver!(message); true; end
+    end
+    
+    class MyObserver
+      def self.delivered_email(message); end
+    end
+    
+    class MyDeliveryHandler
+      def deliver_mail(mail)
+        yield
+      end
+    end
+
+    class MyYieldingDeliveryHandler
+      def deliver_mail(mail)
+        yield
+      end
+    end
+    
+    before(:each) do
+      @message = Mail.new do
+        from 'mikel@test.lindsaar.net'
+        to 'ada@test.lindsaar.net'
+        subject 'Re: No way!'
+        body 'Yeah sure'
+      end
+      @message.delivery_method :test
+    end
+    
+    describe "adding to Mail.deliveries" do
+      it "should add itself to the deliveries collection on mail on delivery" do
+        doing { @message.deliver }.should change(Mail::TestMailer.deliveries, :size).by(1)
+      end
+    end
+    
+    describe "perform_deliveries" do
+      it "should call deliver! on the delivery method by default" do
+        delivery_agent = MyDeliveryMethod.new
+        @message.should_receive(:delivery_method).and_return(delivery_agent)
+        delivery_agent.should_receive(:deliver!).with(@message)
+        @message.deliver
+      end
+
+      it "should not call deliver if perform deliveries is set to false" do
+        @message.perform_deliveries = false
+        delivery_agent = MyDeliveryMethod.new
+        @message.should_not_receive(:delivery_method).and_return(delivery_agent)
+        delivery_agent.should_not_receive(:deliver!)
+        @message.deliver
+      end
+
+      it "should add to the deliveries array if perform_deliveries is true" do
+        @message.perform_deliveries = true
+        doing { @message.deliver }.should change(Mail::TestMailer.deliveries, :size).by(1)
+      end
+
+      it "should not add to the deliveries array if perform_deliveries is false" do
+        @message.perform_deliveries = false
+        doing { @message.deliver }.should_not change(Mail::TestMailer.deliveries, :size)
+      end
+    end
+    
+    describe "observers" do
+      it "should tell it's observers that it was told to deliver an email" do
+        Mail.register_observer(MyObserver)
+        MyObserver.should_receive(:delivered_email).with(@message).once
+        @message.deliver
+      end
+      
+      it "should tell it's observers that it was told to deliver an email even if perform_deliveries is false" do
+        Mail.register_observer(MyObserver)
+        @message.perform_deliveries = false
+        MyObserver.should_receive(:delivered_email).with(@message).once
+        @message.deliver
+      end
+      
+      it "should tell it's observers that it was told to deliver an email even if it is using a delivery_handler" do
+        Mail.register_observer(MyObserver)
+        @message.delivery_handler = MyDeliveryHandler.new
+        @message.perform_deliveries = false
+        MyObserver.should_receive(:delivered_email).with(@message).once
+        @message.deliver
+      end
+      
+    end
+    
+    describe "raise_delivery_errors" do
+      it "should pass on delivery errors if raised" do
+        delivery_agent = MyDeliveryMethod.new
+        @message.stub!(:delivery_method).and_return(delivery_agent)
+        delivery_agent.stub!(:deliver!).and_raise(Exception)
+        doing { @message.deliver }.should raise_error(Exception)
+      end
+
+      it "should not pass on delivery errors if raised raise_delivery_errors is set to false" do
+        delivery_agent = MyDeliveryMethod.new
+        @message.stub!(:delivery_method).and_return(delivery_agent)
+        @message.raise_delivery_errors = false
+        delivery_agent.stub!(:deliver!).and_raise(Exception)
+        doing { @message.deliver }.should_not raise_error(Exception)
+      end
+    end
+    
+    describe "delivery_handler" do
+      
+      it "should allow you to hand off performing the actual delivery to another object" do
+        delivery_handler = MyDeliveryHandler.new
+        delivery_handler.should_receive(:deliver_mail).with(@message).exactly(:once)
+        @message.delivery_handler = delivery_handler
+        @message.deliver
+      end
+
+      it "mail should be told to :deliver once and then :deliver! once by the delivery handler" do
+        @message.delivery_handler = MyDeliveryHandler.new
+        @message.should_receive(:do_delivery).exactly(:once)
+        @message.deliver
+      end
+
+      it "mail only call it's delivery_method once" do
+        @message.delivery_handler = MyDeliveryHandler.new
+        @message.should_receive(:delivery_method).exactly(:once).and_return(Mail::TestMailer.new({}))
+        @message.deliver
+      end
+
+      it "mail should not catch any exceptions when using a delivery_handler" do
+        @message.delivery_handler = MyDeliveryHandler.new
+        @message.should_receive(:delivery_method).and_raise(Exception)
+        doing { @message.deliver }.should raise_error(Exception)
+      end
+
+      it "mail should not modify the Mail.deliveries object if using a delivery_handler" do
+        @message.delivery_handler = MyDeliveryHandler.new
+        doing { @message.deliver }.should_not change(Mail::TestMailer, :deliveries)
+      end
+      
+      it "should be able to just yield and let mail do it's thing" do
+        @message.delivery_handler = MyYieldingDeliveryHandler.new
+        @message.should_receive(:do_delivery).exactly(:once)
+        @message.deliver
+      end
+      
+    end
+    
+  end
+  
+end

data/vendor/mail/spec/mail/parsers/address_lists_parser_spec.rb

@@ -0,0 +1,15 @@
+# encoding: utf-8
+require 'spec_helper'
+
+require 'treetop/compiler'
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/rfc2822_obsolete'))
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/rfc2822'))
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/address_lists'))
+
+describe "AddressListsParser" do
+  it "should parse an address" do
+    text = 'Mikel Lindsaar <test@lindsaar.net>, Friends: test2@lindsaar.net, Ada <test3@lindsaar.net>;'
+    a = Mail::AddressListsParser.new
+    a.parse(text).should_not be_nil
+  end
+end

data/vendor/mail/spec/mail/parsers/content_transfer_encoding_parser_spec.rb

@@ -0,0 +1,72 @@
+# encoding: utf-8
+require 'spec_helper'
+
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/rfc2822_obsolete'))
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/rfc2822'))
+Treetop.load(File.join(MAIL_ROOT, 'lib/mail/parsers/content_transfer_encoding'))
+
+describe "ContentTransferEncodingParser" do
+  
+  it "should work" do
+    text = "quoted-printable"
+    a = Mail::ContentTransferEncodingParser.new
+    a.parse(text).should_not be_nil
+    a.parse(text).encoding.text_value.should == 'quoted-printable'
+  end
+
+  describe "trailing semi colons" do
+
+    it "should parse" do
+      text = "quoted-printable;"
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == 'quoted-printable'
+    end
+
+    it "should parse with pre white space" do
+      text = 'quoted-printable  ;'
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == 'quoted-printable'
+    end
+
+    it "should parse with trailing white space" do
+      text = 'quoted-printable; '
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == 'quoted-printable'
+    end
+
+    it "should parse with pre and trailing white space" do
+      text = 'quoted-printable  ;  '
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == 'quoted-printable'
+    end
+  end
+  
+  describe "x-token values" do
+    it "should work" do
+      text = 'x-my-token'
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == 'x-my-token'
+    end
+  end
+  
+  describe "wild content-transfer-encoding" do
+    it "should convert 8bits to 8bit" do
+      text = '8bits'
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == '8bit'
+    end
+
+    it "should convert 7bits to 7bit" do
+      text = '7bits'
+      a = Mail::ContentTransferEncodingParser.new
+      a.parse(text).should_not be_nil
+      a.parse(text).encoding.text_value.should == '7bit'
+    end
+  end
+end

data/vendor/mail/spec/mail/part_spec.rb

@@ -0,0 +1,129 @@
+require 'spec_helper'
+
+describe Mail::Part do
+
+  it "should put content-ids into parts" do
+    part = Mail::Part.new do
+      body "This is Text"
+    end
+    part.to_s
+    part.content_id.should_not be_nil
+  end
+  
+  it "should preserve any content id that you put into it" do
+    part = Mail::Part.new do
+      content_id "<thisis@acontentid>"
+      body "This is Text"
+    end
+    part.content_id.should == "<thisis@acontentid>"
+  end
+  
+  it "should return an inline content_id" do
+    part = Mail::Part.new do
+      content_id "<thisis@acontentid>"
+      body "This is Text"
+    end
+    part.inline_content_id.should == "thisis@acontentid"
+  end
+  
+  it "should URL escape its inline content_id" do
+    part = Mail::Part.new do
+      content_id "<thi%%sis@acontentid>"
+      body "This is Text"
+    end
+    part.inline_content_id.should == "thi%25%25sis@acontentid"
+  end
+  
+  it "should add a content_id if there is none and is asked for an inline_content_id" do
+    part = Mail::Part.new
+    part.inline_content_id.should_not be_nil
+  end
+  
+  describe "parts that have a missing header" do
+    it "should not try to init a header if there is none" do
+      part =<<PARTEND
+
+The original message was received at Mon, 24 Dec 2007 10:03:47 +1100
+from 60-0-0-146.static.tttttt.com.au [60.0.0.146]
+
+This message was generated by mail12.tttttt.com.au
+
+   ----- The following addresses had permanent fatal errors -----
+<edwin@zzzzzzz.com>
+    (reason: 553 5.3.0 <edwin@zzzzzzz.com>... Unknown E-Mail Address)
+
+   ----- Transcript of session follows -----
+... while talking to mail.zzzzzz.com.:
+>>> DATA
+<<< 553 5.3.0 <edwin@zzzzzzz.com>... Unknown E-Mail Address
+550 5.1.1 <edwin@zzzzzzz.com>... User unknown
+<<< 503 5.0.0 Need RCPT (recipient)
+
+-- 
+This message has been scanned for viruses and
+dangerous content by MailScanner, and is
+believed to be clean.
+PARTEND
+      STDERR.should_not_receive(:puts)
+      Mail::Part.new(part)
+    end
+  end
+  
+  describe "delivery status reports" do
+    before(:each) do
+      part =<<ENDPART
+Content-Type: message/delivery-status
+
+Reporting-MTA: dns; mail12.rrrr.com.au
+Received-From-MTA: DNS; 60-0-0-146.static.tttttt.com.au
+Arrival-Date: Mon, 24 Dec 2007 10:03:47 +1100
+
+Final-Recipient: RFC822; edwin@zzzzzzz.com
+Action: failed
+Status: 5.3.0
+Remote-MTA: DNS; mail.zzzzzz.com
+Diagnostic-Code: SMTP; 553 5.3.0 <edwin@zzzzzzz.com>... Unknown E-Mail Address
+Last-Attempt-Date: Mon, 24 Dec 2007 10:03:53 +1100
+ENDPART
+      @delivery_report = Mail::Part.new(part)
+    end
+
+    it "should know if it is a delivery-status report" do
+      @delivery_report.should be_delivery_status_report_part
+    end
+    
+    it "should create a delivery_status_data header object" do
+      @delivery_report.delivery_status_data.should_not be_nil
+    end
+
+    it "should be bounced" do
+      @delivery_report.should be_bounced
+    end
+    
+    it "should say action 'delayed'" do
+      @delivery_report.action.should == 'failed'
+    end
+    
+    it "should give a final recipient" do
+      @delivery_report.final_recipient.should == 'RFC822; edwin@zzzzzzz.com'
+    end
+    
+    it "should give an error code" do
+      @delivery_report.error_status.should == '5.3.0'
+    end
+    
+    it "should give a diagostic code" do
+      @delivery_report.diagnostic_code.should == 'SMTP; 553 5.3.0 <edwin@zzzzzzz.com>... Unknown E-Mail Address'
+    end
+    
+    it "should give a remote-mta" do
+      @delivery_report.remote_mta.should == 'DNS; mail.zzzzzz.com'
+    end
+    
+    it "should be retryable" do
+      @delivery_report.should_not be_retryable
+    end
+
+  end
+
+end