rack-mail_exception 0.0.1

data/vendor/mail/spec/mail/fields/date_field_spec.rb

@@ -0,0 +1,73 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe Mail::DateField do
+  #    The origination date field consists of the field name "Date" followed
+  #    by a date-time specification.
+  # 
+  # orig-date       =       "Date:" date-time CRLF
+  # 
+  #    The origination date specifies the date and time at which the creator
+  #    of the message indicated that the message was complete and ready to
+  #    enter the mail delivery system.  For instance, this might be the time
+  #    that a user pushes the "send" or "submit" button in an application
+  #    program.  In any case, it is specifically not intended to convey the
+  #    time that the message is actually transported, but rather the time at
+  #    which the human or other creator of the message has put the message
+  #    into its final form, ready for transport.  (For example, a portable
+  #    computer user who is not connected to a network might queue a message
+  #    for delivery.  The origination date is intended to contain the date
+  #    and time that the user queued the message, not the time when the user
+  #    connected to the network to send the message.)
+
+  describe "initialization" do
+
+    it "should initialize" do
+      doing { Mail::DateField.new("12 Aug 2009 00:00:02 GMT") }.should_not raise_error
+    end
+
+    it "should be able to tell the time" do
+      Mail::DateField.new("12 Aug 2009 00:00:02 GMT").date_time.class.should == DateTime
+    end
+
+    it "should mix in the CommonAddress module" do
+      Mail::DateField.included_modules.should include(Mail::CommonDate) 
+    end
+
+    it "should accept a string with the field name" do
+      t = Mail::DateField.new('Date: 12 Aug 2009 00:00:02 GMT')
+      t.name.should == 'Date'
+      t.value.should == 'Wed, 12 Aug 2009 00:00:02 +0000'
+      t.date_time.should == ::DateTime.parse('12 Aug 2009 00:00:02 GMT')
+    end
+
+    it "should accept a string without the field name" do
+      t = Mail::DateField.new('12 Aug 2009 00:00:02 GMT')
+      t.name.should == 'Date'
+      t.value.should == 'Wed, 12 Aug 2009 00:00:02 +0000'
+      t.date_time.should == ::DateTime.parse('12 Aug 2009 00:00:02 GMT')
+    end
+    
+    it "should accept nil as a value" do
+      t = Mail::DateField.new(nil)
+      t.date_time.should_not be_nil
+    end
+    
+    it "should allow us to encode an date field" do
+      field = Mail::DateField.new('12 Aug 2009 00:00:02 GMT')
+      field.encoded.should == "Date: Wed, 12 Aug 2009 00:00:02 +0000\r\n"
+    end
+    
+    it "should allow us to decode an address field" do
+      field = Mail::DateField.new('12 Aug 2009 00:00:02 GMT')
+      field.decoded.should == "Wed, 12 Aug 2009 00:00:02 +0000"
+    end
+
+    it "should be able to parse a really bad spacing example" do
+      field = Mail::DateField.new("Fri, 21 Nov 1997 09(comment):   55  :  06 -0600")
+      field.decoded.should == "Fri, 21 Nov 1997 09:55:06 -0600"
+    end
+    
+  end
+
+end

