sugoi-mail 0.1.0 → 0.1.5

data/test/unit/mailinglist_test.rb

@@ -9,6 +9,7 @@ class MailinglistTest < Test::Unit::TestCase
 
     def setup
         @ml=Mailinglist.find 1
+        @nonconfirm_ml = Mailinglist.find 5
         @addr1=Address.find 1
         @addr2=Address.find 2
     end
@@ -21,12 +22,22 @@ class MailinglistTest < Test::Unit::TestCase
         assert !@ml.confirmed_addresses.member?(addr)
     end
 
+    def test_subscribing_already_subscribed
+        test_subscribing
+        assert @ml.subscribe("brandnewuser@foo.test")
+        assert addr=Address.find_by_address("brandnewuser@foo.test")
+        assert @ml.addresses.member?(addr)
+        assert @ml.pending_addresses.member?(addr)
+        assert !@ml.confirmed_addresses.member?(addr)
+    end
+
     def test_confirming
         assert_equal [@addr1],@ml.confirmed_addresses
         assert_equal [@addr2],@ml.pending_addresses
         confirmationcode=@loaded_fixtures["confirmationcodes"] \
                                      ["confirmationcode_testuser_address2"] \
                                      ["code"]
+        assert_equal false, @ml.confirm(@addr2, "hogehoge")
         assert_nothing_raised do
             @ml.confirm(@addr2,confirmationcode)
         end
@@ -35,6 +46,80 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal [], @ml.pending_addresses
     end
 
+    def test_unsubscribing
+        test_confirming
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+        @ml.unsubscribe @addr2, false
+        assert_equal [@addr1],
+            @ml.confirmed_addresses
+    end
+
+    def test_unsubscribing_by_text_why_did_i_do_that_anyway
+        test_confirming
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+        @ml.unsubscribe @addr2.address, false
+        assert_equal [@addr1],
+            @ml.confirmed_addresses
+    end
+
+    def test_unsubscribing_send_mail
+        test_confirming
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+        @ml.unsubscribe @addr2, true
+        assert_equal [@addr1],
+            @ml.confirmed_addresses
+        assert_equal @addr2.address, Net::SMTP.to
+    end
+
+    def test_subscribing_with_confirmation_code
+        assert_equal [@addr1],@ml.confirmed_addresses
+        assert_equal [@addr2],@ml.pending_addresses
+        assert_equal false, @ml.subscribe(@addr2.address, "hogehoge")
+        confirmationcode=@loaded_fixtures["confirmationcodes"] \
+                                     ["confirmationcode_testuser_address2"] \
+                                     ["code"]
+        assert_nothing_raised do
+            @ml.subscribe(@addr2.address,confirmationcode)
+        end
+
+        assert @ml.confirmed?(@addr2)
+        assert_equal [], @ml.pending_addresses
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+    end
+
+    def test_subscribing_with_confirmation_code_after_subscription_confirmed
+        test_subscribing_with_confirmation_code
+        assert_equal [@addr1, @addr2],@ml.confirmed_addresses.
+            sort_by { |a| a.id }
+        assert_equal [],@ml.pending_addresses
+        assert_equal true, @ml.subscribe(@addr2.address, "hogehoge"), 
+            "if an address is already subscribed, further subscription " +
+            "attempts are cheerfully ignored"
+        confirmationcode=@loaded_fixtures["confirmationcodes"] \
+                                     ["confirmationcode_testuser_address2"] \
+                                     ["code"]
+        assert_nothing_raised do
+            @ml.subscribe(@addr2.address,confirmationcode)
+        end
+
+        assert @ml.confirmed?(@addr2)
+        assert_equal [], @ml.pending_addresses
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+    end
+
+
+    def test_subscribing_after_confirmation
+        test_confirming
+        assert @ml.subscribe(@addr1.address)
+        assert_equal  [ @addr1, @addr2 ], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+    end
+
     def test_confirming_by_addr_string
         confirmationcode=@loaded_fixtures["confirmationcodes"] \
                                      ["confirmationcode_testuser_address2"] \
