mlist 0.1.9

data/spec/models/message_spec.rb

@@ -0,0 +1,109 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe MList::Message do
+  include MList::Util::EmailHelpers
+  
+  before do
+    @tmail = tmail_fixture('single_list')
+    @email = MList::Email.new(:tmail => @tmail)
+    @message = MList::Message.new(:email => @email)
+  end
+  
+  it 'should capture the mailer header' do
+    @message.mailer.should == 'Apple Mail (2.929.2)'
+  end
+  
+  it 'should capture the subject' do
+    @message.subject.should == 'Test'
+  end
+  
+  it 'should not modify the original email' do
+    mock(@email)
+    @message.subject = 'modified'
+    @message.mailer = 'modified'
+    @message.identifier = 'modified'
+  end
+  
+  it 'should answer a subject suitable for replies' do
+    @message.subject = '[List Label] The new Chrome Browser from Google'
+    @message.subject_for_reply.should == 'Re: [List Label] The new Chrome Browser from Google'
+    
+    @message.subject = 'Re: [List Label] The new Chrome Browser from Google'
+    @message.subject_for_reply.should == 'Re: [List Label] The new Chrome Browser from Google'
+  end
+  
+  it 'should save the associated email' do
+    @message.save!
+    @message = MList::Message.find(@message.id)
+    @message.email.source.should == email_fixture('single_list')
+  end
+  
+  it 'should delete the email when message destroyed' do
+    @message.save!
+    @message.destroy
+    MList::Email.exists?(@email).should be_false
+  end
+  
+  it 'should not delete the email if other messages reference it' do
+    @message.save!
+    MList::Message.create!(:mail_list_id => 234234, :email => @email)
+    @message.destroy
+    MList::Email.exists?(@email).should be_true
+  end
+end
+
+describe MList::Message, 'text' do
+  def message_from_tmail(path)
+    tmail = tmail_fixture(path)
+    email = MList::Email.new(:tmail => tmail)
+    MList::Message.new(:email => email)
+  end
+  
+  it 'should work with text/plain' do
+    message_from_tmail('content_types/text_plain').text.should == 'Hello there'
+  end
+  
+  it 'should work with multipart/alternative, simple' do
+    message_from_tmail('content_types/multipart_alternative_simple').text.should ==
+      "This is just a simple test.\n\nThis line should be bold.\n\nThis line should be italic."
+  end
+  
+  it 'should work with mutltipart/mixed, outlook' do
+    message_from_tmail('content_types/multipart_mixed_outlook').text.should ==
+      "This is a simple test."
+  end
+  
+  it 'should work with multipart/related, no text part' do
+    message_from_tmail('content_types/multipart_related_no_text_plain').text.should == %(I don't really have much to say, so I'm going to share some random things I saw today:
+
+I saw this guy on twitter.com, and he looks pretty chill:
+
+I found this sweet url, and it's not dirty!: 
+
+I found out that if I call our Skype phone from Skype on my laptop, my laptop will give me the ability to answer the call I am placing. Freaky!
+
+Here is what my rating star widget looks like:
+
+What's with the dashes and tildes?
+
+Yeah, what is going on with that. They don't even match.
+-~----~~----~----~----~----~---~~-~----~------~--~-~-
+vs
+--~--~---~~----~--~----~-----~~~----~---~---~--~-~--~
+
+
+Good job with this!
+
+-Steve)
+  end
+  
+  it 'should answer text suitable for reply' do
+    message_from_tmail('content_types/text_plain').text_for_reply.should ==
+      email_fixture('content_types/text_plain_reply.txt')
+  end
+  
+  it 'should answer html suitable for reply' do
+    message_from_tmail('content_types/text_plain').html_for_reply.should ==
+      email_fixture('content_types/text_plain_reply.html')
+  end
+end

data/spec/models/thread_spec.rb

