sugoi-mail 0.0.0

data/test/unit/admin_message_test.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+require 'net-smtp-stub'
+
+class Idemhash # stub hash for render tests
+    def initialize(keys); @keys=keys end
+    def each_key; @keys.each { |k| yield k } end
+    def [](*stuff); stuff end
+    def []=(*stuff);stuff end
+end
+
+class AdminMessagesTest < Test::Unit::TestCase
+    fixtures :admin_messages, :mailinglists
+
+    def setup
+        @prerendered_test = "From: requestaddress\n"+
+                            "To: address\n"+
+                            "Subject: Test from name\n"+
+                            "\n"+
+                            "address\n"
+        @prerender_template_vals=Idemhash.new(%w/requestaddress address name/)
+    end
+
+    def test_render
+        m=AdminMessage.find(4)
+        assert_equal @loaded_fixtures["admin_messages"]["test"]["message"],
+            m.message
+        assert_equal @prerendered_test,
+            m.render(@prerender_template_vals)
+    end
+
+    def test_send
+        m=AdminMessage.find 4
+        assert m.send_mail("from", "to", @prerender_template_vals)
+        assert_equal "from", Net::SMTP.from
+        assert_equal "to", Net::SMTP.to
+        assert_equal @prerendered_test,  Net::SMTP.message
+        assert_equal "localhost", Net::SMTP.hostname
+        assert_equal 25, Net::SMTP.port
+    end
+end

data/test/unit/confirmationcode_test.rb

@@ -0,0 +1,64 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class ConfirmationcodeTest < Test::Unit::TestCase
+    fixtures :mailinglists, :addresses_mailinglists, :addresses,
+        :confirmationcodes
+
+    def test_existing
+        code1=Confirmationcode.find 1
+        assert_equal Mailinglist.find(1), code1.mailinglist
+        assert_equal Address.find(1), code1.address
+        assert_equal "7154578968941962", code1.code 
+        assert_equal true, code1.confirmed 
+    end
+
+    def test_new
+        newcode=Confirmationcode.new
+        assert newcode.code =~ /[0-9a-z]{16}/
+        assert_equal false, newcode.save
+        newcode.address_id = 1
+        newcode.mailinglist_id = 1
+        assert newcode.save
+    end
+
+    def test_changing_code
+        newcode=Confirmationcode.new
+        assert newcode.code =~ /[0-9a-z]{16}/
+        newcode.address_id = 1
+        newcode.mailinglist_id = 1
+        assert_raises TypeError, "Can't modify code string" do 
+            newcode.code = '0123456789012345'
+        end
+    end
+    
+    def test_nonexistent_mailinglist
+        newcode=Confirmationcode.new
+        newcode.address_id = 1
+        newcode.mailinglist_id = 999
+        assert_equal false, newcode.save
+    end
+
+    def test_nonexistent_address
+        newcode=Confirmationcode.new
+        newcode.address_id = 999
+        newcode.mailinglist_id = 1
+        assert_equal false, newcode.save
+    end
+
+    def test_confirm_address
+        
+        assert_equal true, Confirmationcode.confirmed?(1, 1)
+        assert_equal false, Confirmationcode.confirmed?(1, 2)
+        assert_equal nil, Confirmationcode.confirmed?(1, 999)
+
+        code=@loaded_fixtures["confirmationcodes"] \
+            ["confirmationcode_testuser_address2"]["code"]
+
+        assert_nil Confirmationcode.confirm(Mailinglist.find(1), 
+                                        Address.find(1), code)
+        assert_equal true, Confirmationcode.confirm(Mailinglist.find(1), 
+                                        Address.find(2), code)
+
+        assert_equal true, Confirmationcode.confirmed?(1, 2)
+    end
+end

data/test/unit/domain_test.rb

