sequel 3.21.0 → 3.41.0

data/spec/extensions/connection_validator_spec.rb

@@ -0,0 +1,118 @@
+require File.join(File.dirname(File.expand_path(__FILE__)), "spec_helper")
+
+shared_examples_for "Sequel::ConnectionValidator" do  
+  before do
+    @db.extend(Module.new do
+      def disconnect_connection(conn)
+        @sqls << 'disconnect'
+      end
+      def valid_connection?(conn)
+        super
+        conn.valid
+      end
+      def connect(server)
+        conn = super
+        conn.extend(Module.new do
+          attr_accessor :valid
+        end)
+        conn.valid = true
+        conn
+      end
+    end)
+    @db.extension(:connection_validator)
+  end
+
+  it "should still allow new connections" do
+    @db.synchronize{|c| c}.should be_a_kind_of(Sequel::Mock::Connection)
+  end
+
+  it "should only validate if connection idle longer than timeout" do
+    c1 = @db.synchronize{|c| c}
+    @db.sqls.should == []
+    @db.synchronize{|c| c}.should equal(c1)
+    @db.sqls.should == []
+    @db.pool.connection_validation_timeout = -1
+    @db.synchronize{|c| c}.should equal(c1)
+    @db.sqls.should == ['SELECT NULL']
+    @db.pool.connection_validation_timeout = 1
+    @db.synchronize{|c| c}.should equal(c1)
+    @db.sqls.should == []
+    @db.synchronize{|c| c}.should equal(c1)
+    @db.sqls.should == []
+  end
+
+  it "should disconnect connection if not valid" do
+    c1 = @db.synchronize{|c| c}
+    @db.sqls.should == []
+    c1.valid = false
+    @db.pool.connection_validation_timeout = -1
+    c2 = @db.synchronize{|c| c}
+    @db.sqls.should == ['SELECT NULL', 'disconnect']
+    c2.should_not equal(c1)
+  end
+
+  it "should disconnect multiple connections repeatedly if they are not valid" do
+    q, q1 = Queue.new, Queue.new
+    c1 = nil
+    c2 = nil
+    @db.pool.connection_validation_timeout = -1
+    @db.synchronize do |c|
+      Thread.new do
+        @db.synchronize do |cc|
+          c2 = cc
+        end
+        q1.pop
+        q.push nil
+      end
+      q1.push nil
+      q.pop
+      c1 = c
+    end
+    c1.valid = false
+    c2.valid = false
+
+    c3 = @db.synchronize{|c| c}
+    @db.sqls.should == ['SELECT NULL', 'disconnect', 'SELECT NULL', 'disconnect']
+    c3.should_not equal(c1)
+    c3.should_not equal(c2)
+  end
+
+  it "should not leak connection references" do
+    c1 = @db.synchronize do |c|
+      @db.pool.instance_variable_get(:@connection_timestamps).should == {}
+      c
+    end
+    @db.pool.instance_variable_get(:@connection_timestamps).should have_key(c1)
+
+    c1.valid = false
+    @db.pool.connection_validation_timeout = -1
+    c2 = @db.synchronize do |c|
+      @db.pool.instance_variable_get(:@connection_timestamps).should == {}
+      c
+    end
+    c2.should_not equal(c1)
+    @db.pool.instance_variable_get(:@connection_timestamps).should_not have_key(c1)
+    @db.pool.instance_variable_get(:@connection_timestamps).should have_key(c2)
+  end
+
+  it "should handle case where determining validity requires a connection" do
+    @db.meta_def(:valid_connection?){|c| synchronize{}; true}
+    @db.pool.connection_validation_timeout = -1
+    c1 = @db.synchronize{|c| c}
+    @db.synchronize{|c| c}.should equal(c1)
+  end
+end
+
+describe "Sequel::ConnectionValidator with threaded pool" do
+  before do
+    @db = Sequel.mock
+  end
+  it_should_behave_like "Sequel::ConnectionValidator"
+end
+describe "Sequel::ConnectionValidator with sharded threaded pool" do
+  before do
+    @db = Sequel.mock(:servers=>{})
+  end
+  it_should_behave_like "Sequel::ConnectionValidator"
+end
+

data/spec/extensions/constraint_validations_plugin_spec.rb