@@ -47,6 +132,21 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal [], @ml.pending_addresses
     end
 
+    def test_subscribing_non_confirmation
+        assert @nonconfirm_ml.subscribe("brandnewuser@foo.test")
+        assert addr=Address.find_by_address("brandnewuser@foo.test")
+        assert @nonconfirm_ml.addresses.member?(addr)
+        assert @nonconfirm_ml.confirmed_addresses.member?(addr)
+    end
+
+    def test_subscribing_non_confirmation_already_there
+        test_subscribing_non_confirmation
+        assert @nonconfirm_ml.subscribe("brandnewuser@foo.test")
+        assert addr=Address.find_by_address("brandnewuser@foo.test")
+        assert @nonconfirm_ml.addresses.member?(addr)
+        assert @nonconfirm_ml.confirmed_addresses.member?(addr)
+    end
+
     def test_new_confirmation
         @ml.subscribe 'brandnewuser@foo.test'
         addr=Address.find_by_address("brandnewuser@foo.test")
@@ -69,6 +169,20 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal 3, ml.sayonara_admin_message_id
     end
 
+    def test_creating_description_too_long
+        ml=Mailinglist.new
+        ml.name='testing-new-mailing-list'
+        ml.user=User.find 1
+        ml.description="very long "*160
+        ml.mailinglist_class = MailinglistClass.find 2
+        assert_equal false, ml.save
+        assert_equal 1, ml.errors.length
+        ml.errors.each do |facil, text|
+            assert_equal "description", facil
+            assert_equal "Is too long (>160 chars)", text
+        end
+    end
+
     def test_creating_nonexistent_user
         ml=Mailinglist.new
         ml.name="testing-new-mailing-list"
@@ -96,15 +210,24 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal false, ml.canonical_address?
     end
 
-    def has_address
+    def test_has_address
         ml=Mailinglist.find 1
         assert ml.has_address?(@loaded_fixtures["addresses"]["address_1"]\
                 ["address"])
     end
 
-    def messages
+    def test_messages
+        ml=Mailinglist.find 1
+        assert_equal 5, ml.messages.count 
+    end
+
+    def test_send_message
         ml=Mailinglist.find 1
-        assert_equal 3, ml.messages_count 
+        assert_equal 5, ml.messages.count
+        mess = ml.messages[0]
+        ml.send_message mess
+        assert_equal ml.name+"-bounces@"+ml.domain.name, Net::SMTP.from
+        # assert_equal ml.expand_addresses.map { |a| a.address }, Net::SMTP.to
     end
 
     def test_expanded_addresses
@@ -123,6 +246,13 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal false, ml.has_address?("address3@foo.test")
     end
 
+    def test_nonconfirmed_ml_always_confirmed_addrs
+        ml=Mailinglist.find 5
+        addr = Address.find_or_create_by_address("nonconfirmedaddress@foo.test")
+        ml.addresses << addr
+        assert_equal true, ml.confirmed?(addr)
+    end
+
     def test_find_by_address
         ml, cmd, realaddress = Mailinglist.find_by_address("testuser-42@test.domain")
         assert_equal :proxy, cmd
@@ -143,4 +273,9 @@ class MailinglistTest < Test::Unit::TestCase
         assert_equal :request, cmd
         assert_equal 1, ml.id
     end
+
+    def test_find_by_domain_id
+        assert_equal 8, Mailinglist.find_all_by_domain_id(1).length
+        assert_equal 0, Mailinglist.find_all_by_domain_id(2).length
+    end
 end

data/test/unit/message_test.rb

@@ -43,12 +43,13 @@ class MessageTest < Test::Unit::TestCase
         assert_equal 3, siblings[0].id
     end
 
-    def test_new_message
+    def test_new_message_with_date_header
         new_message_headers = <<EOT
 From: brandnewaddress@foo.test (Brand New Address)
 Delivered-To: testuser@test.domain
 Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b54@localhost>
 To: testuser@test.domain