@@ -0,0 +1,128 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+# Set salt to 'change-me' because thats what the fixtures assume. 
+# Domain.salt = 'change-me'
+
+class DomainTest < Test::Unit::TestCase
+    fixtures :domains
+
+    def setup
+        @testdomain = Domain.find 1
+        @domains=@loaded_fixtures["domains"]
+        @domain_testdomain=@domains["testdomain"]
+    end
+
+    def test_aa_break_everything
+        @testdomain.destroy
+        assert_raise ActiveRecord::RecordNotFound do
+            Domain.find @testdomain.id
+        end
+    end
+
+    def test_find
+        domain_1 = Domain.find 1
+        assert domain_1
+
+        assert_equal @domain_testdomain["name"], domain_1.name
+        assert_equal @domain_testdomain["password"], domain_1.password
+        assert_equal @domain_testdomain["id"], domain_1.id
+    end
+
+    def test_auth_notfound
+        assert_nil    Domain.authenticate("nontest.domain", "foobar")
+    end
+
+    def test_auth
+
+        domain_1 = Domain.find 1
+        assert domain_1
+
+        domain_testdomain = Domain.authenticate "test.domain", "foobar"
+        assert domain_testdomain
+
+        assert_equal  domain_1, domain_testdomain
+    end
+
+    def test_disallowed_passwords
+
+        u = Domain.new    
+        u.name = "nonbob"
+
+        u.password = u.password_confirmation = "tiny"
+        assert !u.save     
+        assert u.errors.invalid?('password')
+
+        u.password = u.password_confirmation = "hugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehuge"
+        assert !u.save     
+        assert u.errors.invalid?('password')
+
+        u.password = u.password_confirmation = ""
+        assert !u.save    
+        assert u.errors.invalid?('password')
+
+        u.password = u.password_confirmation = "bobs_secure_password"
+        assert u.save     
+        # assert u.errors.empty?
+
+    end
+
+    def test_bad_names
+
+        u = Domain.new  
+        u.password = u.password_confirmation = "bobs_secure_password"
+
+        u.name = "x"
+        assert !u.save     
+        assert u.errors.invalid?('name')
+
+        u.name = "hugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhug"
+        assert !u.save     
+        assert u.errors.invalid?('name')
+
+        u.name = ""
+        assert !u.save
+        assert u.errors.invalid?('name')
+
+        u.name = "okbob"
+        assert u.save  
+        # assert u.errors.empty?
+
+    end
+
+    def test_collision
+        u = Domain.new
+        u.name      = "test.domain"
+        u.password   = u.password_confirmation = "bobs_secure_password"
+        assert !u.save
+    end
+
+    def test_create
+        u = Domain.new
+        u.name      = "nonexistingbob"
+        u.password   = u.password_confirmation = "bobs_secure_password"
+
+        assert u.save  
+    end
+
+    def test_sha1
+        u = Domain.new
+        u.name      = "nonexistingbob"
+        u.password = u.password_confirmation = "bobs_secure_password"
+        assert u.save
+
+        assert_equal '826005bc4b82d02a3e6097556a45083375fe556c', u.password    
+    end
+
+#     def test_change_nothing
+#         d = Domain.find_by_name "test.domain"
+#         assert_equal 'e7ce1e2e20ec9f11ce8e86c9c47ab9911c1d221e', d.password
+#         d.password = d.password_confirmation = nil
+#         result = d.save
+#         unless result == true
+#             d.errors.each do |thing, string|
+#                 puts "#{thing}: #{string}"
+#             end
+#         end
+#         assert result
+#     end
+end

data/test/unit/mailinglist_class_test.rb