data/vendor/mail/spec/mail/fields/envelope_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+
+describe Mail::Envelope do
+  # From RFC4155 The application/mbox Media Type
+  #
+  #   o Each message in the mbox database MUST be immediately preceded
+  #     by a single separator line, which MUST conform to the following
+  #     syntax:
+  #
+  #        The exact character sequence of "From";
+  #
+  #        a single Space character (0x20);
+  #
+  #        the email address of the message sender (as obtained from the
+  #        message envelope or other authoritative source), conformant
+  #        with the "addr-spec" syntax from RFC 2822;
+  #
+  #        a single Space character;
+  #
+  #        a timestamp indicating the UTC date and time when the message
+  #        was originally received, conformant with the syntax of the
+  #        traditional UNIX 'ctime' output sans timezone (note that the
+  #        use of UTC precludes the need for a timezone indicator);
+  #
+  #        an end-of-line marker.
+
+  it "should initialize" do
+    doing { Mail::Envelope.new('mikel@test.lindsaar.net Mon May  2 16:07:05 2005') }.should_not raise_error
+  end
+
+  it "should return the envelope from element tree" do
+    envelope = Mail::Envelope.new('mikel@test.lindsaar.net Mon May  2 16:07:05 2005')
+    envelope.tree.class.should == Treetop::Runtime::SyntaxNode
+  end
+
+  describe "accessor methods" do
+    it "should return the address" do
+      envelope = Mail::Envelope.new("mikel@test.lindsaar.net Mon Aug 17 00:39:21 2009")
+      envelope.from.should == "mikel@test.lindsaar.net"
+    end
+
+    it "should return the date_time" do
+      envelope = Mail::Envelope.new("mikel@test.lindsaar.net Mon Aug 17 00:39:21 2009")
+      envelope.date.should == ::DateTime.parse("Mon Aug 17 00:39:21 2009")
+    end
+  end
+
+end

data/vendor/mail/spec/mail/fields/from_field_spec.rb

@@ -0,0 +1,89 @@
+# encoding: utf-8
+require 'spec_helper'
+
+# 
+# from            =       "From:" mailbox-list CRLF
+
+describe Mail::FromField do
+  
+  describe "initialization" do
+
+    it "should initialize" do
+      doing { Mail::FromField.new("From", "Mikel") }.should_not raise_error
+    end
+
+    it "should mix in the CommonAddress module" do
+      Mail::FromField.included_modules.should include(Mail::CommonAddress) 
+    end
+
+    it "should accept a string with the field name" do
+      t = Mail::FromField.new('From: Mikel Lindsaar <mikel@test.lindsaar.net>, "Bob Smith" <bob@me.com>')
+      t.name.should == 'From'
+      t.value.should == 'Mikel Lindsaar <mikel@test.lindsaar.net>, "Bob Smith" <bob@me.com>'
+    end
+
+    it "should accept a string without the field name" do
+      t = Mail::FromField.new('Mikel Lindsaar <mikel@test.lindsaar.net>, "Bob Smith" <bob@me.com>')
+      t.name.should == 'From'
+      t.value.should == 'Mikel Lindsaar <mikel@test.lindsaar.net>, "Bob Smith" <bob@me.com>'
+    end
+
+  end
+  
+  # Actual testing of CommonAddress methods oFromurs in the address field spec file
+
+  describe "instance methods" do
+    it "should return an address" do
+      t = Mail::FromField.new('Mikel Lindsaar <mikel@test.lindsaar.net>')
+      t.formatted.should == ['Mikel Lindsaar <mikel@test.lindsaar.net>']
+    end
+
+    it "should return two addresses" do
+      t = Mail::FromField.new('Mikel Lindsaar <mikel@test.lindsaar.net>, Ada Lindsaar <ada@test.lindsaar.net>')
+      t.formatted.first.should == 'Mikel Lindsaar <mikel@test.lindsaar.net>'
+      t.addresses.last.should == 'ada@test.lindsaar.net'
+    end
+
+    it "should return one address and a group" do
+      t = Mail::FromField.new('sam@me.com, my_group: mikel@me.com, bob@you.com;')
+      t.addresses[0].should == 'sam@me.com'
+      t.addresses[1].should == 'mikel@me.com'
+      t.addresses[2].should == 'bob@you.com'
+    end
+    
+    it "should return the formatted line on to_s" do
+      t = Mail::FromField.new('sam@me.com, my_group: mikel@me.com, bob@you.com;')
+      t.value.should == 'sam@me.com, my_group: mikel@me.com, bob@you.com;'
+    end
+    
+    it "should return the encoded line" do
+      t = Mail::FromField.new('sam@me.com, my_group: mikel@me.com, bob@you.com;')
+      t.encoded.should == "From: sam@me.com, \r\n\tmy_group: mikel@me.com, \r\n\tbob@you.com;\r\n"
+    end
+    
+    it "should return the encoded line" do
+      t = Mail::FromField.new("bob@me.com")
+      t.encoded.should == "From: bob@me.com\r\n"
+    end
+    
+    it "should return the decoded line" do
+      t = Mail::FromField.new('sam@me.com, my_group: mikel@me.com, bob@you.com;')
+      t.decoded.should == "sam@me.com, my_group: mikel@me.com, bob@you.com;"
+    end
+    
+  end
+  
+  it "should handle non ascii" do
+    t = Mail::FromField.new('"Foo áëô îü" <extended@example.net>')
+    t.decoded.should == '"Foo áëô îü" <extended@example.net>'
+    t.encoded.should == "From: =?UTF-8?B?Rm9vIMOhw6vDtCDDrsO8?= <extended@example.net>\r\n"
+  end
+  
+  
+  it "should work without quotes" do
+    t = Mail::FromField.new('Foo áëô îü <extended@example.net>')
+    t.encoded.should == "From: Foo =?UTF-8?B?w6HDq8O0?= =?UTF-8?B?IMOuw7w=?= <extended@example.net>\r\n"
+    t.decoded.should == '"Foo áëô îü" <extended@example.net>'
+  end
+
+end