@@ -0,0 +1,83 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe MList::Thread do
+  before do
+    @messages = (1..3).map {|i| m = MList::Message.new; stub(m).subject {i.to_s}; m}
+    @thread = MList::Thread.new
+    stub(@thread).messages {@messages}
+  end
+  
+  it 'should answer subject by way of the first message' do
+    @thread.subject.should == '1'
+  end
+  
+  it 'should have messages counted' do
+    MList::Message.reflect_on_association(:thread).counter_cache_column.should == :messages_count
+    MList::Thread.column_names.should include('messages_count')
+  end
+end
+
+describe MList::Thread, 'tree' do
+  before do
+    @messages = (1..5).map {|i| m = MList::Message.new; m.id = i; m}
+    @messages[1].parent_id = @messages[0].id
+    @messages[2].parent_id = @messages[1].id
+    @messages[3].parent_id = @messages[0].id
+    @messages[4].parent_id = @messages[3].id
+    
+    @thread = MList::Thread.new
+    stub(@thread).messages {@messages}
+    
+    @tree = @thread.tree
+  end
+  
+  it 'should answer the first message as the root of the tree' do
+    @tree.should == @messages[0]
+  end
+  
+  it 'should connect the nodes into a tree' do
+    @tree.children.should == [@messages[1], @messages[3]]
+  end
+  
+  it 'should connect next and previous to each node' do
+    @tree.previous.should be_nil
+    @tree.next.should == @messages[1]
+    @tree.next.previous.should == @messages[0]
+    @tree.next.next.should == @messages[2]
+    @tree.next.next.next.should == @messages[3]
+  end
+  
+  it 'should know if a message is the root' do
+    @tree.root?.should be_true
+    @tree.next.root?.should be_false
+  end
+  
+  it 'should know if a message is a leaf' do
+    @tree.leaf?.should be_false
+    @tree.next.leaf?.should be_false
+    @tree.next.next.leaf?.should be_true
+  end
+  
+  it 'should answer when a message is last in the thread' do
+    @thread.first?(@messages[0]).should be_true
+    @thread.first?(@messages[1]).should be_false
+    @thread.first?(@messages[2]).should be_false
+  end
+  
+  it 'should answer when a message is last in the thread' do
+    @thread.last?(@messages[0]).should be_false
+    @thread.last?(@messages[1]).should be_false
+    @thread.last?(@messages[4]).should be_true
+  end
+  
+  it 'should answer the message next to given' do
+    @thread.next(@messages[0]).should == @messages[1]
+    @thread.next(@messages[2]).should == @messages[3]
+    @thread.next(@messages[4]).should be_nil
+  end
+  
+  it 'should answer the message previous to given' do
+    @thread.previous(@messages[0]).should be_nil
+    @thread.previous(@messages[2]).should == @messages[1]
+  end
+end

data/spec/models/util/email_helpers_spec.rb

@@ -0,0 +1,47 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe MList::Util::EmailHelpers do
+  include MList::Util::EmailHelpers
+  
+  %w(nothing_special ascii_art reply_quoting reply_quoting_deeper bullets bullets_leading_space).each do |text_source_name|
+    specify "text_to_html should convert #{text_source_name}" do
+      source_text = text_fixture(text_source_name)
+      expected_text = text_fixture("#{text_source_name}.html")
+      text_to_html(source_text).should == expected_text
+    end
+  end
+  
+  specify 'text_to_quoted should prepend >' do
+    text_to_quoted(text_fixture('nothing_special')).should == text_fixture('nothing_special_quoted')
+  end
+  
+  describe 'remove_regard' do
+    it 'should remove regardless of case' do
+      remove_regard('Re: [Label] Subject').should == '[Label] Subject'
+      remove_regard('RE: [Label] Subject').should == '[Label] Subject'
+    end
+    
+    it 'should not bother [] labels when multiple re:' do
+      remove_regard('Re: [Label] Re: Subject').should == '[Label] Subject'
+    end
+    
+    it 'should remove multiple re:' do
+      remove_regard('Re: Re: Test').should == 'Test'
+      remove_regard('Re:  Re: Subject').should == 'Subject'
+    end
+  end
+  
+  describe 'html_to_text' do
+    it 'should handle real life example' do
+      html_to_text(html_fixture('real_life')).should == html_fixture('real_life.txt')
+    end
+    
+    it 'should handle lists' do
+      html_to_text('<p>Fruits</p>  <ul><li>Apples</li><li>Oranges</li><li>Bananas</li></ul>').should == %{Fruits\n\n * Apples\n\n * Oranges\n\n * Bananas}
+    end
+    
+    it 'should handle lots of non-breaking space' do
+      html_to_text(html_fixture('nbsp')).should == html_fixture('nbsp.txt')
+    end
+  end
+end

data/spec/models/util/header_sanitizer_spec.rb

