parlement 0.14 → 0.17

data/script/spec

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+if ARGV.any? {|arg| %w[--drb -X --generate-options -G --help -h --version -v].include?(arg)}
+  require 'rubygems' unless ENV['NO_RUBYGEMS']
+else
+  gem 'test-unit', '1.2.3' if RUBY_VERSION.to_f >= 1.9
+  ENV["RAILS_ENV"] ||= 'test'
+  require File.expand_path(File.dirname(__FILE__) + "/../config/environment") unless defined?(RAILS_ROOT)
+end
+require 'spec/autorun'
+exit ::Spec::Runner::CommandLine.run

data/script/spec_server

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+gem 'test-unit', '1.2.3' if RUBY_VERSION.to_f >= 1.9
+
+puts "Loading Rails environment"
+ENV["RAILS_ENV"] ||= 'test'
+require File.expand_path(File.dirname(__FILE__) + "/../config/environment") unless defined?(RAILS_ROOT)
+
+require 'optparse'
+require 'spec/rails/spec_server'

data/test/unit/attachment_test.rb

@@ -1,11 +1,11 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class AttachmentTest < Test::Unit::TestCase
+class AttachmentTest < ActiveSupport::TestCase
   fixtures :elts, :mails, :attachments
 
-  def setup
-    @attachment = Attachment.find(0)
-  end
+	def setup
+		@attachment = Attachment.find('0')
+	end
 
   # Replace this with your real tests.
   def test_truth

data/test/unit/choice_test.rb

@@ -1,6 +1,6 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class ChoiceTest < Test::Unit::TestCase
+class ChoiceTest < ActiveSupport::TestCase
   #fixtures :people, :users, :elts, :mails, :attachments, :subscriptions, :choices
 
   # Replace this with your real tests.

data/test/unit/elt_test.rb

@@ -1,13 +1,13 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class EltTest < Test::Unit::TestCase
-  fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
+class EltTest < ActiveSupport::TestCase
+	fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
 
-  def setup
-    @elt = Elt.find(1)
-  end
+	def setup
+		@elt = Elt.find('1')
+	end
 
-  def test_generated_id
+	def test_generated_id
 		e = @elt.children.new
 		e.subject = "\"Test: /de, ..  -\ #?&subject!\""
 		e.body = "Test de body"
@@ -23,9 +23,9 @@ class EltTest < Test::Unit::TestCase
 		@elt.add_child e
 
 		assert_equal "Test_de_subject_1", e.id
-  end
+	end
 
-  def test_vote_hidden_from_view
+	def test_vote_hidden_from_view
 		vote = @elt.children.new
 		vote.save
 		@elt.add_child vote
@@ -34,7 +34,7 @@ class EltTest < Test::Unit::TestCase
 
 		assert_equal -1, vote.result
 		assert_equal 1, vote.parent.result
-  end
+	end
 
 	def test_position
 		e = @elt.children.new

data/test/unit/mail_notify_test.rb

@@ -1,8 +1,8 @@
 require File.dirname(__FILE__) + '/../test_helper'
 require 'mail_notify'
 
-class MailNotifyTest < Test::Unit::TestCase
-  fixtures :elts, :mails, :attachments, :people, :users, :subscriptions
+class MailNotifyTest < ActiveSupport::TestCase
+	fixtures :elts, :mails, :attachments, :people, :users, :subscriptions
 
 	def setup
 		ActionMailer::Base.delivery_method = :test

data/test/unit/mail_test.rb

@@ -1,11 +1,11 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class MailTest < Test::Unit::TestCase
-  fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
+class MailTest < ActiveSupport::TestCase
+	fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
 
-  def setup
-    @mail = Mail.find(1)
-  end
+	def setup
+		@mail = Mail.find('1')
+	end
 
 	def test_receive
 		ActionMailer::Base.deliveries = []
@@ -23,7 +23,7 @@ class MailTest < Test::Unit::TestCase
 		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 (deliveredMailsCount + 3), ActionMailer::Base.deliveries.size
 		assert_equal mailFile.message_id, ActionMailer::Base.deliveries[1].message_id
 	end
 
@@ -291,7 +291,7 @@ class MailTest < Test::Unit::TestCase
 		deliveredMailsCount = ActionMailer::Base.deliveries.size
 		mail = TMail::Mail.parse(read_fixture('avatar').to_s)
 		elt = Mail.receive(mail).elt
-		assert_equal deliveredMailsCount + 2, ActionMailer::Base.deliveries.size
+		assert_equal deliveredMailsCount + 3, ActionMailer::Base.deliveries.size
 		assert_equal 1, elt.attachments.size
 		assert_equal "image/jpeg", elt.attachments.first.content_type
 		assert_equal 2, ActionMailer::Base.deliveries.last.parts.size
