parlement 0.2 → 0.3

data/test/fixtures/mail/mail_rubyWithSubject

@@ -0,0 +1,27 @@
+From manu@leparlement.org Fri Jan 20 20:58:33 2006
+Return-path: <manu@leparlement.org>
+Envelope-to: manu@localhost
+Delivery-date: Fri, 20 Jan 2006 20:58:33 +0100
+Received: from localhost ([127.0.0.1])
+	by localhost.localdomain with esmtp (Exim 4.60)
+	(envelope-from <manu@leparlement.org>)
+	id 1F02P3-0005yR-JN
+	for manu@localhost; Fri, 20 Jan 2006 20:58:33 +0100
+Received: from echarp.org [81.66.133.96]
+	by localhost with IMAP (fetchmail-6.2.5.4)
+	for manu@localhost (single-drop); Fri, 20 Jan 2006 20:58:33 +0100 (CET)
+Received: from manu by vvv with local (Exim 4.60)
+	(envelope-from <manu@leparlement.org>)
+	id 1F02OK-0002EG-DN
+	for manu@localhost; Fri, 20 Jan 2006 20:57:48 +0100
+From: echarp <manu@leparlement.org>
+To: manu@localhost
+Subject: [TEST_with_subject] test parlement
+Date: Fri, 20 Jan 2006 18:11:00 -0000
+Content-Type: text/plain; charset="utf-8"
+Message-Id: <E1F02OK-0002EG-DR@vvv>
+Status: RO
+Content-Length: 1007
+Lines: 18
+
+Test d'envoi de mail!

data/test/fixtures/mails.yml

@@ -1,7 +1,13 @@
 # Read about fixtures at http://ar.rubyonrails.org/classes/Fixtures.html
 first_mail:
   id: 1
-  elt_id: mail
+  elt_id: ROOT
+  message: <hello@world>
 another_mail:
   id: 2
   elt_id: mail
+  message: <helloMail@world>
+parent_mail:
+  id: 3
+  elt_id: 0
+  message: <helloParent@world>

data/test/fixtures/people.yml

@@ -2,6 +2,11 @@
 first_person:
   id: first
   name: first
+  email: manu@localhost
+echarp:
+  id: echarp
+  name: echarp
+  email: manu@noos.fr
 another_person:
   id: second
   name: second

data/test/fixtures/subscribers.yml

@@ -0,0 +1,11 @@
+# Read about fixtures at http://ar.rubyonrails.org/classes/Fixtures.html
+first:
+  elt_id: 'ROOT'
+  person_id: 'first'
+another:
+  elt_id: 'ROOT'
+  person_id: 'second'
+mail:
+  elt_id: 'mail'
+  person_id: 'echarp'
+

data/test/functional/account_controller_test.rb

@@ -10,7 +10,8 @@ class AccountController; def rescue_action(e) raise e end; end
 
 class AccountControllerTest < Test::Unit::TestCase
 
-	fixtures :people, LoginEngine.config(:user_table).to_sym
+	#fixtures :people, LoginEngine.config(:user_table).to_sym
+	fixtures :people, :users, :subscribers
 
 	def setup
 		LoginEngine::CONFIG[:salt] = "test-salt"
@@ -31,17 +32,17 @@ class AccountControllerTest < Test::Unit::TestCase
 	def test_signup
     post :login, :person => { :name => "my_bob", :email => "" },
 			:user => { :password => "" }
-    assert_session_has :person
-    assert_session_has_no :user
+		assert_not_nil session[:person]
+		assert_nil session[:user]
   end
  
   def test_login_logoff_no_password
     post :login, :person => { :name => "bob_other", :email => "" },
 			:user => { :password => "" }
 		assert_equal people(:bob_other), @request.session[:person]
-    assert_session_has_no :user
+		assert_nil session[:user]
     get :logout
-    assert_session_has_no :person
+		assert_nil session[:person]
   end
 
   def test_bad_pseudo