@@ -0,0 +1,196 @@
+require File.join(File.dirname(File.expand_path(__FILE__)), "spec_helper")
+
+describe "Sequel::Plugins::ConstraintValidations" do
+  def model_class(opts={})
+    return @c if @c
+    @c = Class.new(Sequel::Model(@db[:items]))
+    @c.columns :name
+    @db.sqls
+    set_fetch(opts)
+    @c.plugin :constraint_validations
+    @c
+  end
+
+  def set_fetch(opts)
+    @db.fetch = {:table=>'items', :message=>nil, :allow_nil=>nil, :constraint_name=>nil, :validation_type=>'presence', :argument=>nil, :column=>'name'}.merge(opts)
+  end
+
+  before do
+    @db = Sequel.mock
+    set_fetch({})
+    @ds = @db[:items]
+    @ds.instance_variable_set(:@columns, [:name])
+    @ds2 = @db.dup[:items2]
+    @ds2.instance_variable_set(:@columns, [:name])
+  end
+
+  it "should load the validation_helpers plugin into the class" do
+    model_class.new.should respond_to(:validates_presence)
+  end
+
+  it "should parse constraint validations when loading plugin" do
+    @c = model_class
+    @db.sqls.should == ["SELECT * FROM sequel_constraint_validations"]
+    @db.constraint_validations.should == {'items'=>[[:validates_presence, :name]]}
+    @c.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should parse constraint validations with a custom constraint validations table" do
+    c = Class.new(Sequel::Model(@db[:items]))
+    @db.sqls
+    c.plugin :constraint_validations, :constraint_validations_table=>:foo
+    @db.sqls.should == ["SELECT * FROM foo"]
+    @db.constraint_validations.should == {'items'=>[[:validates_presence, :name]]}
+    c.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should populate constraint_validations when subclassing" do
+    c = Class.new(Sequel::Model(@db))
+    c.plugin :constraint_validations
+    @db.sqls.should == ["SELECT * FROM sequel_constraint_validations"]
+    sc = Class.new(c)
+    sc.set_dataset @ds
+    @db.sqls.should == []
+    sc.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should populate constraint_validations when changing the model's dataset" do
+    c = Class.new(Sequel::Model(@db[:foo]))
+    c.columns :name
+    @db.sqls
+    c.plugin :constraint_validations
+    @db.sqls.should == ["SELECT * FROM sequel_constraint_validations"]
+    sc = Class.new(c)
+    sc.set_dataset @ds
+    @db.sqls.should == []
+    sc.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should reparse constraint validations when changing the model's database" do
+    c = Class.new(Sequel::Model(@ds2))
+    c.plugin :constraint_validations
+    @db.sqls.should == ["SELECT * FROM sequel_constraint_validations"]
+    sc = Class.new(c)
+    sc.set_dataset @ds
+    @db.sqls.should == ["SELECT * FROM sequel_constraint_validations"]
+    sc.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should reparse constraint validations when changing the model's database with a custom constraint validations table" do
+    c = Class.new(Sequel::Model(@ds2))
+    c.plugin :constraint_validations, :constraint_validations_table=>:foo
+    @db.sqls.should == ["SELECT * FROM foo"]
+    sc = Class.new(c)
+    sc.set_dataset @ds
+    @db.sqls.should == ["SELECT * FROM foo"]
+    sc.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should correctly retrieve :message option from constraint validations table" do
+    model_class(:message=>'foo').constraint_validations.should == [[:validates_presence, :name, {:message=>'foo'}]]
+  end
+
+  it "should correctly retrieve :allow_nil option from constraint validations table" do
+    model_class(:allow_nil=>true).constraint_validations.should == [[:validates_presence, :name, {:allow_nil=>true}]]
+  end
+
+  it "should handle presence validation" do
+    model_class(:validation_type=>'presence').constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should handle exact_length validation" do
+    model_class(:validation_type=>'exact_length', :argument=>'5').constraint_validations.should == [[:validates_exact_length, 5, :name]]
+  end
+
+  it "should handle min_length validation" do
+    model_class(:validation_type=>'min_length', :argument=>'5').constraint_validations.should == [[:validates_min_length, 5, :name]]
+  end
+
+  it "should handle max_length validation" do
+    model_class(:validation_type=>'max_length', :argument=>'5').constraint_validations.should == [[:validates_max_length, 5, :name]]
+  end
+
+  it "should handle length_range validation" do
+    model_class(:validation_type=>'length_range', :argument=>'3..5').constraint_validations.should == [[:validates_length_range, 3..5, :name]]
+  end
+
+  it "should handle length_range validation with an exclusive end" do
+    model_class(:validation_type=>'length_range', :argument=>'3...5').constraint_validations.should == [[:validates_length_range, 3...5, :name]]
+  end
+
+  it "should handle format validation" do
+    model_class(:validation_type=>'format', :argument=>'^foo.*').constraint_validations.should == [[:validates_format, /^foo.*/, :name]]
+  end
+
+  it "should handle format validation with case insensitive format" do
+    model_class(:validation_type=>'iformat', :argument=>'^foo.*').constraint_validations.should == [[:validates_format, /^foo.*/i, :name]]
+  end
+
+  it "should handle includes validation with array of strings" do
+    model_class(:validation_type=>'includes_str_array', :argument=>'a,b,c').constraint_validations.should == [[:validates_includes, %w'a b c', :name]]
+  end
+
+  it "should handle includes validation with array of integers" do
+    model_class(:validation_type=>'includes_int_array', :argument=>'1,2,3').constraint_validations.should == [[:validates_includes, [1, 2, 3], :name]]
+  end
+
+  it "should handle includes validation with inclusive range of integers" do
+    model_class(:validation_type=>'includes_int_range', :argument=>'3..5').constraint_validations.should == [[:validates_includes, 3..5, :name]]
+  end
+
+  it "should handle includes validation with exclusive range of integers" do
+    model_class(:validation_type=>'includes_int_range', :argument=>'3...5').constraint_validations.should == [[:validates_includes, 3...5, :name]]
+  end
+
+  it "should handle like validation" do
+    model_class(:validation_type=>'like', :argument=>'foo').constraint_validations.should == [[:validates_format, /\Afoo\z/, :name]]
+  end
+
+  it "should handle ilike validation" do
+    model_class(:validation_type=>'ilike', :argument=>'foo').constraint_validations.should == [[:validates_format, /\Afoo\z/i, :name]]
+  end
+
+  it "should handle like validation with % metacharacter" do
+    model_class(:validation_type=>'like', :argument=>'%foo%').constraint_validations.should == [[:validates_format, /\A.*foo.*\z/, :name]]
+  end
+
+  it "should handle like validation with %% metacharacter" do
+    model_class(:validation_type=>'like', :argument=>'%%foo%%').constraint_validations.should == [[:validates_format, /\A%foo%\z/, :name]]
+  end
+
+  it "should handle like validation with _ metacharacter" do
+    model_class(:validation_type=>'like', :argument=>'f_o').constraint_validations.should == [[:validates_format, /\Af.o\z/, :name]]
+  end
+
+  it "should handle like validation with Regexp metacharacter" do
+    model_class(:validation_type=>'like', :argument=>'\wfoo\d').constraint_validations.should == [[:validates_format, /\A\\wfoo\\d\z/, :name]]
+  end
+
+  it "should handle unique validation" do
+    model_class(:validation_type=>'unique').constraint_validations.should == [[:validates_unique, [:name]]]
+  end
+
+  it "should handle unique validation with multiple columns" do
+    model_class(:validation_type=>'unique', :column=>'name,id').constraint_validations.should == [[:validates_unique, [:name, :id]]]
+  end
+
+  it "should used parsed constraint validations when validating" do
+    o = model_class.new
+    o.valid?.should == false
+    o.errors.full_messages.should == ['name is not present']
+  end
+
+  it "should handle a table name specified as SQL::Identifier" do
+    set_fetch(:table=>'sch__items')
+    c = Class.new(Sequel::Model(@db[Sequel.identifier(:sch__items)]))
+    c.plugin :constraint_validations
+    c.constraint_validations.should == [[:validates_presence, :name]]
+  end
+
+  it "should handle a table name specified as SQL::QualifiedIdentifier" do
+    set_fetch(:table=>'sch.items')
+    c = Class.new(Sequel::Model(@db[Sequel.qualify(:sch, :items)]))
+    c.plugin :constraint_validations
+    c.constraint_validations.should == [[:validates_presence, :name]]
+  end
+end