@@ -305,13 +305,20 @@ class MailTest < Test::Unit::TestCase
 		elt = Mail.receive(mail).elt
 		# people and avatar mail!
 		#puts "--------------------------"
-		assert_equal deliveredMailsCount + 2, ActionMailer::Base.deliveries.size
+		assert_equal deliveredMailsCount + 3, ActionMailer::Base.deliveries.size
 
 		# TODO make sure the pseudo parent has a vote "result"!!!
-		assert_equal elt.all_recipients.size, PersonMail.count
+		assert_equal elt.all_recipients.size, PersonMail.count / 2
 		# Again, to check there is no second sending
 		elt.publish
-		assert_equal elt.all_recipients.size, PersonMail.count
+		assert_equal elt.all_recipients.size, PersonMail.count / 2
 	end
-end
 
+	def test_send_and_record_mails
+		#puts "test_send_and_record_mails"
+		ActionMailer::Base.deliveries = []
+		deliveredMailsCount = ActionMailer::Base.deliveries.size
+		mail = TMail::Mail.parse(read_fixture('file').to_s)
+		elt = Mail.receive(mail).elt
+	end
+end

data/test/unit/person_notify_test.rb

@@ -1,7 +1,7 @@
 require File.dirname(__FILE__) + '/../test_helper'
 require 'person_notify'
 
-class PersonNotifyTest < Test::Unit::TestCase
+class PersonNotifyTest < ActiveSupport::TestCase
   def setup
     ActionMailer::Base.delivery_method = :test
     ActionMailer::Base.perform_deliveries = true

data/test/unit/person_test.rb

@@ -1,6 +1,6 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class PersonTest < Test::Unit::TestCase
+class PersonTest < ActiveSupport::TestCase
   #fixtures :people, LoginEngine.config(:user_table).to_sym
   fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
 

data/test/unit/subscriber_test.rb

@@ -1,6 +1,6 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class SubscriberTest < Test::Unit::TestCase
+class SubscriberTest < ActiveSupport::TestCase
 	fixtures :people, :users, :elts, :mails, :attachments, :subscriptions
 
 	def setup

data/test/unit/user_test.rb

@@ -0,0 +1,81 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class UserTest < ActiveSupport::TestCase
+	fixtures :users
+
+	def setup
+		LOGIN_ENGINE[:salt] = "test-salt"
+	end 
+
+	def test_auth   
+		assert_equal users(:bob), User.authenticate("bob", "atest")    
+		assert_nil User.authenticate("nonbob", "atest")
+	end
+
+	def test_passwordchange
+		users(:longbob).change_password("nonbobpasswd")
+		users(:longbob).save
+		assert_equal users(:longbob), User.authenticate("longbob", "nonbobpasswd")
+		assert_nil User.authenticate("longbob", "alongtest")
+		users(:longbob).change_password("alongtest")
+		users(:longbob).save
+		assert_equal users(:longbob), User.authenticate("longbob", "alongtest")
+		assert_nil User.authenticate("longbob", "nonbobpasswd")
+	end
+
+	def test_disallowed_passwords
+		u = User.new    
+		u.login = "nonbob"
+		u.email = "bobs@email.com"
+
+		u.change_password("tiny")
+		assert !u.save     
+		assert u.errors.invalid?('password')
+
+		u.change_password("hugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehuge")
+		assert !u.save     
+		assert u.errors.invalid?('password')
+
+		u.change_password("")
+		assert !u.save    
+		assert u.errors.invalid?('password')
+	end
+
+	def test_bad_logins
+		u = User.new  
+		u.change_password("bobs_secure_password")
+		u.email = "bobs@email.com"
+
+		u.login = "x"
+		assert !u.save     
+		assert u.errors.invalid?('login')
+
+		u.login = "hugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhug"
+		assert !u.save     
+		assert u.errors.invalid?('login')
+
+		u.login = ""
+		assert !u.save
+		assert u.errors.invalid?('login')
+	end
+
+	def test_collision
+		u = User.new
+		u.login = "existingbob"
+		u.change_password("bobs_secure_password")
+		assert !u.save
+	end
+
+	def test_email_should_be_nominally_valid
+		u = User.new
+		u.login = "email_test"
+		u.change_password("email_test_password")
+
+		assert !u.save
+		assert u.errors.invalid?('email')
+
+		u.email = "invalid_email"
+		assert !u.save
+		assert u.errors.invalid?('email')
+	end
+end