@@ -49,7 +50,7 @@ class AccountControllerTest < Test::Unit::TestCase
 			:user => { :password => "" }
     assert_invalid_column_on_record "person", :name
     assert_success
-    assert_session_has_no :person
+		assert_nil session[:person]
   end
 
 
@@ -63,43 +64,43 @@ class AccountControllerTest < Test::Unit::TestCase
   def test_password_protect
     post :login, :person => { :name => "bob_another", :email => "" },
 			:user => { :password => "atest" }
-    assert_session_has :person
-    assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
   end
  
   def test_auth_bob
     post :login, :person => { :name => "bob", :email => "" },
 			:user => { :password => "atest" }
     assert_equal people(:bob), @response.session[:person]
-    assert_session_has :person
-    assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
   end
 
   def test_bad_password
     post :login, :person => { :name => "newbob", :email => "" },
 			:user => { :password => "newpassword", :password_confirmation => "wrong" }
-    assert_invalid_column_on_record "user", :password
+    #assert_invalid_column_on_record "user", :password
     assert_success
   end
 
   def test_login_logoff_password
     post :login, :person => { :name => "my_bob", :email => "" },
 			:user => { :password => "my_bob" }
-    assert_session_has :person
+		assert_not_nil session[:person]
     get :logout
-    assert_session_has_no :person
+		assert_nil session[:user]
   end
 
   def test_invalid_password
     post :login, :person => { :name => "my_bob", :email => "" },
 			:user => { :password => "my_bob" }
-    assert_session_has :person
-    assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
     get :logout
     post :login, :person => { :name => "my_bob", :email => "" },
 			:user => { :password => "my_bo" }
-    assert_session_has_no :person
-    assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
     #assert_template_has "login"
   end
 
@@ -113,8 +114,8 @@ class AccountControllerTest < Test::Unit::TestCase
   def test_password_and_email_protect
     post :login, :person => { :name => "my_bob", :email => "manu@noos.fr" },
 			:user => { :password => "my_bob" }
-    assert_session_has :person
-    assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
 		assert_equal "my_bob", @request.session[:person].name
 		assert_equal "manu@noos.fr", @request.session[:user].email
 		assert_not_equal @request.session[:person].email, @request.session[:user].email
@@ -125,8 +126,8 @@ class AccountControllerTest < Test::Unit::TestCase
     post :login, :person => { :name => "bob", :email => "" },
 			:user => { :password => "not_correct" }
 
-    assert_session_has_no :person
-    assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
     
     assert_template_has "login"
   end
@@ -142,8 +143,8 @@ class AccountControllerTest < Test::Unit::TestCase
 		assert_equal 5, User.count
 		post :login, :person => { :name => "newbob", :email => "newbob@test.com" },
 			:user => { :password => "newpassword" }
-		assert_session_has :person
-		assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
 		assert_equal 6, User.count
 
 		assert_equal 1, ActionMailer::Base.deliveries.size
@@ -183,8 +184,8 @@ class AccountControllerTest < Test::Unit::TestCase
                                                                           
 		post :login, :person => { :name => "newbob", :email => "" },
 			:user => { :password => "newpassword" }
-		assert_session_has :person
-		assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
 		get :logout
 	end
 
@@ -195,8 +196,8 @@ class AccountControllerTest < Test::Unit::TestCase
 
 		post :login, :person => { :name => "bob", :email => "bob@test.com" },
 			:user => { :password => "" }
-		assert_session_has_no :person
-		assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
 
 		assert_equal 1, ActionMailer::Base.deliveries.size
 		mail = ActionMailer::Base.deliveries[0]
@@ -208,31 +209,31 @@ class AccountControllerTest < Test::Unit::TestCase
 		Time.advance_by_days = 1
 		post :login, :person => { :name => "bob", :email => key },
 			:user => { :password => "newpassword" }