@@ -0,0 +1,82 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class MailinglistClassTest < Test::Unit::TestCase
+    fixtures :mailinglist_classes, :mailinglists, :users, :domains
+
+    # Replace this with your real tests.
+    def test_truth
+        assert true
+    end
+
+    def setup
+        @ltma_class=MailinglistClass.find 1
+        @mailinglist_class=MailinglistClass.find 2
+        @distributionlist_class=MailinglistClass.find 3
+    end
+
+    def test_existence
+        assert_kind_of MailinglistClass, @ltma_class
+        assert_kind_of MailinglistClass, @mailinglist_class
+        assert_kind_of MailinglistClass, @distributionlist_class
+    end
+
+    def test_ltma_parameters
+        assert_equal "LTMA",@ltma_class.name
+        assert_equal "Lifetime Mail Address", @ltma_class.description
+        assert_equal false, @ltma_class.moderated
+        assert_equal true,  @ltma_class.public
+        assert_equal true,  @ltma_class.confirmation
+        assert_equal false, @ltma_class.joinable
+        assert_equal false, @ltma_class.closed
+        assert_equal false, @ltma_class.archived
+    end
+
+    def test_mailinglist_parameters
+        assert_equal "Mailing List",@mailinglist_class.name
+        assert_equal "A normal, unmoderated, private-posting mailing list", 
+            @mailinglist_class.description
+        assert_equal false, @mailinglist_class.moderated
+        assert_equal false, @mailinglist_class.public
+        assert_equal true,  @mailinglist_class.confirmation
+        assert_equal true,  @mailinglist_class.joinable
+        assert_equal false, @mailinglist_class.closed
+        assert_equal false, @mailinglist_class.archived
+    end
+
+    def test_distributionlist_parameters
+        assert_equal "Distribution List", @distributionlist_class.name
+        assert_equal "A private distribution list", 
+            @distributionlist_class.description
+        assert_equal false, @distributionlist_class.moderated
+        assert_equal false, @distributionlist_class.public
+        assert_equal false, @distributionlist_class.confirmation
+        assert_equal false, @distributionlist_class.joinable
+        assert_equal true,  @distributionlist_class.closed
+        assert_equal false, @distributionlist_class.archived
+    end
+
+    def test_creation
+        c=MailinglistClass.new
+        assert c
+        c.name="Test"
+        c.description="Test mailing list class"
+        c.moderated = true
+        c.public = true
+        c.confirmation = true
+        c.joinable = true
+        c.closed = true
+        c.archived = true
+        assert c.save
+        id=c.id
+        d=MailinglistClass.find id
+        assert d
+        assert d.name="Test"
+        assert d.description="Test mailing list class"
+        assert d.moderated
+        assert d.public
+        assert d.confirmation
+        assert d.joinable
+        assert d.closed
+        assert d.archived
+    end
+end

data/test/unit/mailinglist_test.rb

