dbagile 0.0.1

data/test/contract/robust/schema/transaction_driven.spec

@@ -0,0 +1,19 @@
+shared_examples_for "A robust Contract::Schema::TransactionDriven" do
+
+  it "should raise a TableAlreadyExistsError on create_table if name is already in use" do
+  
+    subject.has_table?(:basic_values).should be_true
+
+    lambda{ subject.create_table(:basic_values, :id => Integer) }.should raise_error(DbAgile::TableAlreadyExistsError)
+  
+  end
+
+  it "should raise a NoSuchTableError on drop_table if the table does not exist" do
+  
+    subject.has_table?(:unexisting).should be_false
+
+    lambda{ subject.drop_table(:unexisting) }.should raise_error(DbAgile::NoSuchTableError)
+  
+  end
+
+end

data/test/contract/schema/table_driven/column_names.ex

@@ -0,0 +1,5 @@
+it "should return valid columns when table exists" do
+  
+  subject.column_names(:basic_values, true).should == basic_values_keys
+  
+end

data/test/contract/schema/table_driven/has_column_q.ex

@@ -0,0 +1,13 @@
+it "should return true on exising column" do
+  
+  subject.has_column?(:basic_values, :id).should be_true
+  
+end
+
+it "should return true on unexising column" do
+  
+  subject.has_column?(:basic_values, :unexisting).should be_false
+  
+end
+
+

data/test/contract/schema/table_driven/has_table_q.ex

@@ -0,0 +1,11 @@
+it "should return true on existing tables" do
+  
+  subject.has_table?(:basic_values).should be_true
+  
+end
+
+it "should return false on unexisting tables" do
+  
+  subject.has_table?(:unexisting).should be_false
+  
+end

data/test/contract/schema/table_driven/heading.ex

@@ -0,0 +1,5 @@
+it "should return valid valid heading when table exists" do
+  
+  subject.heading(:basic_values).should == basic_values_heading
+  
+end

data/test/contract/schema/table_driven.spec

@@ -0,0 +1,9 @@
+shared_examples_for "A Contract::Schema::TableDriven" do
+
+  ::DbAgile::Contract::Schema::TableDriven.instance_methods(false).each do |meth|
+    it { should respond_to(meth) }
+  end
+  
+  dbagile_install_examples(__FILE__, self)
+
+end

data/test/contract/schema/transaction_driven/create_table.ex

@@ -0,0 +1,10 @@
+it "should allow creating tables if the don't exist" do
+  
+  subject.has_table?(:unexisting).should be_false
+  
+  subject.create_table(:unexisting, :id => Integer).should == {:id => Integer}
+  
+  subject.has_table?(:unexisting).should be_true
+  
+end
+

data/test/contract/schema/transaction_driven/drop_table.ex

@@ -0,0 +1,10 @@
+it "should allow removing tables that exist" do
+  
+  subject.has_table?(:existing).should be_true
+  
+  subject.drop_table(:existing).should be_true
+  
+  subject.has_table?(:existing).should be_false
+  
+end
+

data/test/contract/schema/transaction_driven.spec

@@ -0,0 +1,18 @@
+shared_examples_for "A Contract::Schema::TransactionDriven" do
+
+  ::DbAgile::Contract::Schema::TransactionDriven.instance_methods(false).each do |meth|
+    it { should respond_to(meth) }
+  end
+  
+  before(:each){ 
+    subject.drop_table(:unexisting) if subject.has_table?(:unexisting) 
+    subject.create_table(:existing, :id => Integer) unless subject.has_table?(:existing)
+  }
+  after(:each){ 
+    subject.drop_table(:unexisting) if subject.has_table?(:unexisting) 
+    subject.drop_table(:existing)   if subject.has_table?(:existing) 
+  }
+  
+  dbagile_install_examples(__FILE__, self)
+
+end

data/test/contract.spec