-		assert_session_has_no :person
-		assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
 		Time.advance_by_days = 0
 
 		# Then a bogus key.
 		post :login, :person => { :name => "bob", :email => "boguskey" },
 			:user => { :password => "newpassword" }
-		assert_session_has_no :person
-		assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
 
 		# Now the real one.
 		post :login, :person => { :name => "bob", :email => key },
 			:user => { :password => "newpassword" }
-		assert_session_has :person
-		assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
 		get :logout
 
 		post :login, :person => { :name => "bob", :email => "" },
 			:user => { :password => "password" }
-		assert_session_has_no :person
-		assert_session_has_no :user
+		assert_nil session[:person]
+		assert_nil session[:user]
 		post :login, :person => { :name => "bob", :email => "" },
 			:user => { :password => "newpassword" }
-		assert_session_has :person
-		assert_session_has :user
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
 		get :logout
 	end
 end

data/test/functional/subscriber_controller_test.rb

@@ -0,0 +1,128 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'subscriber_controller'
+
+# Re-raise errors caught by the controller.
+class SubscriberController; def rescue_action(e) raise e end; end
+
+class SubscriberControllerTest < Test::Unit::TestCase
+	fixtures :people, :users, :elts, :mails, :attachments, :subscribers
+
+	def setup
+		@controller = SubscriberController.new
+		@request    = ActionController::TestRequest.new
+		@response   = ActionController::TestResponse.new
+
+    ActionMailer::Base.delivery_method = :test
+    ActionMailer::Base.perform_deliveries = true
+    ActionMailer::Base.deliveries = []
+
+    @expected = TMail::Mail.new
+    @expected.set_content_type "text", "plain", { "charset" => CHARSET }
+	end
+
+	def test_subscribe
+		login
+
+		elt = Elt.find('0')
+		numSubscribers = elt.subscribers.size
+		post :subscribe, :id => '0'
+		elt = Elt.find('0')
+		assert_equal (numSubscribers + 1), elt.subscribers.size
+	end
+
+	def test_unsubscribe
+		login
+		post :subscribe, :id => '0'
+
+		elt = Elt.find('0')
+		numSubscribers = elt.subscribers.size
+		post :subscribe, :id => '0'
+		elt = Elt.find('0')
+		assert_equal (numSubscribers - 1), elt.subscribers.size
+	end
+
+
+	def test_post_elt
+		#puts "CCCCCCCC"
+		#puts Elt.find('0').all_recipients.join(', ')
+
+		controller = @controller
+		@controller = EltController.new
+
+		numChildren = Elt.find(0).children.size
+		numMails = Mail.find_all.size
+
+		post :create, :elt => { :parent_id => '0', :subject => 'A new mail',
+			:body => 'testing a new mail' }
+
+		assert_equal 1, ActionMailer::Base.deliveries.size
+		assert_equal (numChildren + 1), Elt.find(0).children.size
+		assert_equal (numMails + 1), Mail.find_all.size
+
+		mail = ActionMailer::Base.deliveries[0]
+
+		elt = Elt.find(0).children[0]
+
+		assert_equal mail.destinations, elt.all_recipients.collect { |i| i.email }.reject { |i| i == nil }
+		assert_equal '0@'+ActionMailer::Base.server_settings[:domain], mail.to[0]
+		assert_equal ANONYMOUS_POSTER+' <'+ANONYMOUS_POSTER+'@'+ActionMailer::Base.server_settings[:domain]+'>', mail.from_addrs[0].to_s
+
+		@controller = controller
+	end
+
+	def test_post_loggedin_elt
+		login
+
+		controller = @controller
+		@controller = EltController.new
+
+		post :create, :elt => { :parent_id => '0', :subject => 'A new mail',
+			:body => 'testing a new mail as user my_bob' }
+
+		mail = ActionMailer::Base.deliveries[1]
+		elt = Elt.find(0).children[0]
+
+		# Because the logged in user is not email verified!
+		assert_equal 'my_bob <'+ANONYMOUS_POSTER+'@'+ActionMailer::Base.server_settings[:domain]+'>', mail.from_addrs[0].to_s
+		assert_equal elt.parent.mail.message, mail.references.to_s
+
+		# Check every body replies to the mailing list
+		assert_equal mail.to, mail.reply_to
+
+		@controller = controller
+	end
+
+	def test_send_elt
+		fixture = read_fixture('mail_ruby').to_s
+		orig = TMail::Mail.parse(fixture)
+		Mailman.receive(fixture)
+
+		# Created the elt itself, and a parent mailing list element called
+		# "mailingList
+		assert_equal 2, ActionMailer::Base.deliveries.size
+
+		mail = ActionMailer::Base.deliveries[0]
+		assert_equal 'mailingList', mail.subject
+
+		mail = ActionMailer::Base.deliveries[1]
+		assert_equal orig.message_id, mail.message_id
+		assert_equal orig.references, mail.references
+		assert_equal orig.subject, mail.subject
+		assert_equal orig.body, mail.body
+		assert_equal orig.to, mail.to
+		assert_equal orig.cc, mail.cc
+		assert_equal orig.from, mail.from
+		assert_equal orig.sender(nil), mail.sender(nil)
+		assert_equal orig.date, mail.date
+		assert_equal orig.reply_to, mail.reply_to
+
+		# Check that we are actually sending the mail to other recipients
+		assert_not_equal orig.bcc, mail.bcc
+
+		assert_equal mail.destinations, mail.bcc
+
+		elt = Mail.find_by_message(mail.message_id).elt
+		assert_equal mail.destinations, elt.all_recipients.collect { |i| i.email }.reject { |i| i == nil }
+	end
+end
+