@@ -0,0 +1,145 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+require 'net-smtp-stub'
+
+class MailinglistTest < Test::Unit::TestCase
+    fixtures :mailinglists, :addresses_mailinglists, :addresses,
+        :confirmationcodes, :users, :admin_messages, :domains, :messages
+
+    def setup
+        @ml=Mailinglist.find 1
+        @addr1=Address.find 1
+        @addr2=Address.find 2
+    end
+
+    def 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_nothing_raised do
+            @ml.confirm(@addr2,confirmationcode)
+        end
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+        assert_equal [], @ml.pending_addresses
+    end
+
+    def test_confirming_by_addr_string
+        confirmationcode=@loaded_fixtures["confirmationcodes"] \
+                                     ["confirmationcode_testuser_address2"] \
+                                     ["code"]
+        assert_nothing_raised do
+            @ml.confirm(@addr2.address,confirmationcode)
+        end
+        assert_equal [@addr1, @addr2], 
+            @ml.confirmed_addresses.sort_by { |a| a.id }
+        assert_equal [], @ml.pending_addresses
+    end
+
+    def test_new_confirmation
+        @ml.subscribe 'brandnewuser@foo.test'
+        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)
+        assert Confirmationcode.find_by_address_id(addr.id)
+    end
+
+    def test_creating
+        ml=Mailinglist.new
+        ml.name="testing-new-mailing-list"
+        ml.user=User.find 1
+        ml.description="Testing new mailing list"
+        ml.mailinglist_class=MailinglistClass.find 2
+        assert ml.save
+
+        assert_equal 1, ml.welcome_admin_message_id
+        assert_equal 2, ml.confirmed_admin_message_id
+        assert_equal 3, ml.sayonara_admin_message_id
+    end
+
+    def test_creating_nonexistent_user
+        ml=Mailinglist.new
+        ml.name="testing-new-mailing-list"
+        ml.user_id=999
+        ml.description="Testing new mailing list"
+        ml.mailinglist_class=MailinglistClass.find 2
+        assert_equal false, ml.save
+        assert_equal [["user", "can't be blank"]], ml.errors.to_a
+    end
+
+    def test_creating_name_collision
+        ml=Mailinglist.new
+        ml.name="testml"
+        ml.user_id=1
+        ml.description="Testing new mailing list"
+        ml.mailinglist_class=MailinglistClass.find 2
+        assert_equal false, ml.save
+        assert_equal [["name", "Address already exists: testml@test.domain"]], ml.errors.to_a
+    end
+
+    def test_canonical
+        ml=Mailinglist.find 1
+        assert ml.canonical_address?
+        ml=Mailinglist.find 3
+        assert_equal false, ml.canonical_address?
+    end
+
+    def has_address
+        ml=Mailinglist.find 1
+        assert ml.has_address?(@loaded_fixtures["addresses"]["address_1"]\
+                ["address"])
+    end
+
+    def messages
+        ml=Mailinglist.find 1
+        assert_equal 3, ml.messages_count 
+    end
+
+    def test_expanded_addresses
+        ml=Mailinglist.find 4
+        addrs=ml.addresses
+        assert Mailinglist.find_by_address(addrs[0].address)
+        assert Mailinglist.find_by_address(addrs[1].address)
+        assert_equal [ Address.find_by_address("address1@foo.test"),
+                       Address.find_by_address("address2@foo.test") ],
+                     ml.expand_addresses .  sort_by { |a| a.address }
+    end
+
+    def test_has_address
+        ml=Mailinglist.find 4
+        assert_equal true, ml.has_address?("address1@foo.test")
+        assert_equal false, ml.has_address?("address3@foo.test")
+    end
+
+    def test_find_by_address
+        ml, cmd, realaddress = Mailinglist.find_by_address("testuser-42@test.domain")
+        assert_equal :proxy, cmd
+        assert_equal 1, ml.id
+        assert_equal Address.find_by_address("addressmessage1@foo.test"),
+                     realaddress
+
+        info = Mailinglist.find_by_address("testuser-10@test.domain")
+        assert_nil info
+        # assert_nil ml.id
+        # assert_equal 42, proxy.id
+
+        ml, cmd = Mailinglist.find_by_address("testuser-bounces@test.domain")
+        assert_equal :bounces, cmd
+        assert_equal 1, ml.id
+
+        ml, cmd = Mailinglist.find_by_address("testuser-request@test.domain")
+        assert_equal :request, cmd
+        assert_equal 1, ml.id
+    end
+end

data/test/unit/message_test.rb