@@ -0,0 +1,66 @@
+require File.expand_path('../spec_helper', __FILE__)
+dbagile_load_all_subspecs(__FILE__)
+describe "DbAgile::Contract /" do
+  
+  let(:basic_values)        { DbAgile::Fixtures::basic_values         }
+  let(:basic_values_heading){ DbAgile::Fixtures::basic_values_heading }
+  let(:basic_values_tuple)  { DbAgile::Fixtures::basic_values_tuple   }
+  let(:basic_values_keys)   { DbAgile::Fixtures::basic_values_keys    }
+  
+  DbAgile::Fixtures::environment.each_database do |database|
+    next if database.name == :unexisting
+    unless database.ping?
+      puts "skipping #{database.name} (no ping)"
+      next
+    end
+  
+    describe "on #{database.name} /" do
+    
+      let(:conn)  { database.connect                     }
+      let(:trans) { DbAgile::Core::Transaction.new(conn) }
+  
+      describe "::DbAgile::Core::Connection" do
+        subject{ conn }
+        it_should_behave_like("A Contract::Connection")
+        it_should_behave_like("A Contract::Data::TableDriven")
+        it_should_behave_like("A Contract::Schema::TableDriven")
+        if /robust/ =~ database.name.to_s
+          it_should_behave_like("A robust Contract::Data::TableDriven")
+          it_should_behave_like("A robust Contract::Schema::TableDriven")
+        end
+      end
+
+      describe "::DbAgile::Core::Transaction" do
+        subject{ trans  }
+        it_should_behave_like("A Contract::Connection")
+        it_should_behave_like("A Contract::Data::TableDriven")
+        it_should_behave_like("A Contract::Data::TransactionDriven")
+        it_should_behave_like("A Contract::Schema::TableDriven")
+        it_should_behave_like("A Contract::Schema::TransactionDriven")
+        if /robust/ =~ database.name.to_s
+          it_should_behave_like("A robust Contract::Data::TableDriven")
+          it_should_behave_like("A robust Contract::Data::TransactionDriven")
+          it_should_behave_like("A robust Contract::Schema::TableDriven")
+          it_should_behave_like("A robust Contract::Schema::TransactionDriven")
+        end
+      end
+
+      describe "Result of dataset(Symbol)" do
+        subject{ conn.dataset(:basic_values) }
+        it_should_behave_like("A Contract::Data::Dataset")
+      end
+  
+      describe "Result of dataset(String)" do
+        subject{ conn.dataset("SELECT * FROM basic_values") }
+        it_should_behave_like("A Contract::Data::Dataset")
+      end
+
+      describe "Result of direct_sql('SELECT ...')" do
+        subject{ trans.direct_sql("SELECT * FROM basic_values") }
+        it_should_behave_like("A Contract::Data::Dataset")
+      end
+
+    end # on #{database.name}
+  end # each database
+  
+end # describe DbAgile::Contract

data/test/fixtures/basics/data/basic_values.rb

@@ -0,0 +1,13 @@
+[
+  {:neg_fixnum  => -1, 
+   :pos_bignum  => 4294967296, 
+   :name        => "Standard values", 
+   :neg_bignum  => -4294967296, 
+   :true_value  => true, 
+   :now         => Time::parse("Fri Jul 16 00:09:56 +0200 2010"), 
+   :false_value => false, 
+   :id          => 1,
+   :date        => Date::parse("2010-07-16"), 
+   :pos_fixnum  => 1,
+   :ruby_nil    => nil}
+]

data/test/fixtures/basics/data/empty_table.rb

@@ -0,0 +1,3 @@
+[
+  {:id => 1}
+]

data/test/fixtures/basics/data/non_empty_table.rb

@@ -0,0 +1,4 @@
+[
+  {:id => 1, :english => "One"},
+  {:id => 2, :english => "Two"}
+]

data/test/fixtures/basics/data/parts.rb