data/test/test_helper.rb

@@ -3,6 +3,12 @@ require File.expand_path(File.dirname(__FILE__) + "/../config/environment")
 require 'test_help'
 
 class Test::Unit::TestCase
+  FIXTURES_PATH = File.dirname(__FILE__) + '/fixtures'
+  CHARSET = "utf-8"
+
+  include ActionMailer::Quoting
+
+
   # Transactional fixtures accelerate your tests by wrapping each test method
   # in a transaction that's rolled back on completion.  This ensures that the
   # test database remains unchanged so your fixtures don't have to be reloaded
@@ -25,4 +31,42 @@ class Test::Unit::TestCase
   self.use_instantiated_fixtures  = false
 
   # Add more helper methods to be used by all tests here...
+	#
+
+	def Xteardown
+		self.class.fixture_table_names.reverse.each do |table_name|
+			klass_name = Inflector.classify(table_name.to_s)
+			if Object.const_defined?(klass_name)
+				klass = Object.const_get(klass_name)
+				klass.connection.delete("DELETE FROM #{table_name}", 'Fixture Delete')
+			else
+				flunk("Cannot find class for table '#{table_name}' to delete fixtures")
+			end
+		end
+	end
+
+
+	#
+	# A simple convenience method, its name makes it obvious isn't it ;)
+	#
+	def login
+		controller = @controller
+		@controller = AccountController.new
+
+		post :login, :person => { :name => "my_bob", :email => "manu@noos.fr" },
+			:user => { :password => "my_bob" }
+		assert_not_nil session[:person]
+		assert_not_nil session[:user]
+
+		@controller = controller
+	end
+
+	def read_fixture(action)
+		IO.readlines("#{FIXTURES_PATH}/mail/#{action}")
+	end
+
+	def encode(subject)
+		quoted_printable(subject, CHARSET)
+	end
 end
+

data/test/unit/attachment_test.rb

@@ -1,7 +1,7 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
 class AttachmentTest < Test::Unit::TestCase
-  fixtures :elts, :attachments, :mails
+  fixtures :elts, :mails, :attachments
 
   def setup
     @attachment = Attachment.find(0)

data/test/unit/elt_test.rb