@@ -0,0 +1,151 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'net-smtp-stub'
+
+class MessageTest < Test::Unit::TestCase
+    fixtures :mailinglists, :messages, :users, :addresses_mailinglists,
+        :addresses, :domains
+
+    def setup
+        @message_1=@loaded_fixtures["messages"]["message_1"]
+        @message_2=@loaded_fixtures["messages"]["message_2"]
+        @message_3=@loaded_fixtures["messages"]["message_3"]
+    end
+
+    def test_truth
+        assert true
+    end
+
+    def test_first_message_exists
+        m=Message.find 1
+        assert_equal m.subject, @message_1["subject"]
+        assert_equal m.messageid, @message_1["messageid"]
+        assert_equal m.headers, @message_1["headers"]
+        assert_equal m.body, @message_1["body"]
+        assert_equal m.timestamp, @message_1["timestamp"]
+    end
+
+    def test_first_message_children
+        m=Message.find 1
+        child1, child2 = m.responses.sort_by { |mess| mess.id }
+        assert_kind_of Message, child1
+        assert_kind_of Message, child2
+
+        assert_equal 2, child1.id
+        assert_equal 3, child2.id
+    end
+
+    def test_second_message_parent
+        m=Message.find 2
+
+        assert_equal 1, m.parent.id
+        siblings=m.siblings
+        assert_equal 1, siblings.length
+        assert_equal 3, siblings[0].id
+    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_rewrite_message
+        m=Message.find 4
+        assert_equal "To: root@test.domain\nFrom: testuser@test.domain\nSubject: Test with rewriting\nDate: Thu, 26 Oct 2006 18:35:00 +0900 (JST)\nMessage-Id: <testmessage-3@foo.test>\n\n\nThis one gets rewritten\n".split(/\n\n+/)[0].split(/\n/).sort.join("\n"), m.send(:proxify_addresses).split(/\n\n+/)[0].split(/\n/).sort.join("\n")
+        m.deliver
+        assert_equal "testuser-bounces@test.domain", Net::SMTP.from
+        assert_equal [ "address1@foo.test" ], Net::SMTP.to
+    end
+
+    def test_rewrite_virtual_mailing_list
+        m=Message.find 5
+        
+        # step by step, simplify debugging
+        proxified=m.send(:proxify_addresses)
+        proxified_headers = proxified.split(/\n\n+/)[0]
+        headers_array = proxified_headers.split(/\n/).sort
+        headers_sorted=headers_array.join("\n")
+
+        assert_equal "To: virtml@test.domain\nFrom: =?UTF-8?B?VmlydHVhbCBVc2Vy?= <virtuser@test.domain>\nSubject: Test with rewriting\nDate: Thu, 11 Nov 2006 19:13:00 +0900 (JST)\nMessage-Id: <testmessage-4@foo.test>\n\n\nThis one gets rewritten to have a To line of virtuser, right?\n".split(/\n\n+/)[0].split(/\n/).sort.join("\n"), 
+            headers_sorted
+        assert m.deliver
+        assert_equal "virtml-bounces@test.domain",Net::SMTP.from
+        assert_equal [], Net::SMTP.to
+        # puts Net::SMTP.message
+    end
+
+    def test_rewrite_virtual_mailing_list_without_a_description
+        m=Message.find 8
+
+        # puts m.to_s
+        
+        # step by step, simplify debugging
+        proxified=m.send(:proxify_addresses)
+        # puts m.to_s
+        proxified_headers = proxified.split(/\n\n+/)[0]
+        headers_array = proxified_headers.split(/\n/).sort
+        headers_sorted=headers_array.join("\n")
+
+        assert_equal "To: nodescml@test.domain\nFrom: nodesc@test.domain\nSubject: Test with rewriting\nDate: Thu, 11 Nov 2006 19:13:00 +0900 (JST)\nMessage-Id: <testmessage-8@foo.test>\n\n\nThis one gets rewritten to have a To line of nodesc, right?\n".split(/\n\n+/)[0].split(/\n/).sort.join("\n"), 
+            headers_sorted
+        assert m.deliver
+        assert_equal "nodescml-bounces@test.domain",Net::SMTP.from
+        assert_equal [], Net::SMTP.to
+        # puts Net::SMTP.message
+    end
+
+
+    def test_add_replyto_on_external_message
+        m=Message.find 6
+
+        proxified = m.send :proxify_addresses
+        # puts proxified
+        proxified_headers = proxified.split(/\n\n+/)[0]
+        headers_array = proxified_headers.split(/\n/).sort
+        headers_sorted=headers_array.join("\n")
+        assert_not_equal [], headers_sorted.grep(/^Reply-To:/)
+    end
+
+    def test_plain_rewrite
+        m=Message.find 7
+
+        proxified = m.send :proxify_addresses
+        # puts proxified
+        proxified_headers = proxified.split(/\n\n+/)[0]
+        headers_array = proxified_headers.split(/\n/).sort
+        headers_sorted=headers_array.join("\n")
+        assert_equal ["Message-Id: <testmessage-7@foo.test>",
+                     "Subject: Test for plain rewrite",
+                     "From: testuser@test.domain",
+                     "To: plainrewrite@foo.test",
+                     "Date: Thu, 11 Nov 2006 19:13:00 +0900 (JST)" ] .
+                     sort . join("\n"), headers_sorted
+    end
+end