@@ -0,0 +1,8 @@
+[
+  {:'p#' => 'P1', :name => 'Nut',   :color => 'Red',   :weight => 12.0, :city => 'London'},
+  {:'p#' => 'P2', :name => 'Bolt',  :color => 'Green', :weight => 17.0, :city => 'Paris'},
+  {:'p#' => 'P3', :name => 'Screw', :color => 'Blue',  :weight => 17.0, :city => 'Oslo'},
+  {:'p#' => 'P4', :name => 'Screw', :color => 'Red',   :weight => 14.0, :city => 'London'},
+  {:'p#' => 'P5', :name => 'Cam',   :color => 'Blue',  :weight => 12.0, :city => 'Paris'},
+  {:'p#' => 'P6', :name => 'Cog',   :color => 'Red',   :weight => 19.0, :city => 'London'}
+]

data/test/fixtures/basics/data/suppliers.rb

@@ -0,0 +1,7 @@
+[
+  {:'s#' => 'S1', :name => 'Smith', :status => 20, :city => 'London'},
+  {:'s#' => 'S2', :name => 'Jones', :status => 10, :city => 'Paris'},
+  {:'s#' => 'S3', :name => 'Blake', :status => 30, :city => 'Paris'},
+  {:'s#' => 'S4', :name => 'Clark', :status => 20, :city => 'London'},
+  {:'s#' => 'S5', :name => 'Adams', :status => 30, :city => 'Athens'}
+]

data/test/fixtures/basics/data/supplies.rb

@@ -0,0 +1,14 @@
+[
+  {:'s#' => 'S1', :'p#' => 'P1', :quantity => 300},
+  {:'s#' => 'S1', :'p#' => 'P2', :quantity => 200},
+  {:'s#' => 'S1', :'p#' => 'P3', :quantity => 400},
+  {:'s#' => 'S1', :'p#' => 'P4', :quantity => 200},
+  {:'s#' => 'S1', :'p#' => 'P5', :quantity => 100},
+  {:'s#' => 'S1', :'p#' => 'P6', :quantity => 100},
+  {:'s#' => 'S2', :'p#' => 'P1', :quantity => 300},
+  {:'s#' => 'S2', :'p#' => 'P2', :quantity => 400},
+  {:'s#' => 'S3', :'p#' => 'P2', :quantity => 200},
+  {:'s#' => 'S4', :'p#' => 'P2', :quantity => 200},
+  {:'s#' => 'S4', :'p#' => 'P4', :quantity => 300},
+  {:'s#' => 'S4', :'p#' => 'P5', :quantity => 400}
+]

data/test/fixtures/basics/dbagile.idx

@@ -0,0 +1,20 @@
+--- 
+version: 0.0.1
+databases: 
+  unexisting: 
+    uri: postgres://dbagile@localhost/dbagile_unexisting
+  sqlite: 
+    uri: test.db
+    announced_schema: 
+    - fixtures.yaml
+  robust: 
+    uri: robust.db
+    announced_schema: 
+    - fixtures.yaml
+    plugins: 
+    - DbAgile::Contract::Robust::Optimistic
+  postgres: 
+    uri: postgres://dbagile@localhost/dbagile_test
+    announced_schema: 
+    - fixtures.yaml
+current: sqlite

data/test/fixtures/basics/fixtures.yaml

@@ -0,0 +1,28 @@
+--- 
+logical: 
+  basic_values: 
+    heading: 
+      date: {domain: Date, mandatory: false}
+      false_value: {domain: SByC::TypeSystem::Ruby::Boolean, mandatory: false}
+      id: {domain: Integer, mandatory: false}
+      name: {domain: String, mandatory: false}
+      neg_bignum: {domain: Integer, mandatory: false}
+      neg_fixnum: {domain: Integer, mandatory: false}
+      now: {domain: Time, mandatory: false}
+      pos_bignum: {domain: Integer, mandatory: false}
+      pos_fixnum: {domain: Integer, mandatory: false}
+      ruby_nil: {domain: String, mandatory: false}
+      true_value: {domain: SByC::TypeSystem::Ruby::Boolean, mandatory: false}
+    constraints:
+      pk: { type: primary_key, attributes: ['id'] }
+  empty_table: 
+    heading: 
+      id: {domain: Integer, mandatory: false}
+    constraints:
+      pk: { type: primary_key, attributes: ['id'] }
+  non_empty_table: 
+    heading: 
+      id: {domain: Integer, mandatory: false}
+      english: {domain: String, mandatory: false}
+    constraints:
+      pk: { type: primary_key, attributes: ['id'] }