data/test/unit/visit_test.rb

@@ -1,10 +1,10 @@
 require File.dirname(__FILE__) + '/../test_helper'
 
-class VisitTest < Test::Unit::TestCase
-  fixtures :visits
+class VisitTest < ActiveSupport::TestCase
+	fixtures :visits
 
-  # Replace this with your real tests.
-  def test_truth
-    assert true
-  end
+	# Replace this with your real tests.
+	def test_truth
+		assert true
+	end
 end

data/vendor/plugins/activerecord_foreign_key_extensions/init.rb

@@ -0,0 +1,2 @@
+require 'active_record/schema_dumper'
+require 'active_record_extensions'

data/vendor/plugins/activerecord_foreign_key_extensions/lib/active_record_extensions.rb

@@ -0,0 +1,182 @@
+# Postgres and MySQL by bubbleware.com
+# Oracle and cleanups by atmos.org
+require 'digest/sha1'
+
+module ActiveRecord
+  class SchemaDumper
+    private
+      alias old_tables tables    
+      def tables(stream)
+        old_tables(stream)
+        @connection.tables.sort.each do |tbl|
+          next if tbl == "schema_info"
+          foreign_key_constraints(tbl, stream)
+        end
+      end
+    
+      def foreign_key_constraints(table, stream)
+        keys = @connection.foreign_key_constraints(table)
+        keys.each do |key|
+          stream.print "  add_foreign_key_constraint #{table.inspect}, #{key.foreign_key.inspect}, #{key.reference_table.inspect}, #{key.reference_column.inspect}, :name => #{key.name.inspect}, :on_update => #{key.on_update.inspect}, :on_delete => #{key.on_delete.inspect}"
+          stream.puts
+        end
+        stream.puts unless keys.empty?
+      end
+  end
+  
+  module ConnectionAdapters    
+    class ForeignKeyConstraintDefinition < Struct.new(:name, :foreign_key, :reference_table, :reference_column, :on_update, :on_delete) #:nodoc:
+    end
+    
+    class AbstractAdapter
+      protected
+        def symbolize_foreign_key_constraint_action(constraint_action)
+          constraint_action.downcase.gsub(/\s/, '_').to_sym
+        end
+    end
+    
+    class PostgreSQLAdapter < AbstractAdapter
+      def foreign_key_constraints(table, name = nil)
+        sql =  "SELECT conname, pg_catalog.pg_get_constraintdef(oid) AS consrc FROM pg_catalog.pg_constraint WHERE contype='f' "
+        sql += "AND conrelid = (SELECT oid FROM pg_catalog.pg_class WHERE relname='#{table}')"
+        
+        query(sql,name).collect do |row| 
+          if row[1] =~ /FOREIGN KEY \((.+)\) REFERENCES (.+)\((.+)\)(?: ON UPDATE (\w+))?(?: ON DELETE (\w+))?/
+            ForeignKeyConstraintDefinition.new(row[0], $1, $2, $3,
+                                               ($4 ? symbolize_foreign_key_constraint_action($4) : nil),
+                                               ($5 ? symbolize_foreign_key_constraint_action($5) : nil))
+          end
+        end
+      end
+      
+      def remove_foreign_key_constraint(table_name, constraint_name)
+        execute "ALTER TABLE #{table_name} DROP CONSTRAINT #{constraint_name}"
+      end
+      
+      #alias old_default_value default_value
+      #def default_value(value)
+      #  return ":now" if value =~ /^now\(\)|^\('now'::text\)::(date|timestamp)/i
+      #  return old_default_value(value) 
+      #end
+    end
+    
+    class OracleAdapter < AbstractAdapter
+      def foreign_key_constraints(table, name = nil)
+        uc  = 'user_constraints'
+        ucc = 'user_cons_columns'
+        
+        sql =  %Q{SELECT 
+	  c.table_name, cc.column_name, 
+	  r.table_name as rtable_name, rc.column_name as rcolumn_name, 
+	  c.delete_rule
+	  from 
+	    #{uc} c, #{uc} r, #{ucc} cc, #{ucc} rc
+	  where 
+	    c.constraint_type = 'R' and 
+	    c.table_name = UPPER('#{table}') and 
+	    c.r_constraint_name = r.constraint_name and
+	    c.constraint_name = cc.constraint_name and
+	    r.constraint_name = rc.constraint_name and
+	    cc.position = rc.position}.gsub(/(\n|^\W+)/, ' ')
+
+        select(sql).collect do |row| 
+	  ForeignKeyConstraintDefinition.new('', row['column_name'].downcase,
+	    row['rtable_name'].downcase, row['rcolumn_name'].downcase,
+            nil, symbolize_foreign_key_constraint_action(row['delete_rule']))
+        end
+      end
+      def remove_foreign_key_constraint(table_name, constraint_name)
+	constraint = 'c'+Digest::SHA1.hexdigest(constraint_name)[0,29]
+        execute "ALTER TABLE #{table_name} DROP FOREIGN KEY #{constraint}"
+      end      
+    end 
+    
+    class MysqlAdapter < AbstractAdapter
+      def foreign_key_constraints(table, name = nil)
+        constraints = [] 
+        execute("SHOW CREATE TABLE #{table}", name).each do |row|
+          row[1].each do |create_line|
+            if create_line.strip =~ /CONSTRAINT `([^`]+)` FOREIGN KEY \(`([^`]+)`\) REFERENCES `([^`]+)` \(`([^`]+)`\)([^,]*)/          
+              constraint = ForeignKeyConstraintDefinition.new(Regexp.last_match(1), Regexp.last_match(2), Regexp.last_match(3), Regexp.last_match(4), nil, nil)
+            
+              constraint_params = {}
+              
+              unless Regexp.last_match(5).nil?
+                Regexp.last_match(5).strip.split('ON ').each do |param|
+                  constraint_params[Regexp.last_match(1).upcase] = Regexp.last_match(2).strip.upcase if param.strip =~ /([^ ]+) (.+)/
+                end
+              end
+            
+              constraint.on_update = symbolize_foreign_key_constraint_action(constraint_params['UPDATE']) if constraint_params.include? 'UPDATE'
+              constraint.on_delete = symbolize_foreign_key_constraint_action(constraint_params['DELETE']) if constraint_params.include? 'DELETE'
+
+              constraints << constraint
+            end
+          end
+        end
+    
+        constraints
+      end
+      
+      def remove_foreign_key_constraint(table_name, constraint_name)
+        execute "ALTER TABLE #{table_name} DROP FOREIGN KEY #{constraint_name}"
+      end      
+    end
+    class Column
+      private
+        alias old_extract_limit extract_limit
+        def extract_limit(sql_type)
+          return 255 if sql_type =~ /enum/i
+          old_extract_limit(sql_type)
+        end
+
+        alias old_simplified_type simplified_type
+        def simplified_type(field_type)
+          return :string if field_type =~ /enum/i
+          old_simplified_type(field_type)
+        end
+    end
+    
+    module SchemaStatements
+      # Adds a new foreign key constraint to the table.
+      #
+      # The constrinat will be named after the table and the reference table and column
+      # unless you pass +:name+ as an option.
+      #
+      # options: :name, :on_update, :on_delete   
+      def foreign_key_constraint_statement(condition, fkc_sym)
+        action = { :restrict => 'RESTRICT', :cascade => 'CASCADE', :set_null => 'SET NULL' }[fkc_sym]
+        action ? ' ON ' << condition << ' ' << action : ''
+      end
+      
+      def add_foreign_key_constraint(table_name, foreign_key, reference_table, reference_column, options = {})
+        # sqlite and fks don't mix well, http://www.sqlite.org/cvstrac/wiki?p=ForeignKeyTriggers
+        return if adapter_name =~ /^sqlite/i
+        constraint_name = options[:name] || "#{table_name}_ibfk_#{foreign_key}"
+
+        # oracle chokes on constraints longer than 30 chars
+	if adapter_name =~ /^(oci|oracle)$/i
+	  constraint_name = 'c'+Digest::SHA1.hexdigest(constraint_name)[0,29]
+	end
+        
+        sql = "ALTER TABLE #{table_name} ADD CONSTRAINT #{constraint_name} FOREIGN KEY (#{foreign_key}) REFERENCES #{reference_table} (#{reference_column})"
+    
+        sql << foreign_key_constraint_statement('UPDATE', options[:on_update])
+        sql << foreign_key_constraint_statement('DELETE', options[:on_delete])
+        
+        execute sql
+      end
+      
+      # options: Must enter one of the two options:
+      #  1)  :name => the name of the foreign key constraint
+      #  2)  :foreign_key => the name of the column for which the foreign key was created
+      #      (only if the default constraint_name was used)
+      def remove_foreign_key_constraint(table_name, options={})
+        constraint_name = options[:name] || "#{table_name}_ibfk_#{foreign_key}"
+        raise ArgumentError, "You must specify the constraint name" if constraint_name.blank?
+        
+        @connection.remove_foreign_key_constraint(table_name, constraint_name)
+      end
+    end
+  end
+end