+Date: Sun,  4 Feb 2007 11:07:27 +0900 (JST)
 Subject: Test message
 EOT
 
@@ -61,10 +62,12 @@ EOT
                        "brandnewaddress@foo.test")
 
         assert m
+        dt=DateTime.parse "Sun,  4 Feb 2007 11:07:27 +0900 (JST)"
         assert_equal "brandnewaddress@foo.test", m.envelope_from
         assert_equal ["testuser@test.domain"], m.envelope_to
         assert m.messageid
         assert m.timestamp
+        assert_equal dt, m.timestamp
         assert m.headers
         assert m.body
         assert_equal nil, m.parent
@@ -133,6 +136,178 @@ EOT
         assert_not_equal [], headers_sorted.grep(/^Reply-To:/)
     end
 
+    def test_add_message_id
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+To: testuser@test.domain
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body,
+                       "testuser@test.domain",
+                       "brandnewaddress@foo.test")
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain"], m.envelope_to
+        assert m.messageid
+        assert_match(/\<[0-9a-f]{8}(-[0-9a-f]{4}){3}-[0-9a-f]{12}\@[a-z.0-9-]+\>$/, m.messageid)
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal nil, m.parent
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort - m.headers.split("\n").grep(/^Message-Id/)
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
+    def test_new_message
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b54@localhost>
+To: testuser@test.domain
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body,
+                       "testuser@test.domain",
+                       "brandnewaddress@foo.test")
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain"], m.envelope_to
+        assert m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal nil, m.parent
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
+
+    def test_new_message_delivered_with_different_smtp_details
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b54@localhost>
+To: testuser@test.domain
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body,
+                       "testuser@test.domain",
+                       "brandnewaddress@foo.test")
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain"], m.envelope_to
+        assert m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal nil, m.parent
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver(:smtpserver => "fred",
+                         :smtpport => 10048)
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
+
+    def test_new_message_multiple_recipients
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b54@localhost>
+To: testuser@test.domain
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body,
+                       [ "testuser@test.domain", "testuser2@test.domain" ],
+                       "brandnewaddress@foo.test")
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain", "testuser2@test.domain" ], 
+            m.envelope_to
+        assert m.messageid
+        assert_equal "<280826ee-bdad-4564-9dc4-5218b8143b54@localhost>",
+            m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal nil, m.parent
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
+    def test_new_message_guess_the_recipients
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b55@localhost>
+To: testuser@test.domain
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body)
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain" ], 
+            m.envelope_to
+        assert m.messageid
+        assert_equal "<280826ee-bdad-4564-9dc4-5218b8143b55@localhost>",
+            m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal nil, m.parent
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
     def test_plain_rewrite
         m=Message.find 7
 
@@ -148,4 +323,84 @@ EOT
                      "Date: Thu, 11 Nov 2006 19:13:00 +0900 (JST)" ] .
                      sort . join("\n"), headers_sorted
     end