data/test/fixtures/basics/suppliers.yaml

@@ -0,0 +1,30 @@
+--- 
+logical: 
+  suppliers: 
+    heading: 
+      s#:    { domain: Integer, mandatory: true }
+      name:  { domain: String,  mandatory: true }
+      city:  { domain: String,  mandatory: true }
+    constraints: 
+      pk: { type: :primary_key, attributes: [ 's#' ] }
+  parts: 
+    heading: 
+      p#:    { domain: Integer, mandatory: true }
+      name:  { domain: String,  mandatory: true }
+      color: { domain: String,  mandatory: true }
+    constraints: 
+      pk: { type: :primary_key, attributes: [ 'p#' ] }
+  supplies: 
+    heading: 
+      s#:    { domain: Integer, mandatory: true }
+      p#:    { domain: Integer, mandatory: true }
+      qty:   { domain: Integer, mandatory: true }
+    constraints: 
+      pk: { type: :primary_key, attributes: [ 's#', 'p#' ] }
+      is_a_known_supplier: { type: :foreign_key, attributes: [ 's#' ], references: suppliers }
+      is_a_known_part:     { type: :foreign_key, attributes: [ 'p#' ], references: parts     }
+---
+physical:
+  indexes:
+    supplier_name: { relvar: suppliers, attributes: [ 'name' ] }
+  

data/test/fixtures/empty/dbagile.idx

@@ -0,0 +1,5 @@
+--- 
+version: 0.0.1
+databases: {}
+
+current: ""

data/test/fixtures.rb

