viking-sequel 3.10.0

data/spec/core/schema_spec.rb

@@ -0,0 +1,830 @@
+require File.join(File.dirname(__FILE__), 'spec_helper')
+
+context "DB#create_table" do
+  before do
+    @db = SchemaDummyDatabase.new
+  end
+  
+  specify "should accept the table name" do
+    @db.create_table(:cats) {}
+    @db.sqls.should == ['CREATE TABLE cats ()']
+  end
+
+  specify "should accept the table name in multiple formats" do
+    @db.create_table(:cats__cats) {}
+    @db.create_table("cats__cats1") {}
+    @db.create_table(:cats__cats2.identifier) {}
+    @db.create_table(:cats.qualify(:cats3)) {}
+    @db.sqls.should == ['CREATE TABLE cats.cats ()', 'CREATE TABLE cats__cats1 ()', 'CREATE TABLE cats__cats2 ()', 'CREATE TABLE cats3.cats ()']
+  end
+
+  specify "should raise an error if the table name argument is not valid" do
+    proc{@db.create_table(1) {}}.should raise_error(Sequel::Error)
+    proc{@db.create_table(:cats.as(:c)) {}}.should raise_error(Sequel::Error)
+  end
+
+  specify "should accept multiple columns" do
+    @db.create_table(:cats) do
+      column :id, :integer
+      column :name, :text
+    end
+    @db.sqls.should == ['CREATE TABLE cats (id integer, name text)']
+  end
+  
+  specify "should accept method calls as data types" do
+    @db.create_table(:cats) do
+      integer :id
+      text :name
+    end
+    @db.sqls.should == ['CREATE TABLE cats (id integer, name text)']
+  end
+  
+  specify "should transform types given as ruby classes to database-specific types" do
+    @db.create_table(:cats) do
+      String :a
+      Integer :b
+      Fixnum :c
+      Bignum :d
+      Float :e
+      BigDecimal :f
+      Date :g
+      DateTime :h
+      Time :i
+      Numeric :j
+      File :k
+      TrueClass :l
+      FalseClass :m
+      column :n, Fixnum
+      primary_key :o, :type=>String
+      foreign_key :p, :f, :type=>Date
+    end
+    @db.sqls.should == ['CREATE TABLE cats (o varchar(255) PRIMARY KEY AUTOINCREMENT, a varchar(255), b integer, c integer, d bigint, e double precision, f numeric, g date, h timestamp, i timestamp, j numeric, k blob, l boolean, m boolean, n integer, p date REFERENCES f)']
+  end
+
+  specify "should allow the use of modifiers with ruby class types" do
+    @db.create_table(:cats) do
+      String :a, :size=>50
+      String :b, :text=>true
+      String :c, :fixed=>true, :size=>40
+      Time :d, :only_time=>true
+      BigDecimal :e, :size=>[11,2]
+    end
+    @db.sqls.should == ['CREATE TABLE cats (a varchar(50), b text, c char(40), d time, e numeric(11, 2))']
+  end
+
+  specify "should raise an error if you use a ruby class that isn't handled" do
+    proc{@db.create_table(:cats){column :a, Class}}.should raise_error(Sequel::Error)
+  end
+
+  specify "should accept primary key definition" do
+    @db.create_table(:cats) do
+      primary_key :id
+    end
+    @db.sqls.should == ['CREATE TABLE cats (id integer PRIMARY KEY AUTOINCREMENT)']
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      primary_key :id, :serial, :auto_increment => false
+    end
+    @db.sqls.should == ['CREATE TABLE cats (id serial PRIMARY KEY)']
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      primary_key :id, :type => :serial, :auto_increment => false
+    end
+    @db.sqls.should == ['CREATE TABLE cats (id serial PRIMARY KEY)']
+  end
+
+  specify "should accept and literalize default values" do
+    @db.create_table(:cats) do
+      integer :id, :default => 123
+      text :name, :default => "abc'def"
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer DEFAULT 123, name text DEFAULT 'abc''def')"]
+  end
+  
+  specify "should accept not null definition" do
+    @db.create_table(:cats) do
+      integer :id
+      text :name, :null => false
+      text :name2, :allow_null => false
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer, name text NOT NULL, name2 text NOT NULL)"]
+  end
+  
+  specify "should accept null definition" do
+    @db.create_table(:cats) do
+      integer :id
+      text :name, :null => true
+      text :name2, :allow_null => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer, name text NULL, name2 text NULL)"]
+  end
+  
+  specify "should accept unique definition" do
+    @db.create_table(:cats) do
+      integer :id
+      text :name, :unique => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer, name text UNIQUE)"]
+  end
+  
+  specify "should accept unsigned definition" do
+    @db.create_table(:cats) do
+      integer :value, :unsigned => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (value integer UNSIGNED)"]
+  end
+  
+  specify "should accept [SET|ENUM](...) types" do
+    @db.create_table(:cats) do
+      set :color, :elements => ['black', 'tricolor', 'grey']
+    end
+    @db.sqls.should == ["CREATE TABLE cats (color set('black', 'tricolor', 'grey'))"]
+  end
+  
+  specify "should accept varchar size" do
+    @db.create_table(:cats) do
+      varchar :name
+    end
+    @db.sqls.should == ["CREATE TABLE cats (name varchar(255))"]
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      varchar :name, :size => 51
+    end
+    @db.sqls.should == ["CREATE TABLE cats (name varchar(51))"]
+  end
+  
+  specify "should use double precision for double type" do
+    @db.create_table(:cats) do
+      double :name
+    end
+    @db.sqls.should == ["CREATE TABLE cats (name double precision)"]
+  end
+
+  specify "should accept foreign keys without options" do
+    @db.create_table(:cats) do
+      foreign_key :project_id
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer)"]
+  end
+
+  specify "should accept foreign keys with options" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects)"]
+  end
+
+  specify "should accept foreign keys with separate table argument" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :projects, :default=>3
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer DEFAULT 3 REFERENCES projects)"]
+  end
+  
+  specify "should raise an error if the table argument to foreign_key isn't a hash, symbol, or nil" do
+    proc{@db.create_table(:cats){foreign_key :project_id, Object.new, :default=>3}}.should raise_error(Sequel::Error)
+  end
+  
+  specify "should accept foreign keys with arbitrary keys" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :key => :id
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects(id))"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :key => :zzz
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects(zzz))"]
+  end
+  
+  specify "should accept foreign keys with ON DELETE clause" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :restrict
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE RESTRICT)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :cascade
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE CASCADE)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :no_action
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE NO ACTION)"]
+    @db.sqls.clear
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :set_null
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE SET NULL)"]
+    @db.sqls.clear
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :set_default
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE SET DEFAULT)"]
+    @db.sqls.clear
+  end
+
+  specify "should accept foreign keys with ON UPDATE clause" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_update => :restrict
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON UPDATE RESTRICT)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_update => :cascade
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON UPDATE CASCADE)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_update => :no_action
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON UPDATE NO ACTION)"]
+    @db.sqls.clear
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_update => :set_null
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON UPDATE SET NULL)"]
+    @db.sqls.clear
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_update => :set_default
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON UPDATE SET DEFAULT)"]
+    @db.sqls.clear
+  end
+  
+  specify "should accept inline index definition" do
+    @db.create_table(:cats) do
+      integer :id, :index => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX cats_id_index ON cats (id)"]
+  end
+  
+  specify "should accept inline index definition for foreign keys" do
+    @db.create_table(:cats) do
+      foreign_key :project_id, :table => :projects, :on_delete => :cascade, :index => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (project_id integer REFERENCES projects ON DELETE CASCADE)",
+      "CREATE INDEX cats_project_id_index ON cats (project_id)"]
+  end
+  
+  specify "should accept index definitions" do
+    @db.create_table(:cats) do
+      integer :id
+      index :id
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX cats_id_index ON cats (id)"]
+  end
+
+  specify "should accept unique index definitions" do
+    @db.create_table(:cats) do
+      text :name
+      unique :name
+    end
+    @db.sqls.should == ["CREATE TABLE cats (name text, UNIQUE (name))"]
+  end
+
+  specify "should raise on full-text index definitions" do
+    proc {
+      @db.create_table(:cats) do
+        text :name
+        full_text_index :name
+      end
+    }.should raise_error(Sequel::Error)
+  end
+
+  specify "should raise on spatial index definitions" do
+    proc {
+      @db.create_table(:cats) do
+        point :geom
+        spatial_index :geom
+      end
+    }.should raise_error(Sequel::Error)
+  end
+
+  specify "should raise on partial index definitions" do
+    proc {
+      @db.create_table(:cats) do
+        text :name
+        index :name, :where => {:something => true}
+      end
+    }.should raise_error(Sequel::Error)
+  end
+
+  specify "should raise index definitions with type" do
+    proc {
+      @db.create_table(:cats) do
+        text :name
+        index :name, :type => :hash
+      end
+    }.should raise_error(Sequel::Error)
+  end
+
+  specify "should ignore errors if the database raises an error on an index creation statement and the :ignore_index_errors option is used" do
+    @db.meta_def(:execute_ddl){|*a| raise Sequel::DatabaseError if /blah/.match(a.first); super(*a)}
+    lambda{@db.create_table(:cats){Integer :id; index :blah; index :id}}.should raise_error(Sequel::DatabaseError)
+    @db.sqls.should == ['CREATE TABLE cats (id integer)']
+    @db.sqls.clear
+    lambda{@db.create_table(:cats, :ignore_index_errors=>true){Integer :id; index :blah; index :id}}.should_not raise_error(Sequel::DatabaseError)
+    @db.sqls.should == ['CREATE TABLE cats (id integer)', 'CREATE INDEX cats_id_index ON cats (id)']
+  end
+
+  specify "should accept multiple index definitions" do
+    @db.create_table(:cats) do
+      integer :id
+      index :id
+      index :name
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX cats_id_index ON cats (id)", "CREATE INDEX cats_name_index ON cats (name)"]
+  end
+  
+  specify "should accept functional indexes" do
+    @db.create_table(:cats) do
+      integer :id
+      index :lower.sql_function(:name)
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX cats_lower_name__index ON cats (lower(name))"]
+  end
+  
+  specify "should accept indexes with identifiers" do
+    @db.create_table(:cats) do
+      integer :id
+      index :lower__name.identifier
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX cats_lower__name_index ON cats (lower__name)"]
+  end
+  
+  specify "should accept custom index names" do
+    @db.create_table(:cats) do
+      integer :id
+      index :id, :name => 'abc'
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE INDEX abc ON cats (id)"]
+  end
+
+  specify "should accept unique index definitions" do
+    @db.create_table(:cats) do
+      integer :id
+      index :id, :unique => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE UNIQUE INDEX cats_id_index ON cats (id)"]
+  end
+  
+  specify "should accept composite index definitions" do
+    @db.create_table(:cats) do
+      integer :id
+      index [:id, :name], :unique => true
+    end
+    @db.sqls.should == ["CREATE TABLE cats (id integer)", "CREATE UNIQUE INDEX cats_id_name_index ON cats (id, name)"]
+  end
+  
+  specify "should accept unnamed constraint definitions with blocks" do
+    @db.create_table(:cats) do
+      integer :score
+      check {(:x.sql_number > 0) & (:y.sql_number < 1)}
+    end
+    @db.sqls.should == ["CREATE TABLE cats (score integer, CHECK ((x > 0) AND (y < 1)))"]
+  end
+
+  specify "should accept unnamed constraint definitions" do
+    @db.create_table(:cats) do
+      check 'price < ?', 100
+    end
+    @db.sqls.should == ["CREATE TABLE cats (CHECK (price < 100))"]
+  end
+
+  specify "should accept hash constraints" do
+    @db.create_table(:cats) do
+      check :price=>100
+    end
+    @db.sqls.should == ["CREATE TABLE cats (CHECK (price = 100))"]
+  end
+
+  specify "should accept named constraint definitions" do
+    @db.create_table(:cats) do
+      integer :score
+      constraint :valid_score, 'score <= 100'
+    end
+    @db.sqls.should == ["CREATE TABLE cats (score integer, CONSTRAINT valid_score CHECK (score <= 100))"]
+  end
+
+  specify "should accept named constraint definitions with block" do
+    @db.create_table(:cats) do
+      constraint(:blah_blah) {(:x.sql_number > 0) & (:y.sql_number < 1)}
+    end
+    @db.sqls.should == ["CREATE TABLE cats (CONSTRAINT blah_blah CHECK ((x > 0) AND (y < 1)))"]
+  end
+
+  specify "should raise an error if an invalid constraint type is used" do
+    proc{@db.create_table(:cats){unique [:a, :b], :type=>:bb}}.should raise_error(Sequel::Error)
+  end
+
+  specify "should accept composite primary keys" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      primary_key [:a, :b]
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, PRIMARY KEY (a, b))"]
+  end
+
+  specify "should accept named composite primary keys" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      primary_key [:a, :b], :name => :cpk
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, CONSTRAINT cpk PRIMARY KEY (a, b))"]
+  end
+
+  specify "should accept composite foreign keys" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc)"]
+  end
+
+  specify "should accept named composite foreign keys" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :name => :cfk
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, CONSTRAINT cfk FOREIGN KEY (a, b) REFERENCES abc)"]
+  end
+
+  specify "should accept composite foreign keys with arbitrary keys" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :key => [:real_a, :real_b]
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc(real_a, real_b))"]
+    @db.sqls.clear
+
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :key => [:z, :x]
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc(z, x))"]
+  end
+
+  specify "should accept composite foreign keys with on delete and on update clauses" do
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :on_delete => :cascade
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc ON DELETE CASCADE)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :on_update => :no_action
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc ON UPDATE NO ACTION)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :on_delete => :restrict, :on_update => :set_default
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc ON DELETE RESTRICT ON UPDATE SET DEFAULT)"]
+
+    @db.sqls.clear
+    @db.create_table(:cats) do
+      integer :a
+      integer :b
+      foreign_key [:a, :b], :abc, :key => [:x, :y], :on_delete => :set_null, :on_update => :set_null
+    end
+    @db.sqls.should == ["CREATE TABLE cats (a integer, b integer, FOREIGN KEY (a, b) REFERENCES abc(x, y) ON DELETE SET NULL ON UPDATE SET NULL)"]
+  end
+end
+
+context "DB#create_table!" do
+  before do
+    @db = SchemaDummyDatabase.new
+  end
+  
+  specify "should drop the table and then create it" do
+    @db.create_table!(:cats) {}
+    @db.sqls.should == ['DROP TABLE cats', 'CREATE TABLE cats ()']
+  end
+end
+
+context "DB#create_table?" do
+  before do
+    @db = SchemaDummyDatabase.new
+  end
+  
+  specify "should not create the table if the table already exists" do
+    @db.meta_def(:table_exists?){|a| true}
+    @db.create_table?(:cats){|*a|}
+    @db.sqls.should == nil
+  end
+  
+  specify "should create the table if the table doesn't already exist" do
+    @db.meta_def(:table_exists?){|a| false}
+    @db.create_table?(:cats){|*a|}
+    @db.sqls.should == ['CREATE TABLE cats ()']
+  end
+end
+
+context "DB#drop_table" do
+  before do
+    @db = SchemaDummyDatabase.new
+  end
+
+  specify "should generate a DROP TABLE statement" do
+    @db.drop_table :cats
+    @db.sqls.should == ['DROP TABLE cats']
+  end
+end
+
+context "DB#alter_table" do
+  before do
+    @db = SchemaDummyDatabase.new
+  end
+  
+  specify "should allow adding not null constraint" do
+    @db.alter_table(:cats) do
+      set_column_allow_null :score, false
+    end
+    @db.sqls.should == ["ALTER TABLE cats ALTER COLUMN score SET NOT NULL"]
+  end
+  
+  specify "should allow droping not null constraint" do
+    @db.alter_table(:cats) do
+      set_column_allow_null :score, true
+    end
+    @db.sqls.should == ["ALTER TABLE cats ALTER COLUMN score DROP NOT NULL"]
+  end
+
+  specify "should support add_column" do
+    @db.alter_table(:cats) do
+      add_column :score, :integer
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD COLUMN score integer"]
+  end
+
+  specify "should support add_constraint" do
+    @db.alter_table(:cats) do
+      add_constraint :valid_score, 'score <= 100'
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD CONSTRAINT valid_score CHECK (score <= 100)"]
+  end
+
+  specify "should support add_constraint with block" do
+    @db.alter_table(:cats) do
+      add_constraint(:blah_blah) {(:x.sql_number > 0) & (:y.sql_number < 1)}
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD CONSTRAINT blah_blah CHECK ((x > 0) AND (y < 1))"]
+  end
+
+  specify "should support add_unique_constraint" do
+    @db.alter_table(:cats) do
+      add_unique_constraint [:a, :b]
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD UNIQUE (a, b)"]
+
+    @db.sqls.clear
+    @db.alter_table(:cats) do
+      add_unique_constraint [:a, :b], :name => :ab_uniq
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD CONSTRAINT ab_uniq UNIQUE (a, b)"]
+  end
+
+  specify "should support add_foreign_key" do
+    @db.alter_table(:cats) do
+      add_foreign_key :node_id, :nodes
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD COLUMN node_id integer REFERENCES nodes"]
+  end
+
+  specify "should support add_foreign_key with composite foreign keys" do
+    @db.alter_table(:cats) do
+      add_foreign_key [:node_id, :prop_id], :nodes_props
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD FOREIGN KEY (node_id, prop_id) REFERENCES nodes_props"]
+
+    @db.sqls.clear
+    @db.alter_table(:cats) do
+      add_foreign_key [:node_id, :prop_id], :nodes_props, :name => :cfk
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD CONSTRAINT cfk FOREIGN KEY (node_id, prop_id) REFERENCES nodes_props"]
+
+    @db.sqls.clear
+    @db.alter_table(:cats) do
+      add_foreign_key [:node_id, :prop_id], :nodes_props, :key => [:nid, :pid]
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD FOREIGN KEY (node_id, prop_id) REFERENCES nodes_props(nid, pid)"]
+
+    @db.sqls.clear
+    @db.alter_table(:cats) do
+      add_foreign_key [:node_id, :prop_id], :nodes_props, :on_delete => :restrict, :on_update => :cascade
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD FOREIGN KEY (node_id, prop_id) REFERENCES nodes_props ON DELETE RESTRICT ON UPDATE CASCADE"]
+  end
+
+  specify "should support add_index" do
+    @db.alter_table(:cats) do
+      add_index :name
+    end
+    @db.sqls.should == ["CREATE INDEX cats_name_index ON cats (name)"]
+  end
+
+  specify "should ignore errors if the database raises an error on an add_index call and the :ignore_errors option is used" do
+    @db.meta_def(:execute_ddl){|*a| raise Sequel::DatabaseError}
+    lambda{@db.add_index(:cats, :id)}.should raise_error(Sequel::DatabaseError)
+    lambda{@db.add_index(:cats, :id, :ignore_errors=>true)}.should_not raise_error(Sequel::DatabaseError)
+    @db.sqls.should == nil
+  end
+
+  specify "should support add_primary_key" do
+    @db.alter_table(:cats) do
+      add_primary_key :id
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD COLUMN id integer PRIMARY KEY AUTOINCREMENT"]
+  end
+
+  specify "should support add_primary_key with composite primary keys" do
+    @db.alter_table(:cats) do
+      add_primary_key [:id, :type]
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD PRIMARY KEY (id, type)"]
+
+    @db.sqls.clear
+    @db.alter_table(:cats) do
+      add_primary_key [:id, :type], :name => :cpk
+    end
+    @db.sqls.should == ["ALTER TABLE cats ADD CONSTRAINT cpk PRIMARY KEY (id, type)"]
+  end
+
+  specify "should support drop_column" do
+    @db.alter_table(:cats) do
+      drop_column :score
+    end
+    @db.sqls.should == ["ALTER TABLE cats DROP COLUMN score"]
+  end
+
+  specify "should support drop_constraint" do
+    @db.alter_table(:cats) do
+      drop_constraint :valid_score
+    end
+    @db.sqls.should == ["ALTER TABLE cats DROP CONSTRAINT valid_score"]
+  end
+
+  specify "should support drop_index" do
+    @db.alter_table(:cats) do
+      drop_index :name
+    end
+    @db.sqls.should == ["DROP INDEX cats_name_index"]
+  end
+
+  specify "should support drop_index with a given name" do
+    @db.alter_table(:cats) do
+      drop_index :name, :name=>:blah_blah
+    end
+    @db.sqls.should == ["DROP INDEX blah_blah"]
+  end
+
+  specify "should support rename_column" do
+    @db.alter_table(:cats) do
+      rename_column :name, :old_name
+    end
+    @db.sqls.should == ["ALTER TABLE cats RENAME COLUMN name TO old_name"]
+  end
+
+  specify "should support set_column_default" do
+    @db.alter_table(:cats) do
+      set_column_default :score, 3
+    end
+    @db.sqls.should == ["ALTER TABLE cats ALTER COLUMN score SET DEFAULT 3"]
+  end
+
+  specify "should support set_column_type" do
+    @db.alter_table(:cats) do
+      set_column_type :score, :real
+    end
+    @db.sqls.should == ["ALTER TABLE cats ALTER COLUMN score TYPE real"]
+  end
+
+  specify "should support set_column_type with options" do
+    @db.alter_table(:cats) do
+      set_column_type :score, :integer, :unsigned=>true
+      set_column_type :score, :varchar, :size=>30
+      set_column_type :score, :enum, :elements=>['a', 'b']
+    end
+    @db.sqls.should == ["ALTER TABLE cats ALTER COLUMN score TYPE integer UNSIGNED",
+      "ALTER TABLE cats ALTER COLUMN score TYPE varchar(30)",
+      "ALTER TABLE cats ALTER COLUMN score TYPE enum('a', 'b')"]
+  end
+end
+
+context "Schema Parser" do
+  before do
+    @sqls = []
+    @db = Sequel::Database.new
+  end
+
+  specify "should raise an error if there are no columns" do
+    @db.meta_def(:schema_parse_table) do |t, opts|
+      []
+    end
+    proc{@db.schema(:x)}.should raise_error(Sequel::Error)
+  end
+
+  specify "should parse the schema correctly for a single table" do
+    sqls = @sqls
+    proc{@db.schema(:x)}.should raise_error(Sequel::Error)
+    @db.meta_def(:schema_parse_table) do |t, opts|
+      sqls << t
+      [[:a, {:db_type=>t.to_s}]]
+    end
+    @db.schema(:x).should == [[:a, {:db_type=>"x", :ruby_default=>nil}]]
+    @sqls.should == ['x']
+    @db.schema(:x).should == [[:a, {:db_type=>"x", :ruby_default=>nil}]]
+    @sqls.should == ['x']
+    @db.schema(:x, :reload=>true).should == [[:a, {:db_type=>"x", :ruby_default=>nil}]]
+    @sqls.should == ['x', 'x']
+  end
+
+  specify "should convert various types of table name arguments" do
+    @db.meta_def(:schema_parse_table) do |t, opts|
+      [[t, {:db_type=>t}]]
+    end
+    s1 = @db.schema(:x)
+    s1.should == [['x', {:db_type=>'x', :ruby_default=>nil}]]
+    @db.schema(:x).object_id.should == s1.object_id
+    @db.schema(:x.identifier).object_id.should == s1.object_id
+    s2 = @db.schema(:x__y)
+    s2.should == [['y', {:db_type=>'y', :ruby_default=>nil}]]
+    @db.schema(:x__y).object_id.should == s2.object_id
+    @db.schema(:y.qualify(:x)).object_id.should == s2.object_id
+  end
+
+  specify "should correctly parse all supported data types" do
+    @db.meta_def(:schema_parse_table) do |t, opts|
+      [[:x, {:type=>schema_column_type(t.to_s)}]]
+    end
+    @db.schema(:tinyint).first.last[:type].should == :integer
+    @db.schema(:interval).first.last[:type].should == :interval
+    @db.schema(:int).first.last[:type].should == :integer
+    @db.schema(:integer).first.last[:type].should == :integer
+    @db.schema(:bigint).first.last[:type].should == :integer
+    @db.schema(:smallint).first.last[:type].should == :integer
+    @db.schema(:character).first.last[:type].should == :string
+    @db.schema(:"character varying").first.last[:type].should == :string
+    @db.schema(:varchar).first.last[:type].should == :string
+    @db.schema(:"varchar(255)").first.last[:type].should == :string
+    @db.schema(:text).first.last[:type].should == :string
+    @db.schema(:date).first.last[:type].should == :date
+    @db.schema(:datetime).first.last[:type].should == :datetime
+    @db.schema(:timestamp).first.last[:type].should == :datetime
+    @db.schema(:"timestamp with time zone").first.last[:type].should == :datetime
+    @db.schema(:"timestamp without time zone").first.last[:type].should == :datetime
+    @db.schema(:time).first.last[:type].should == :time
+    @db.schema(:"time with time zone").first.last[:type].should == :time
+    @db.schema(:"time without time zone").first.last[:type].should == :time
+    @db.schema(:boolean).first.last[:type].should == :boolean
+    @db.schema(:bit).first.last[:type].should == :boolean
+    @db.schema(:real).first.last[:type].should == :float
+    @db.schema(:float).first.last[:type].should == :float
+    @db.schema(:double).first.last[:type].should == :float
+    @db.schema(:"double precision").first.last[:type].should == :float
+    @db.schema(:numeric).first.last[:type].should == :decimal
+    @db.schema(:decimal).first.last[:type].should == :decimal
+    @db.schema(:money).first.last[:type].should == :decimal
+    @db.schema(:bytea).first.last[:type].should == :blob
+    @db.schema(:blob).first.last[:type].should == :blob
+    @db.schema(:image).first.last[:type].should == :blob
+    @db.schema(:nchar).first.last[:type].should == :string
+    @db.schema(:nvarchar).first.last[:type].should == :string
+    @db.schema(:ntext).first.last[:type].should == :string
+    @db.schema(:smalldatetime).first.last[:type].should == :datetime
+    @db.schema(:smallmoney).first.last[:type].should == :decimal
+    @db.schema(:binary).first.last[:type].should == :blob
+    @db.schema(:varbinary).first.last[:type].should == :blob
+    @db.schema(:enum).first.last[:type].should == :enum
+  end
+end