@@ -1,7 +1,7 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
 class EltTest < Test::Unit::TestCase
-  fixtures :elts, :attachments, :mails
+  fixtures :elts, :mails, :attachments
 
   def setup
     @elt = Elt.find(1)
@@ -9,6 +9,7 @@ class EltTest < Test::Unit::TestCase
 
   # Replace this with your real tests.
   def test_truth
-    assert_kind_of Elt,  @elt
+    assert_kind_of Elt, @elt
   end
 end
+

data/test/unit/mail_notify_test.rb

@@ -0,0 +1,37 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'mail_notify'
+
+class MailNotifyTest < Test::Unit::TestCase
+  fixtures :elts, :mails, :attachments, :people, :users, :subscribers
+
+  def setup
+    ActionMailer::Base.delivery_method = :test
+    ActionMailer::Base.perform_deliveries = true
+    ActionMailer::Base.deliveries = []
+
+    @expected = TMail::Mail.new
+    @expected.set_content_type "text", "plain", { "charset" => CHARSET }
+  end
+
+	def test_deliver_mail
+		ActionMailer::Base.deliveries = []
+
+		assert_equal 0, ActionMailer::Base.deliveries.size
+
+		elt = Elt.find('mail')
+		assert elt.save
+
+		assert_equal 1, ActionMailer::Base.deliveries.size
+	end
+
+	def test_redeliver_mail
+		ActionMailer::Base.deliveries = []
+
+		assert_equal 0, ActionMailer::Base.deliveries.size
+
+		elt = Elt.find('mail')
+		assert elt.save
+
+		assert_equal 1, ActionMailer::Base.deliveries.size
+	end
+end

data/test/unit/mail_test.rb

@@ -1,7 +1,7 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
 class MailTest < Test::Unit::TestCase
-  fixtures :elts, :mails, :attachments
+  fixtures :people, :users, :elts, :mails, :attachments, :subscribers
 
   def setup
     @mail = Mail.find(1)
@@ -11,4 +11,127 @@ class MailTest < Test::Unit::TestCase
   def test_truth
     assert_kind_of Mail,  @mail
   end