data/vendor/mail/spec/mail/fields/in_reply_to_field_spec.rb

@@ -0,0 +1,62 @@
+# encoding: utf-8
+require 'spec_helper'
+# 
+#    The "In-Reply-To:" field will contain the contents of the "Message-
+#    ID:" field of the message to which this one is a reply (the "parent
+#    message").  If there is more than one parent message, then the "In-
+#    Reply-To:" field will contain the contents of all of the parents'
+#    "Message-ID:" fields.  If there is no "Message-ID:" field in any of
+#    the parent messages, then the new message will have no "In-Reply-To:"
+#    field.
+
+describe Mail::InReplyToField do
+
+  describe "initialization" do
+    it "should initialize" do
+      doing { Mail::InReplyToField.new("<1234@test.lindsaar.net>") }.should_not raise_error
+    end
+
+    it "should accept a string with the field name" do
+      t = Mail::InReplyToField.new('In-Reply-To: <1234@test.lindsaar.net>')
+      t.name.should == 'In-Reply-To'
+      t.value.should == '<1234@test.lindsaar.net>'
+      t.message_id.should == '1234@test.lindsaar.net'
+    end
+
+    it "should accept a string without the field name" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net>')
+      t.name.should == 'In-Reply-To'
+      t.value.should == '<1234@test.lindsaar.net>'
+      t.message_id.should == '1234@test.lindsaar.net'
+    end
+    
+    it "should provide encoded" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net>')
+      t.encoded.should == "In-Reply-To: <1234@test.lindsaar.net>\r\n"
+    end
+    
+    it "should handle many encoded message IDs" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net> <4567@test.lindsaar.net>')
+      t.encoded.should == "In-Reply-To: <1234@test.lindsaar.net>, <4567@test.lindsaar.net>\r\n"
+    end
+
+    it "should provide decoded" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net>')
+      t.decoded.should == "<1234@test.lindsaar.net>"
+    end
+    
+    it "should handle many decoded message IDs" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net> <4567@test.lindsaar.net>')
+      t.decoded.should == '<1234@test.lindsaar.net>, <4567@test.lindsaar.net>'
+    end
+    
+  end
+
+  describe "handlign multiple message ids" do
+    it "should handle many message IDs" do
+      t = Mail::InReplyToField.new('<1234@test.lindsaar.net> <4567@test.lindsaar.net>')
+      t.name.should == 'In-Reply-To'
+      t.message_ids.should == ['1234@test.lindsaar.net', '4567@test.lindsaar.net']
+    end
+  end
+end

data/vendor/mail/spec/mail/fields/keywords_field_spec.rb