data/spec/extensions/constraint_validations_spec.rb

@@ -0,0 +1,316 @@
+require File.join(File.dirname(File.expand_path(__FILE__)), "spec_helper")
+
+describe "constraint_validations extension" do
+  def parse_insert(s)
+    m = /\AINSERT INTO sequel_constraint_validations \((.*)\) VALUES \((.*)\)\z/.match(s)
+    Hash[*m[1].split(', ').map{|v| v.to_sym}.zip(m[2].split(', ').map{|v| parse_insert_value(v)}).reject{|k, v| v.nil?}.flatten]
+  end
+
+  def parse_insert_value(s)
+    case s
+    when 'NULL'
+      nil
+    when /\A'(.*)'\z/
+      $1
+    else
+      raise Sequel::Error, "unhandled insert value: #{s.inspect}"
+    end
+  end
+
+  before do
+    @db = Sequel.mock
+    @db.extend(Module.new{attr_writer :schema; def schema(table, *) execute("parse schema for #{table}"); @schema; end})
+    @db.extension(:constraint_validations)
+  end
+
+  it "should allow creating the sequel_constraint_validations table" do
+    @db.create_constraint_validations_table
+    @db.sqls.should == ["CREATE TABLE sequel_constraint_validations (table varchar(255) NOT NULL, constraint_name varchar(255), validation_type varchar(255) NOT NULL, column varchar(255) NOT NULL, argument varchar(255), message varchar(255), allow_nil boolean)"]
+  end
+
+  it "should allow creating the sequel_constraint_validations table with a non-default table name" do
+    @db.constraint_validations_table = :foo
+    @db.create_constraint_validations_table
+    @db.sqls.should == ["CREATE TABLE foo (table varchar(255) NOT NULL, constraint_name varchar(255), validation_type varchar(255) NOT NULL, column varchar(255) NOT NULL, argument varchar(255), message varchar(255), allow_nil boolean)"]
+  end
+
+  it "should allow dropping the sequel_constraint_validations table" do
+    @db.drop_constraint_validations_table
+    @db.sqls.should == ["DROP TABLE sequel_constraint_validations"]
+  end
+
+  it "should allow dropping the sequel_constraint_validations table with a non-default table name" do
+    @db.constraint_validations_table = :foo
+    @db.drop_constraint_validations_table
+    @db.sqls.should == ["DROP TABLE foo"]
+  end
+
+  it "should allow dropping validations for a given table" do
+    @db.drop_constraint_validations_for(:table=>:foo)
+    @db.sqls.should == ["DELETE FROM sequel_constraint_validations WHERE (table = 'foo')"]
+  end
+
+  it "should allow dropping validations for a given table and column" do
+    @db.drop_constraint_validations_for(:table=>:foo, :column=>:bar)
+    @db.sqls.should == ["DELETE FROM sequel_constraint_validations WHERE ((table = 'foo') AND (column = 'bar'))"]
+  end
+
+  it "should allow dropping validations for a given table and constraint" do
+    @db.drop_constraint_validations_for(:table=>:foo, :constraint=>:bar)
+    @db.sqls.should == ["DELETE FROM sequel_constraint_validations WHERE ((table = 'foo') AND (constraint_name = 'bar'))"]
+  end
+
+  it "should allow dropping validations for a non-default constraint_validations table" do
+    @db.constraint_validations_table = :cv
+    @db.drop_constraint_validations_for(:table=>:foo)
+    @db.sqls.should == ["DELETE FROM cv WHERE (table = 'foo')"]
+  end
+
+  it "should raise an error without deleting if attempting to drop validations with table, column, or constraint" do
+    proc{@db.drop_constraint_validations_for({})}.should raise_error(Sequel::Error)
+    @db.sqls.should == []
+  end
+
+  it "should allow adding constraint validations via create_table validate" do
+    @db.create_table(:foo){String :name; validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (trim(name) != '')))"]
+  end
+
+  it "should allow adding constraint validations via alter_table validate" do
+    @db.schema = [[:name, {:type=>:string}]]
+    @db.alter_table(:foo){validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(2)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    sqls.should == ["parse schema for foo", "BEGIN", "COMMIT", "ALTER TABLE foo ADD CHECK ((name IS NOT NULL) AND (trim(name) != ''))"]
+  end
+
+  it "should handle :message option when adding validations" do
+    @db.create_table(:foo){String :name; validate{presence :name, :message=>'not there'}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo", :message=>'not there'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (trim(name) != '')))"]
+  end
+
+  it "should handle :allow_nil option when adding validations" do
+    @db.create_table(:foo){String :name; validate{presence :name, :allow_nil=>true}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo", :allow_nil=>'t'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK (trim(name) != ''))"]
+  end
+
+  it "should handle :name option when adding validations" do
+    @db.create_table(:foo){String :name; validate{presence :name, :name=>'cons'}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo", :constraint_name=>'cons'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CONSTRAINT cons CHECK ((name IS NOT NULL) AND (trim(name) != '')))"]
+  end
+
+  it "should handle multiple columns when adding validations" do
+    @db.create_table(:foo){String :name; String :bar; validate{presence [:name, :bar]}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"bar", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), bar varchar(255), CHECK ((name IS NOT NULL) AND (bar IS NOT NULL) AND (trim(name) != '') AND (trim(bar) != '')))"]
+  end
+
+  it "should handle presence validation on non-String columns" do
+    @db.create_table(:foo){Integer :name; validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name integer, CHECK (name IS NOT NULL))"]
+
+    @db.schema = [[:name, {:type=>:integer}]]
+    @db.alter_table(:foo){validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(2)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    sqls.should == ["parse schema for foo", "BEGIN", "COMMIT", "ALTER TABLE foo ADD CHECK (name IS NOT NULL)"]
+  end
+
+  it "should handle presence validation on Oracle with IS NOT NULL instead of != ''" do
+    @db = Sequel.mock(:host=>'oracle')
+    @db.extension(:constraint_validations)
+    @db.create_table(:foo){String :name; validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (trim(name) IS NOT NULL)))"]
+  end
+
+  it "should assume column is not a String if it can't determine the type" do
+    @db.create_table(:foo){Integer :name; validate{presence :bar}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"bar", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name integer, CHECK (bar IS NOT NULL))"]
+
+    @db.schema = [[:name, {:type=>:integer}]]
+    @db.alter_table(:foo){validate{presence :bar}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(2)).should == {:validation_type=>"presence", :column=>"bar", :table=>"foo"}
+    sqls.should == ["parse schema for foo", "BEGIN", "COMMIT", "ALTER TABLE foo ADD CHECK (bar IS NOT NULL)"]
+  end
+
+  it "should handle presence validation on non-String columns with :allow_nil option" do
+    @db.create_table(:foo){Integer :name; validate{presence :name, :allow_nil=>true}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"foo", :allow_nil=>'t'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name integer)"]
+  end
+
+  it "should support :exact_length constraint validation" do
+    @db.create_table(:foo){String :name; validate{exact_length 5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"exact_length", :column=>"name", :table=>"foo", :argument=>'5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (char_length(name) = 5)))"]
+  end
+
+  it "should support :min_length constraint validation" do
+    @db.create_table(:foo){String :name; validate{min_length 5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"min_length", :column=>"name", :table=>"foo", :argument=>'5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (char_length(name) >= 5)))"]
+  end
+
+  it "should support :max_length constraint validation" do
+    @db.create_table(:foo){String :name; validate{max_length 5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"max_length", :column=>"name", :table=>"foo", :argument=>'5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (char_length(name) <= 5)))"]
+  end
+
+  it "should support :length_range constraint validation" do
+    @db.create_table(:foo){String :name; validate{length_range 3..5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"length_range", :column=>"name", :table=>"foo", :argument=>'3..5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (char_length(name) >= 3) AND (char_length(name) <= 5)))"]
+
+    @db.create_table(:foo){String :name; validate{length_range 3...5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"length_range", :column=>"name", :table=>"foo", :argument=>'3...5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (char_length(name) >= 3) AND (char_length(name) < 5)))"]
+  end
+
+  it "should support :format constraint validation" do
+    @db = Sequel.mock(:host=>'postgres')
+    @db.extension(:constraint_validations)
+    @db.create_table(:foo){String :name; validate{format /^foo.*/, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"format", :column=>"name", :table=>"foo", :argument=>'^foo.*'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name text, CHECK ((name IS NOT NULL) AND (name ~ '^foo.*')))"]
+  end
+
+  it "should support :format constraint validation with case insensitive format" do
+    @db = Sequel.mock(:host=>'postgres')
+    @db.extension(:constraint_validations)
+    @db.create_table(:foo){String :name; validate{format /^foo.*/i, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"iformat", :column=>"name", :table=>"foo", :argument=>'^foo.*'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name text, CHECK ((name IS NOT NULL) AND (name ~* '^foo.*')))"]
+  end
+
+  it "should support :includes constraint validation with an array of strings" do
+    @db.create_table(:foo){String :name; validate{includes %w'a b c', :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"includes_str_array", :column=>"name", :table=>"foo", :argument=>'a,b,c'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name IN ('a', 'b', 'c'))))"]
+  end
+
+  it "should support :includes constraint validation with an array of integers" do
+    @db.create_table(:foo){String :name; validate{includes [1, 2, 3], :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"includes_int_array", :column=>"name", :table=>"foo", :argument=>'1,2,3'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name IN (1, 2, 3))))"]
+  end
+
+  it "should support :includes constraint validation with a inclusive range of integers" do
+    @db.create_table(:foo){String :name; validate{includes 3..5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"includes_int_range", :column=>"name", :table=>"foo", :argument=>'3..5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name >= 3) AND (name <= 5)))"]
+  end
+
+  it "should support :includes constraint validation with a exclusive range of integers" do
+    @db.create_table(:foo){String :name; validate{includes 3...5, :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"includes_int_range", :column=>"name", :table=>"foo", :argument=>'3...5'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name >= 3) AND (name < 5)))"]
+  end
+
+  it "should support :like constraint validation" do
+    @db.create_table(:foo){String :name; validate{like 'foo%', :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"like", :column=>"name", :table=>"foo", :argument=>'foo%'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name LIKE 'foo%')))"]
+  end
+
+  it "should support :ilike constraint validation" do
+    @db.create_table(:foo){String :name; validate{ilike 'foo%', :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"ilike", :column=>"name", :table=>"foo", :argument=>'foo%'}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), CHECK ((name IS NOT NULL) AND (name ILIKE 'foo%')))"]
+  end
+
+  it "should support :unique constraint validation" do
+    @db.create_table(:foo){String :name; validate{unique :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"unique", :column=>"name", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), UNIQUE (name))"]
+  end
+
+  it "should support :unique constraint validation with multiple columns" do
+    @db.create_table(:foo){String :name; Integer :id; validate{unique [:name, :id]}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"unique", :column=>"name,id", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE foo (name varchar(255), id integer, UNIQUE (name, id))"]
+  end
+
+  it "should support :unique constraint validation in alter_table" do
+    @db.alter_table(:foo){validate{unique :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"unique", :column=>"name", :table=>"foo"}
+    sqls.should == ["BEGIN", "COMMIT", "ALTER TABLE foo ADD UNIQUE (name)"]
+  end
+
+  it "should drop constraints and validations when dropping a constraint validation" do
+    @db.alter_table(:foo){String :name; validate{drop :bar}}
+    @db.sqls.should == ["DELETE FROM sequel_constraint_validations WHERE ((table, constraint_name) IN (('foo', 'bar')))", "ALTER TABLE foo DROP CONSTRAINT bar"]
+  end
+
+  it "should raise an error if attempting to validate inclusion with a range of non-integers" do
+    proc{@db.create_table(:foo){String :name; validate{includes 'a'..'z', :name}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should raise an error if attempting to validate inclusion with a range of non-integers or strings" do
+    proc{@db.create_table(:foo){String :name; validate{includes [1.0, 2.0], :name}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should raise an error if attempting to validate inclusion with a unsupported object" do
+    proc{@db.create_table(:foo){String :name; validate{includes 'a', :name}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should raise an error if attempting to drop a constraint validation in a create_table generator" do
+    proc{@db.create_table(:foo){String :name; validate{drop :foo}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should raise an error if attempting to drop a constraint validation without a name" do
+    proc{@db.alter_table(:foo){String :name; validate{drop nil}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should raise an error if attempting attempting to process a constraint validation with an unsupported type" do
+    proc{@db.alter_table(:foo){String :name; validations << {:type=>:foo}}}.should raise_error(Sequel::Error)
+  end
+
+  it "should allow adding constraint validations for tables specified as a SQL::Identifier" do
+    @db.create_table(Sequel.identifier(:sch__foo)){String :name; validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"sch__foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE sch__foo (name varchar(255), CHECK ((name IS NOT NULL) AND (trim(name) != '')))"]
+  end
+
+  it "should allow adding constraint validations for tables specified as a SQL::QualifiedIdentifier" do
+    @db.create_table(Sequel.qualify(:sch, :foo)){String :name; validate{presence :name}}
+    sqls = @db.sqls
+    parse_insert(sqls.slice!(1)).should == {:validation_type=>"presence", :column=>"name", :table=>"sch.foo"}
+    sqls.should == ["BEGIN", "COMMIT", "CREATE TABLE sch.foo (name varchar(255), CHECK ((name IS NOT NULL) AND (trim(name) != '')))"]
+  end
+end