@@ -0,0 +1,152 @@
+module DbAgile
+  #
+  # Provides helper methods about fixture databases
+  #
+  module Fixtures
+    include DbAgile::Environment::Delegator
+    include DbAgile::Tools::Tuple
+    
+    # Returns path to a repository
+    def repository_path(name)
+      File.expand_path("../fixtures/#{name}", __FILE__)
+    end
+    
+    # Cleans and recreated the empty repository
+    def ensure_empty_repository!
+      path = repository_path(:empty)
+      FileUtils.rm_rf(path)
+      DbAgile::Core::Repository::create!(path)
+      path
+    end
+    
+    # Returns the fixture environment
+    def environment
+      env = DbAgile::Environment.new 
+      env.repository_path = repository_path(:basics)
+      env.output_buffer = StringIO.new
+      env.message_buffer = StringIO.new
+      env.interactive = true
+      env.console_width = 10
+      env
+    end
+    
+    # Returns the path to the table/basic_values.rb file
+    def basic_values_path
+      File.expand_path('../fixtures/basics/data/basic_values.rb', __FILE__)
+    end
+    
+    # Yields the block with each table file in turn
+    def each_table_file
+      Dir[File.expand_path('../fixtures/basics/data/*.rb', __FILE__)].each{|file| 
+        name = File.basename(file, ".rb")
+        yield(name, file)
+      }
+    end
+    
+    # Creates the physical databases for fixtures
+    def create_physical_databases
+      FileUtils.rm_rf File.expand_path('../fixtures/basics/test.db', __FILE__)
+      FileUtils.rm_rf File.expand_path('../fixtures/basics/robust.db', __FILE__)
+      require 'readline'
+      puts "#################################################################################"
+      puts "ATTENTION: This task will create physical test databases on your computer"
+      puts "           A password will probably be asked as this task relies on 'sudo'."
+      puts "           Please provide the root password"
+      puts "#################################################################################"
+      Readline.readline("Press enter to start")
+      puts "Creating the physical postgresql database ..."
+      puts `sudo su postgres -c 'dropdb dbagile_test'`
+      puts `sudo su postgres -c 'dropuser dbagile'`
+      puts `sudo su postgres -c 'createuser --no-superuser --no-createrole --createdb dbagile'`
+      puts `sudo su postgres -c 'createdb --encoding=utf8 --owner=dbagile dbagile_test'`
+      puts 
+      puts "#################################################################################"
+      puts "Done."
+      puts "Please run 'rake fixtures'"
+      puts "#################################################################################"
+      true
+    end
+    
+    # Ensures that physical databases are created
+    def ensure_physical_databases!
+      @ensure_physical_databases ||= create_physical_databases
+    end
+    
+    # Creates logical fixtures
+    def create_fixtures
+      ensure_physical_databases!
+      DbAgile::dba(environment) do |dba|
+        dba.output_buffer = STDOUT
+        dba.console_width = nil
+        dba.repository.each do |db|
+          if db.ping?
+            puts "Installing fixture database on #{db.name.inspect}"
+            dba.db_use(db.name)
+            each_table_file{|name, file|
+              dba.bulk_import ["--ruby", "--drop-table", "--create-table", "--input=#{file}", name]
+            }
+            dba.sql_send "DELETE FROM empty_table"
+          else
+            puts "Skipping fixture database #{db.name.inspect} (no ping)"
+          end
+        end
+      end
+    end
+    
+    # Returns basic_values tuple
+    def basic_values_tuple
+      basic_values[0]
+    end
+    
+    # Returns basic_values keys (sorted by name)
+    def basic_values_keys
+      basic_values_tuple.keys.sort{|a,b| a.to_s <=> b.to_s}
+    end
+
+    # Returns basic_values heading
+    def basic_values_heading
+      heading = {}
+      basic_values[0].each_pair do |key, value|
+        heading[key] = case value
+          when NilClass
+            String
+          when TrueClass, FalseClass
+            SByC::TypeSystem::Ruby::Boolean
+          when Fixnum, Bignum
+            Integer
+          else
+            value.class
+        end
+      end
+      heading
+    end
+    
+    # Empty the basic values on a db
+    def empty_basic_values(db)
+      db.with_connection{|c|
+        c.transaction{|t| t.delete(:basic_values) }
+      }
+    end
+    
+    # Restored the basic values on a db
+    def restore_basic_values(db)
+      db.with_connection{|c|
+        c.transaction{|t| 
+          t.delete(:basic_values) 
+          t.insert(:basic_values, basic_values[0])
+        }
+      }
+    end
+    
+    # Adds class methods now
+    extend Fixtures
+    
+    # Provide helpers to get the contents of the tables
+    each_table_file do |name, file|
+      define_method name do
+        Kernel.eval(File.read(file))
+      end
+    end
+
+  end # module Fixtures
+end # module DbAgile

data/test/restful/delete/no_format.ex

@@ -0,0 +1,32 @@
+# no format
+describe "without extension /" do
+  
+  it "should work as expected when no projection is provided" do
+    client.delete(basic_values_uri){|res,http|
+      res.content_type.should == 'application/json'
+      res.body.should be_a_valid_json_string
+      JSON::load(res.body).should == {"ok" => true}
+    }
+    
+    # all tuples should have been deleted
+    client.get(basic_values_uri('.json')){|res,http|
+      res.body.should be_a_valid_json_string
+      JSON::load(res.body).should == []
+    }
+  end
+  
+  it "should work as expected when a projection is provided" do
+    client.delete(basic_values_uri, {:id => 2}){|res,http|
+      res.content_type.should == 'application/json'
+      res.body.should be_a_valid_json_string
+      JSON::load(res.body).should == {"ok" => true}
+    }
+    
+    # all tuples should have been deleted
+    client.get(basic_values_uri('.json')){|res,http|
+      res.body.should be_a_valid_json_string
+      JSON::load(res.body).size.should.should == 1
+    }
+  end
+  
+end