@@ -0,0 +1,66 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe Mail::KeywordsField do
+
+  describe "initializing" do
+    
+    it "should initialize" do
+      doing { Mail::KeywordsField.new("this, is, email") }.should_not raise_error
+    end
+    
+    it "should accept a string with the field name" do
+      k = Mail::KeywordsField.new('Keywords: these are keywords, so there')
+      k.name.should == 'Keywords'
+      k.value.should == 'these are keywords, so there'
+    end
+    
+    it "should accept a string with the field name" do
+      k = Mail::KeywordsField.new('these are keywords, so there')
+      k.name.should == 'Keywords'
+      k.value.should == 'these are keywords, so there'
+    end
+    
+  end
+  
+  describe "giving a list of keywords" do
+    it "should return a list of keywords" do
+      k = Mail::KeywordsField.new('these are keywords, so there')
+      k.keywords.should == ['these are keywords', 'so there']
+    end
+    
+    it "should handle phrases" do
+      k = Mail::KeywordsField.new('"these, are keywords", so there')
+      k.keywords.should == ['these, are keywords', 'so there']
+    end
+    
+    it "should handle comments" do
+      k = Mail::KeywordsField.new('"these, are keywords", so there (This is an irrelevant comment)')
+      k.keywords.should == ['these, are keywords', 'so there (This is an irrelevant comment)']
+    end
+    
+    it "should handle comments" do
+      k = Mail::KeywordsField.new('"these, are keywords", so there (This is an irrelevant comment)')
+      k.keywords.should == ['these, are keywords', 'so there (This is an irrelevant comment)']
+    end
+    
+    it "should handle comments in quotes" do
+      k = Mail::KeywordsField.new('"these, are keywords (another comment to be ignored)", so there (This is an irrelevant comment)')
+      k.keywords.should == ['these, are keywords (another comment to be ignored)', 'so there (This is an irrelevant comment)']
+    end
+    
+  end
+  
+  describe "encoding and decoding" do
+    it "should encode" do
+      k = Mail::KeywordsField.new('these are keywords, so there')
+      k.encoded.should == "Keywords: these are keywords, so there\r\n"
+    end
+
+    it "should decode" do
+      k = Mail::KeywordsField.new('these are keywords, so there')
+      k.decoded.should == "these are keywords, so there"
+    end
+  end
+  
+end

data/vendor/mail/spec/mail/fields/message_id_field_spec.rb