+
+    def test_customtext
+        m=Message.find 8
+
+        assert_equal "testing", m.messagetext(:custom_message => "testing")
+
+        m=Message.find 7
+
+        assert_equal "testing", m.messagetext(:custom_message => "testing")
+    end
+
+    def test_new_message_with_in_reply_to
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b55@localhost>
+To: testuser@test.domain
+In-Reply-To: <testmessage-7@foo.test>
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body)
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain" ], 
+            m.envelope_to
+        assert m.messageid
+        assert_equal "<280826ee-bdad-4564-9dc4-5218b8143b55@localhost>",
+            m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal 7, m.parent_id
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
+
+    def test_new_message_with_references
+        new_message_headers = <<EOT
+From: brandnewaddress@foo.test (Brand New Address)
+Delivered-To: testuser@test.domain
+Message-Id: <280826ee-bdad-4564-9dc4-5218b8143b55@localhost>
+To: testuser@test.domain
+References: <testmessage-7@foo.test>
+Subject: Test message
+EOT
+
+        new_message_body = <<EOT
+This is a test message.
+EOT
+
+        m=Message.parse(new_message_headers+"\n"+new_message_body)
+
+        assert m
+        assert_equal "brandnewaddress@foo.test", m.envelope_from
+        assert_equal ["testuser@test.domain" ], 
+            m.envelope_to
+        assert m.messageid
+        assert_equal "<280826ee-bdad-4564-9dc4-5218b8143b55@localhost>",
+            m.messageid
+        assert m.timestamp
+        assert m.headers
+        assert m.body
+        assert_equal 7, m.parent_id
+        assert_equal new_message_headers.split("\n").sort, m.headers.split("\n").sort
+        assert_equal "\n"+new_message_body, m.body
+        assert Address.find_by_address("brandnewaddress@foo.test")
+        assert m.deliver
+        assert_equal "testuser-bounces@test.domain",Net::SMTP.from
+        assert_equal ["address1@foo.test"], Net::SMTP.to
+    end
 end

data/test/unit/proxy_link_test.rb

@@ -0,0 +1,37 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class ProxyLinkTest < Test::Unit::TestCase
+    fixtures :addresses, :domains, :proxy_links, :mailinglists
+
+    def test_verify_fixtures
+        assert_equal @loaded_fixtures["proxy_links"].length,
+            ProxyLink.count
+    end
+
+    def test_proxy_address
+        pl=ProxyLink.find(:first)
+        assert_equal "testuser-42@test.domain", pl.proxy_address
+    end
+
+    def test_real_address_valid
+        assert_equal "addressmessage1@foo.test",
+            ProxyLink.real_address("testuser-42@test.domain")
+    end
+
+    def test_real_address_random_address
+        assert_nil ProxyLink.real_address("test@test.test")
+    end
+
+    def test_real_address_random_address_with_proxy_looking_syntax
+        assert_nil ProxyLink.real_address("test-42@test.test")
+    end
+
+    def test_real_address_random_address_with_real_domain
+        assert_nil ProxyLink.real_address("randomtest-42@test.domain")
+    end
+
+    def test_real_address_real_mailinglist_list_bad_proxy_id
+        assert_nil ProxyLink.real_address("testuser-64738@test.domain")
+    end
+
+end

data/test/unit/sys_config_test.rb

@@ -38,4 +38,10 @@ class SysConfigTest < Test::Unit::TestCase
           assert_equal @testconfig["smtpserver"]["value"], param.value
       end
   end
+  
+  def test_how_did_you_manage_that
+      assert_raises ArgumentError do
+          SysConfig.__send__ "smtpserver=", "honk", "honk"
+      end
+  end
 end

data/test/unit/user_test.rb

@@ -112,6 +112,26 @@ class UserTest < Test::Unit::TestCase
         assert u.mailinglist_id
     end
 
+    def test_create_description
+        u = User.new
+        u.login       = "brandnewbob"
+        u.description = "Brand New Bob"
+        u.domain_id   = 1
+        u.password    = u.password_confirmation = "bobs_secure_password"
+
+        assert_equal "Brand New Bob", u.description
+        u.save
+        assert_equal "Brand New Bob", u.description, 
+            "different code path in #description"
+
+        u.description = "Altered Bob"
+        u.password    = u.password_confirmation = "bobs_secure_password"
+        assert u.save # hmm
+        assert_equal "Altered Bob", u.description, 
+            "different code path in #description="
+
+    end
+
     def test_sha1
         u = User.new
         u.login      = "nonexistingbob"

data/test/units.rb

@@ -1,4 +1,5 @@
 require File.dirname(__FILE__) + '/test_helper'
-Dir["unit/*.rb"].each do |file|
+
+Dir[File.join(File.dirname(__FILE__),"unit","*.rb")].each do |file|
     require file.sub(/.rb$/,'')
 end