@@ -0,0 +1,19 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe MList::Util::HeaderSanitizerHash do
+  before do
+    @sanitizer = MList::Util::HeaderSanitizerHash.new
+  end
+  
+  %w(to cc bcc from reply-to).each do |header|
+    it %Q{should escape " and \\ in address phrase for #{header}} do
+      @sanitizer[header].call('UTF-8', '"Johnny " Dangerously \" <johnny@nomail.net>').should == ['"Johnny \" Dangerously \\\\" <johnny@nomail.net>']
+    end
+  end
+  
+  %w(sender errors-to).each do |header|
+    it %Q{should escape " in address phrase for #{header}} do
+      @sanitizer[header].call('UTF-8', '"Johnny " Dangerously \" <johnny@nomail.net>').should == '"Johnny \" Dangerously \\\\" <johnny@nomail.net>'
+    end
+  end
+end

data/spec/models/util/quoting_spec.rb

@@ -0,0 +1,96 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'tempfile'
+
+describe MList::Util::Quoting do
+  # Move some tests from TMAIL here
+  it 'should unquote quoted printable' do
+    a ="=?ISO-8859-1?Q?[166417]_Bekr=E6ftelse_fra_Rejsefeber?="
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'utf-8')
+    b.should == "[166417] Bekr\303\246ftelse fra Rejsefeber"
+  end
+
+  it 'should unquote base64' do
+    a ="=?ISO-8859-1?B?WzE2NjQxN10gQmVrcuZmdGVsc2UgZnJhIFJlanNlZmViZXI=?="
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'utf-8')
+    b.should == "[166417] Bekr\303\246ftelse fra Rejsefeber"
+  end
+
+  it 'should unquote without charset' do
+    a ="[166417]_Bekr=E6ftelse_fra_Rejsefeber"
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'utf-8')
+    b.should == "[166417]_Bekr=E6ftelse_fra_Rejsefeber"
+  end
+
+  it 'should unqoute multiple' do
+    a ="=?utf-8?q?Re=3A_=5B12=5D_=23137=3A_Inkonsistente_verwendung_von_=22Hin?==?utf-8?b?enVmw7xnZW4i?="
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'utf-8')
+    b.should == "Re: [12] #137: Inkonsistente verwendung von \"Hinzuf\303\274gen\""
+  end
+
+  it 'should unqoute in the middle' do
+    a ="Re: Photos =?ISO-8859-1?Q?Brosch=FCre_Rand?="
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'utf-8')
+    b.should == "Re: Photos Brosch\303\274re Rand"
+  end
+
+  it 'should unqoute iso' do
+    a ="=?ISO-8859-1?Q?Brosch=FCre_Rand?="
+    b = TMail::Unquoter.unquote_and_convert_to(a, 'iso-8859-1')
+    expected = "Brosch\374re Rand"
+    expected.force_encoding 'iso-8859-1' if expected.respond_to?(:force_encoding)
+    b.should == expected
+  end
+
+  it 'should quote multibyte chars' do
+    original = "\303\246 \303\270 and \303\245"
+    original.force_encoding('ASCII-8BIT') if original.respond_to?(:force_encoding)
+
+    result = execute_in_sandbox(<<-CODE)
+      $:.unshift(File.dirname(__FILE__) + "/../../../lib/")
+      $KCODE = 'u'
+      require 'jcode'
+      require 'mlist/util/quoting'
+      include MList::Util::Quoting
+      quoted_printable("UTF-8", #{original.inspect})
+    CODE
+
+    unquoted = TMail::Unquoter.unquote_and_convert_to(result, nil)
+    unquoted.should == original
+  end
+
+  # test an email that has been created using \r\n newlines, instead of
+  # \n newlines.
+  it 'should email quoted with 0d0a' do
+    mail = TMail::Mail.parse(IO.read("#{SPEC_ROOT}/fixtures/email/raw_email_quoted_with_0d0a"))
+    mail.body.should match(%r{Elapsed time})
+  end
+
+  it 'should email with partially quoted subject' do
+    mail = TMail::Mail.parse(IO.read("#{SPEC_ROOT}/fixtures/email/raw_email_with_partially_quoted_subject"))
+    mail.subject.should == "Re: Test: \"\346\274\242\345\255\227\" mid \"\346\274\242\345\255\227\" tail"
+  end
+
+  private
+    # This whole thing *could* be much simpler, but I don't think Tempfile,
+    # popen and others exist on all platforms (like Windows).
+    def execute_in_sandbox(code)
+      test_name = "#{File.dirname(__FILE__)}/am-quoting-test.#{$$}.rb"
+      res_name = "#{File.dirname(__FILE__)}/am-quoting-test.#{$$}.out"
+
+      File.open(test_name, "w+") do |file|
+        file.write(<<-CODE)
+          block = Proc.new do
+            #{code}
+          end
+          puts block.call
+        CODE
+      end
+
+      system("ruby #{test_name} > #{res_name}") or raise "could not run test in sandbox"
+      File.read(res_name).chomp
+    ensure
+      File.delete(test_name) rescue nil
+      File.delete(res_name) rescue nil
+    end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,76 @@
+require 'rubygems'
+require 'spec'
+require 'rr'
+require 'ostruct'
+
+Spec::Runner.configure do |config|
+  config.mock_with :rr
+end
+
+SPEC_ROOT = File.expand_path(File.dirname(__FILE__))
+$LOAD_PATH.unshift(SPEC_ROOT + '/../lib')
+Dir[SPEC_ROOT + '/matchers/*.rb'].each { |path| require path }
+
+require 'active_record'
+SQLITE_DATABASE = "#{SPEC_ROOT}/sqlite3.db"
+ActiveRecord::Base.silence do
+  ActiveRecord::Base.configurations = {'test' => {
+    'adapter' => 'sqlite3',
+    'database' => SQLITE_DATABASE
+  }}
+  ActiveRecord::Base.establish_connection 'test'
+  load "#{SPEC_ROOT}/fixtures/schema.rb"
+end
+
+require 'dataset'
+class Spec::Example::ExampleGroup
+  include Dataset
+  datasets_directory "#{SPEC_ROOT}/datasets"
+end
+
+# Fixture helpers
+def email_fixtures_path(path)
+  File.join(SPEC_ROOT, 'fixtures/email', path)
+end
+
+def email_fixture(path)
+  File.read(email_fixtures_path(path))
+end
+
+def tmail_fixture(path, header_changes = {})
+  tmail = TMail::Mail.parse(email_fixture(path))
+  header_changes.each do |k,v|
+    tmail[k] = v
+  end
+  tmail
+end
+
+def html_fixtures_path(path)
+  File.join(SPEC_ROOT, 'fixtures/html', path)
+end
+
+def html_fixture(path)
+  File.read(html_fixtures_path(path))
+end
+
+def text_fixtures_path(path)
+  File.join(SPEC_ROOT, 'fixtures/text', path)
+end
+
+def text_fixture(path)
+  File.read(text_fixtures_path(path))
+end
+
+# To see the output of an email in your client, this will use sendmail to
+# deliver the email to the given address. It shouldn't be sent to the
+# addresses in to: cc: or bcc:, I hope.
+#
+def visualize_email(email, recipient_address)
+  tf = Tempfile.new('email_visualize')
+  tf.puts email.to_s
+  tf.close
+  `cat #{tf.path} | sendmail -t #{recipient_address}`
+end
+
+require 'mlist'
+require 'mlist/email_server/fake'

metadata

@@ -0,0 +1,103 @@
+--- !ruby/object:Gem::Specification 
+name: mlist
+version: !ruby/object:Gem::Version 
+  version: 0.1.9
+platform: ruby
+authors: 
+- Adam Williams
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-12-21 00:00:00 -05:00
+default_executable: 
+dependencies: []
+
+description: A Ruby mailing list library designed to be integrated into other applications.
+email: adam@thewilliams.ws
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- TODO
+files: 
+- CHANGELOG
+- README
+- Rakefile
+- TODO
+- VERSION.yml
+- lib/mlist.rb
+- lib/mlist/email.rb
+- lib/mlist/email_post.rb
+- lib/mlist/email_server.rb
+- lib/mlist/email_server/base.rb
+- lib/mlist/email_server/default.rb
+- lib/mlist/email_server/fake.rb
+- lib/mlist/email_server/pop.rb
+- lib/mlist/email_server/smtp.rb
+- lib/mlist/email_subscriber.rb
+- lib/mlist/list.rb
+- lib/mlist/mail_list.rb
+- lib/mlist/manager.rb
+- lib/mlist/manager/database.rb
+- lib/mlist/manager/notifier.rb
+- lib/mlist/message.rb
+- lib/mlist/server.rb
+- lib/mlist/thread.rb
+- lib/mlist/util.rb
+- lib/mlist/util/email_helpers.rb
+- lib/mlist/util/header_sanitizer.rb
+- lib/mlist/util/quoting.rb
+- lib/mlist/util/tmail_builder.rb
+- lib/mlist/util/tmail_methods.rb
+- lib/pop_ssl.rb
+- rails/init.rb
+has_rdoc: true
+homepage: http://github.com/aiwilliams/mlist
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: A Ruby mailing list library designed to be integrated into other applications.
+test_files: 
+- spec/fixtures/schema.rb
+- spec/integration/date_formats_spec.rb
+- spec/integration/mlist_spec.rb
+- spec/integration/pop_email_server_spec.rb
+- spec/integration/proof_spec.rb
+- spec/matchers/equal_tmail.rb
+- spec/matchers/have_address.rb
+- spec/matchers/have_header.rb
+- spec/models/email_post_spec.rb
+- spec/models/email_server/base_spec.rb
+- spec/models/email_spec.rb
+- spec/models/mail_list_spec.rb
+- spec/models/message_spec.rb
+- spec/models/thread_spec.rb
+- spec/models/util/email_helpers_spec.rb
+- spec/models/util/header_sanitizer_spec.rb
+- spec/models/util/quoting_spec.rb
+- spec/spec_helper.rb