data/test/restful/delete.spec

@@ -0,0 +1,8 @@
+shared_examples_for("The Restful DELETE interface") do
+  
+  before(:each){ DbAgile::Fixtures::restore_basic_values(database) }
+  after(:each) { DbAgile::Fixtures::restore_basic_values(database) }
+  
+  dbagile_install_examples(__FILE__, self)
+  
+end

data/test/restful/get/csv_format.ex

@@ -0,0 +1,12 @@
+# .csv
+describe "when called with .csv extension" do
+  
+  it "should return a text/csv string" do
+    client.get(basic_values_uri('.csv')){|res,http|
+      res.content_type.should == 'text/csv'
+      res.body.should =~ /Standard values/
+    }
+  end
+  
+end # .csv
+

data/test/restful/get/json_format.ex

@@ -0,0 +1,19 @@
+# .json
+describe "when called with .json extension" do
+  
+  it "should return a valid JSON string" do
+    client.get(basic_values_uri('.json')){|res,http|
+      res.content_type.should == 'application/json'
+      res.body.should be_a_valid_json_string
+    }
+  end
+  
+  it "should be the default" do
+    client.get(basic_values_uri){|res,http|
+      res.content_type.should == 'application/json'
+      res.body.should be_a_valid_json_string
+    }
+  end
+  
+end # .json
+

data/test/restful/get/query_string.ex

@@ -0,0 +1,11 @@
+describe "it should support projection through the query string" do
+  
+  it "should correctly project the table" do
+    client.get(basic_values_uri('.json'), {:id => 0}){|res,http|
+      res.body.should be_a_valid_json_string
+      JSON::parse(res.body).size.should == 0
+    }
+  end
+  
+  
+end

data/test/restful/get/text_format.ex

@@ -0,0 +1,12 @@
+# .txt
+describe "when called with .txt extension" do
+  
+  it "should return a text string" do
+    client.get(basic_values_uri('.txt')){|res,http|
+      res.content_type.should == 'text/plain'
+      res.body.should =~ /Standard values/
+    }
+  end
+  
+end # .csv
+

data/test/restful/get/yaml_format.ex

@@ -0,0 +1,14 @@
+# .yaml
+[".yaml", ".yml"].each do |ext|
+  describe "when called with #{ext} extension" do
+  
+    it "should return a valid YAML string" do
+      client.get(basic_values_uri(ext)){|res,http|
+        res.content_type.should == 'text/yaml'
+        res.body.should be_a_valid_yaml_string
+      }
+    end
+  
+  end
+end  # .yaml
+

data/test/restful/get.spec

@@ -0,0 +1,5 @@
+shared_examples_for("The Restful GET interface") do
+  
+  dbagile_install_examples(__FILE__, self)
+  
+end

data/test/restful/post/no_format.ex

@@ -0,0 +1,22 @@
+# no format
+describe "when no extension is provided" do
+  
+  it "should return a valid JSON string" do
+    client.post(basic_values_uri, {:id => 2, :name => "This is a second test"}){|res,http|
+      res.content_type.should == 'application/json'
+      res.body.should be_a_valid_json_string
+      res.body.should =~ /This is a second test/
+    }
+    
+    # tuple should be inserted
+    client.get(basic_values_uri('.json'), {:id => 2}){|res,http|
+      res.body.should =~ /This is a second test/
+    }
+    
+    # other tuples should not been touched
+    client.get(basic_values_uri('.json')){|res,http|
+      res.body.should =~ /Standard values/
+    }
+  end
+  
+end

data/test/restful/post.spec

@@ -0,0 +1,8 @@
+shared_examples_for("The Restful POST interface") do
+  
+  before(:each){ DbAgile::Fixtures::restore_basic_values(database) }
+  after(:each) { DbAgile::Fixtures::restore_basic_values(database) }
+  
+  dbagile_install_examples(__FILE__, self)
+  
+end