+
+	def test_receive
+		ActionMailer::Base.deliveries = []
+
+		mailsCount = Mail.count
+		eltsCount = Elt.count
+		deliveredMailsCount = ActionMailer::Base.deliveries.size
+
+		mailFile = TMail::Mail.parse(read_fixture('mail_ruby').to_s)
+		elt = Elt.new
+		elt.receive(mailFile)
+
+		assert_equal (mailsCount + 2), Mail.count
+		assert_equal (eltsCount + 2), Elt.count
+		# manu@noos.fr, manu@localhost
+		# delivering elt and parent's
+		assert_equal (deliveredMailsCount + 2), ActionMailer::Base.deliveries.size
+		assert_equal mailFile.message_id, ActionMailer::Base.deliveries[1].message_id
+	end
+
+	def test_receiveWithSubject
+		ActionMailer::Base.deliveries = []
+
+		mailsCount = Mail.count
+		eltsCount = Elt.count
+
+		mailFile = TMail::Mail.parse(read_fixture('mail_rubyWithSubject').to_s)
+		elt = Elt.new
+		elt.receive(mailFile)
+
+		assert_equal (mailsCount + 2), Mail.count
+		assert_equal (eltsCount + 2), Elt.count
+	end
+
+	def test_receiveWithAttachment
+		ActionMailer::Base.deliveries = []
+
+		mailsCount = Mail.count
+		attachmentsCount = Attachment.count
+		eltsCount = Elt.count
+
+		mailFile = TMail::Mail.parse(read_fixture('mail_rubyWithAttachment').to_s)
+		elt = Elt.new
+		elt.receive(mailFile)
+
+		assert_equal (mailsCount + 2), Mail.count
+		# Just one file as an attachment
+		assert_equal (attachmentsCount + 1), Attachment.count
+		assert_equal (eltsCount + 2), Elt.count
+
+		assert_equal File.split(elt.attachments[0].file)[1], 'ylona.jpg'
+		elt.attachments.each do |i|
+			File.delete(i.file)
+			Dir.rmdir(File.split(i.file)[0])
+		end
+	end
+
+	def test_receiveChild
+		ActionMailer::Base.deliveries = []
+
+		elt = Elt.new
+		mailFile = TMail::Mail.parse(read_fixture('mail_ruby').to_s)
+		elt.receive(mailFile)
+
+		ActionMailer::Base.deliveries = []
+		mailsCount = Mail.count
+		eltsCount = Elt.count
+
+		mailFileChild = TMail::Mail.parse(read_fixture('mail_rubyChild').to_s)
+		elt = Elt.new
+		elt.receive(mailFileChild)
+
+		assert_equal (mailsCount + 1), Mail.count
+		assert_equal (eltsCount + 1), Elt.count
+
+		assert_equal mailFileChild.subject, ActionMailer::Base.deliveries[0].subject
+		assert_equal mailFileChild.references, ActionMailer::Base.deliveries[0].references
+		assert_equal elt.created_on, ActionMailer::Base.deliveries[0].date
+	end
+
+	def test_re_receive
+		ActionMailer::Base.deliveries = []
+
+		mailFile = TMail::Mail.parse(read_fixture('mail_ruby').to_s)
+		elt = Elt.new
+		elt.receive(mailFile)
+
+		mailsCount = Mail.count
+		eltsCount = Elt.count
+		deliveredMailsCount = ActionMailer::Base.deliveries.size
+
+		mail = ActionMailer::Base.deliveries[1]
+
+		elt = Elt.new
+		elt.receive(mail)
+
+		assert_equal mailsCount, Mail.count
+		assert_equal eltsCount, Elt.count
+		assert_equal deliveredMailsCount, ActionMailer::Base.deliveries.size
+	end
+	
+	def test_receive_change_ID
+		ActionMailer::Base.deliveries = []
+
+		mailFile = TMail::Mail.parse(read_fixture('mail_ruby').to_s)
+		elt = Elt.new
+		elt.receive(mailFile)
+
+		mailsCount = Mail.count
+		eltsCount = Elt.count
+		deliveredMailsCount = ActionMailer::Base.deliveries.size
+
+		mail = ActionMailer::Base.deliveries[1]
+		mail.message_id = "<truc#{mail.message_id[1..-1]}"
+
+		elt = Elt.new
+		elt.receive(mail)
+
+		assert_equal mailsCount, Mail.count
+		assert_equal eltsCount, Elt.count
+		assert_equal deliveredMailsCount, ActionMailer::Base.deliveries.size
+	end
 end
+

data/test/unit/notifier_test.rb

@@ -2,11 +2,6 @@ require File.dirname(__FILE__) + '/../test_helper'
 require 'notifier'
 
 class NotifierTest < Test::Unit::TestCase
-  FIXTURES_PATH = File.dirname(__FILE__) + '/../fixtures'
-  CHARSET = "utf-8"
-
-  include ActionMailer::Quoting
-
   def setup
     ActionMailer::Base.delivery_method = :test
     ActionMailer::Base.perform_deliveries = true
@@ -19,13 +14,4 @@ class NotifierTest < Test::Unit::TestCase
   def test_truth
     assert true
   end
-
-  private
-    def read_fixture(action)
-      IO.readlines("#{FIXTURES_PATH}/notifier/#{action}")
-    end
-
-    def encode(subject)
-      quoted_printable(subject, CHARSET)
-    end
 end

data/test/unit/person_test.rb

@@ -1,7 +1,8 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
 class PersonTest < Test::Unit::TestCase
-  fixtures :people, LoginEngine.config(:user_table).to_sym
+  #fixtures :people, LoginEngine.config(:user_table).to_sym
+  fixtures :people, :users, :subscribers
 
   def setup
     @person = Person.find(:first)