@@ -0,0 +1,147 @@
+# encoding: utf-8
+require 'spec_helper'
+# 3.6.4. Identification fields
+#  
+#   Though optional, every message SHOULD have a "Message-ID:" field.
+#   Furthermore, reply messages SHOULD have "In-Reply-To:" and
+#   "References:" fields as appropriate, as described below.
+#   
+#   The "Message-ID:" field contains a single unique message identifier.
+#   The "References:" and "In-Reply-To:" field each contain one or more
+#   unique message identifiers, optionally separated by CFWS.
+#   
+#   The message identifier (msg-id) is similar in syntax to an angle-addr
+#   construct without the internal CFWS.
+#  
+#  message-id      =       "Message-ID:" msg-id CRLF
+#  
+#  in-reply-to     =       "In-Reply-To:" 1*msg-id CRLF
+#  
+#  references      =       "References:" 1*msg-id CRLF
+#  
+#  msg-id          =       [CFWS] "<" id-left "@" id-right ">" [CFWS]
+#  
+#  id-left         =       dot-atom-text / no-fold-quote / obs-id-left
+#  
+#  id-right        =       dot-atom-text / no-fold-literal / obs-id-right
+#  
+#  no-fold-quote   =       DQUOTE *(qtext / quoted-pair) DQUOTE
+#  
+#  no-fold-literal =       "[" *(dtext / quoted-pair) "]"
+#  
+#    The "Message-ID:" field provides a unique message identifier that
+#    refers to a particular version of a particular message.  The
+#    uniqueness of the message identifier is guaranteed by the host that
+#    generates it (see below).  This message identifier is intended to be
+#    machine readable and not necessarily meaningful to humans.  A message
+#    identifier pertains to exactly one instantiation of a particular
+#    message; subsequent revisions to the message each receive new message
+#    identifiers.
+#     
+#    Note: There are many instances when messages are "changed", but those
+#    changes do not constitute a new instantiation of that message, and
+#    therefore the message would not get a new message identifier.  For
+#    example, when messages are introduced into the transport system, they
+#    are often prepended with additional header fields such as trace
+#    fields (described in section 3.6.7) and resent fields (described in
+#    section 3.6.6).  The addition of such header fields does not change
+#    the identity of the message and therefore the original "Message-ID:"
+#    field is retained.  In all cases, it is the meaning that the sender
+#    of the message wishes to convey (i.e., whether this is the same
+#    message or a different message) that determines whether or not the
+#    "Message-ID:" field changes, not any particular syntactic difference
+#    that appears (or does not appear) in the message.
+
+describe Mail::MessageIdField do
+
+  describe "initialization" do
+
+    it "should initialize" do
+      doing { Mail::MessageIdField.new("<1234@test.lindsaar.net>") }.should_not raise_error
+    end
+
+    it "should accept a string with the field name" do
+      m = Mail::MessageIdField.new('Message-ID: <1234@test.lindsaar.net>')
+      m.name.should == 'Message-ID'
+      m.value.should == '<1234@test.lindsaar.net>'
+      m.message_id.should == '1234@test.lindsaar.net'
+    end
+
+    it "should accept a string without the field name" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.name.should == 'Message-ID'
+      m.value.should == '<1234@test.lindsaar.net>'
+      m.message_id.should == '1234@test.lindsaar.net'
+    end
+
+    it "should accept a nil value and generate a message_id" do
+      m = Mail::MessageIdField.new(nil)
+      m.name.should == 'Message-ID'
+      m.value.should_not be_nil
+    end
+
+  end
+  
+  describe "ensuring only one message ID" do
+
+    it "should not accept a string with multiple message IDs but only return the first" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net> <4567@test.lindsaar.net>')
+      m.name.should == 'Message-ID'
+      m.to_s.should == '<1234@test.lindsaar.net>'
+      m.message_id.should == '1234@test.lindsaar.net'
+      m.message_ids.should == ['1234@test.lindsaar.net']
+    end
+
+    it "should change the message id if given a new message id" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.to_s.should == '<1234@test.lindsaar.net>'
+      m.value = '<4567@test.lindsaar.net>'
+      m.to_s.should == '<4567@test.lindsaar.net>'
+    end
+
+  end
+
+  describe "instance methods" do
+    it "should provide to_s" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.to_s.should == '<1234@test.lindsaar.net>'
+      m.message_id.to_s.should == '1234@test.lindsaar.net'
+    end
+
+    it "should provide encoded" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.encoded.should == "Message-ID: <1234@test.lindsaar.net>\r\n"
+    end
+
+    it "should provide decoded" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.decoded.should == "<1234@test.lindsaar.net>"
+    end
+    
+    it "should respond to :responsible_for?" do
+      m = Mail::MessageIdField.new('<1234@test.lindsaar.net>')
+      m.should respond_to(:responsible_for?)
+    end
+  end
+
+  describe "generating a message id" do
+    it "should generate a message ID if it has no value" do
+      m = Mail::MessageIdField.new
+      m.message_id.should_not be_blank
+    end
+    
+    it "should generate a random message ID" do
+      m = Mail::MessageIdField.new
+      1.upto(100) do
+        m.message_id.should_not == Mail::MessageIdField.new.message_id
+      end
+    end
+  end
+  
+  describe "weird message IDs" do
+    it "should be able to parse <000701c874a6$3df7eaf0$b9e7c0d0$@geille@fiscon.com>" do
+      m = Mail::MessageIdField.new('<000701c874a6$3df7eaf0$b9e7c0d0$@geille@fiscon.com>')
+      m.message_id.should == '000701c874a6$3df7eaf0$b9e7c0d0$@geille@fiscon.com'
+    end
+  end
+end