dm-core 0.9.2

data/spec/integration/repository_spec.rb

@@ -0,0 +1,57 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
+
+if ADAPTER
+  describe DataMapper::Repository, "with #{ADAPTER}" do
+    before :all do
+      class SerialFinderSpec
+        include DataMapper::Resource
+
+        property :id, Serial
+        property :sample, String
+
+        auto_migrate!(ADAPTER)
+      end
+
+      repository(ADAPTER).create((0...100).map { SerialFinderSpec.new(:sample => rand.to_s) })
+    end
+
+    before do
+      @repository = repository(ADAPTER)
+      @model      = SerialFinderSpec
+      @query      = DataMapper::Query.new(@repository, @model)
+    end
+
+    it "should throw an exception if the named repository is unknown" do
+      r = DataMapper::Repository.new(:completely_bogus)
+      lambda { r.adapter }.should raise_error(ArgumentError)
+    end
+
+    it "should return all available rows" do
+      @repository.read_many(@query).should have(100).entries
+    end
+
+    it "should allow limit and offset" do
+      @repository.read_many(@query.merge(:limit => 50)).should have(50).entries
+
+      collection = @repository.read_many(@query.merge(:limit => 20, :offset => 40))
+      collection.should have(20).entries
+      collection.map { |entry| entry.id }.should == @repository.read_many(@query)[40...60].map { |entry| entry.id }
+    end
+
+    it "should lazy-load missing attributes" do
+      sfs = @repository.read_one(@query.merge(:fields => [ :id ], :limit => 1))
+      sfs.should be_a_kind_of(@model)
+      sfs.should_not be_a_new_record
+
+      sfs.attribute_loaded?(:sample).should be_false
+      sfs.sample.should_not be_nil
+    end
+
+    it "should translate an Array to an IN clause" do
+      ids = @repository.read_many(@query.merge(:fields => [ :id ], :limit => 10)).map { |entry| entry.id }
+      results = @repository.read_many(@query.merge(:id => ids))
+
+      results.map { |entry| entry.id }.should == ids
+    end
+  end
+end

data/spec/integration/resource_spec.rb

@@ -0,0 +1,324 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
+
+if ADAPTER
+  class Orange
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :name, String, :key => true
+    property :color, String
+  end
+
+  class Apple
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :id, Serial
+    property :color, String, :default => 'green', :nullable => true
+  end
+
+  class FortunePig
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :id, Serial
+    property :name, String
+
+    def to_s
+      name
+    end
+
+    after :create do
+      @created_id = self.id
+    end
+
+    after :save do
+      @save_id = self.id
+    end
+  end
+
+  class Car
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :brand, String, :key => true
+    property :color, String
+    property :created_on, Date
+    property :touched_on, Date
+    property :updated_on, Date
+
+    before :save do
+      self.touched_on = Date.today
+    end
+
+    before :create do
+      self.created_on = Date.today
+    end
+
+    before :update do
+      self.updated_on = Date.today
+    end
+  end
+
+  class Male
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :id, Serial
+    property :name, String
+    property :iq, Integer, :default => 100
+    property :type, Discriminator
+    property :data, Object
+
+    def iq=(i)
+      attribute_set(:iq, i - 1)
+    end
+  end
+
+  class Bully < Male; end
+
+  class Mugger < Bully; end
+
+  class Maniac < Bully; end
+
+  class Psycho < Maniac; end
+
+  class Geek < Male
+    property :awkward, Boolean, :default => true
+
+    def iq=(i)
+      attribute_set(:iq, i + 30)
+    end
+  end
+
+  class Flanimal
+    include DataMapper::Resource
+
+    def self.default_repository_name
+      ADAPTER
+    end
+
+    property :id, Serial
+    property :type, Discriminator
+    property :name, String
+  end
+
+  class Sprog < Flanimal; end
+
+  describe "DataMapper::Resource with #{ADAPTER}" do
+    before :all do
+      Orange.auto_migrate!(ADAPTER)
+      Apple.auto_migrate!(ADAPTER)
+      FortunePig.auto_migrate!(ADAPTER)
+
+      orange = Orange.new(:color => 'orange')
+      orange.name = 'Bob' # Keys are protected from mass-assignment by default.
+      repository(ADAPTER) { orange.save }
+    end
+
+    it "should be able to overwrite Resource#to_s" do
+      repository(ADAPTER) do
+        ted = FortunePig.create!(:name => "Ted")
+        FortunePig.get!(ted.id).to_s.should == 'Ted'
+      end
+    end
+
+    it "should be able to destroy objects" do
+      apple = Apple.create!(:color => 'Green')
+      lambda do
+        apple.destroy.should be_true
+      end.should_not raise_error
+    end
+
+    it 'should return false to #destroy if the resource is new' do
+      Apple.new.destroy.should be_false
+    end
+
+    it "should be able to reload objects" do
+      orange = repository(ADAPTER) { Orange.get!('Bob') }
+      orange.color.should == 'orange'
+      orange.color = 'blue'
+      orange.color.should == 'blue'
+      orange.reload
+      orange.color.should == 'orange'
+    end
+
+    it "should be able to reload new objects" do
+      repository(ADAPTER) do
+        Orange.create(:name => 'Tom').reload
+      end
+    end
+
+    it "should be able to find first or create objects" do
+      repository(ADAPTER) do
+        orange = Orange.create(:name => 'Naval')
+
+        Orange.first_or_create(:name => 'Naval').should == orange
+
+        purple = Orange.first_or_create(:name => 'Purple', :color => 'Fuschia')
+        oranges = Orange.all(:name => 'Purple')
+        oranges.size.should == 1
+        oranges.first.should == purple
+      end
+    end
+
+    it "should be able to override a default with a nil" do
+      repository(ADAPTER) do
+        apple = Apple.new
+        apple.color = nil
+        apple.save
+        apple.color.should be_nil
+
+        apple = Apple.create(:color => nil)
+        apple.color.should be_nil
+      end
+    end
+
+    it "should be able to respond to create hooks" do
+      bob = repository(ADAPTER) { FortunePig.create(:name => 'Bob') }
+      bob.id.should_not be_nil
+      bob.instance_variable_get("@created_id").should == bob.id
+
+      fred = FortunePig.new(:name => 'Fred')
+      repository(ADAPTER) { fred.save }
+      fred.id.should_not be_nil
+      fred.instance_variable_get("@save_id").should == fred.id
+    end
+
+    it "should be dirty when Object properties are changed" do
+      # pending "Awaiting Property#track implementation"
+      repository(ADAPTER) do
+        Male.auto_migrate!
+      end
+      repository(ADAPTER) do
+        bob = Male.create(:name => "Bob", :data => {})
+        bob.dirty?.should be_false
+        bob.data.merge!(:name => "Bob")
+        bob.dirty?.should be_true
+        bob = Male.first
+        bob.data[:name] = "Bob"
+        bob.dirty?.should be_true
+      end
+    end
+
+    describe "hooking" do
+      before :all do
+        Car.auto_migrate!(ADAPTER)
+      end
+
+      it "should execute hooks before creating/updating objects" do
+        repository(ADAPTER) do
+          c1 = Car.new(:brand => 'BMW', :color => 'white')
+
+          c1.new_record?.should == true
+          c1.created_on.should == nil
+
+          c1.save
+
+          c1.new_record?.should == false
+          c1.touched_on.should == Date.today
+          c1.created_on.should == Date.today
+          c1.updated_on.should == nil
+
+          c1.color = 'black'
+          c1.save
+
+          c1.updated_on.should == Date.today
+        end
+
+      end
+
+    end
+
+    describe "inheritance" do
+      before :all do
+        Geek.auto_migrate!(ADAPTER)
+
+        repository(ADAPTER) do
+          Male.create!(:name => 'John Dorian')
+          Bully.create!(:name => 'Bob', :iq => 69)
+          Geek.create!(:name => 'Steve', :awkward => false, :iq => 132)
+          Geek.create!(:name => 'Bill', :iq => 150)
+          Bully.create!(:name => 'Johnson')
+          Mugger.create!(:name => 'Frank')
+          Maniac.create!(:name => 'William')
+          Psycho.create!(:name => 'Norman')
+        end
+
+        Flanimal.auto_migrate!(ADAPTER)
+
+      end
+
+      it "should test bug ticket #302" do
+        repository(ADAPTER) do
+          Sprog.create(:name => 'Marty')
+          Sprog.first(:name => 'Marty').should_not be_nil
+        end
+      end
+
+      it "should select appropriate types" do
+        repository(ADAPTER) do
+          males = Male.all
+          males.should have(8).entries
+
+          males.each do |male|
+            male.class.name.should == male.type.name
+          end
+
+          Male.first(:name => 'Steve').should be_a_kind_of(Geek)
+          Bully.first(:name => 'Bob').should be_a_kind_of(Bully)
+          Geek.first(:name => 'Steve').should be_a_kind_of(Geek)
+          Geek.first(:name => 'Bill').should be_a_kind_of(Geek)
+          Bully.first(:name => 'Johnson').should be_a_kind_of(Bully)
+          Male.first(:name => 'John Dorian').should be_a_kind_of(Male)
+        end
+      end
+
+      it "should not select parent type" do
+        repository(ADAPTER) do
+          Male.first(:name => 'John Dorian').should be_a_kind_of(Male)
+          Geek.first(:name => 'John Dorian').should be_nil
+          Geek.first.iq.should > Bully.first.iq
+        end
+      end
+
+      it "should select objects of all inheriting classes" do
+        repository(ADAPTER) do
+          Male.all.should have(8).entries
+          Geek.all.should have(2).entries
+          Bully.all.should have(5).entries
+          Mugger.all.should have(1).entries
+          Maniac.all.should have(2).entries
+          Psycho.all.should have(1).entries
+        end
+      end
+
+      it "should inherit setter method from parent" do
+        repository(ADAPTER) do
+          Bully.first(:name => "Bob").iq.should == 68
+        end
+      end
+
+      it "should be able to overwrite a setter in a child class" do
+        repository(ADAPTER) do
+          Geek.first(:name => "Bill").iq.should == 180
+        end
+      end
+    end
+  end
+end

data/spec/integration/sqlite3_adapter_spec.rb

@@ -0,0 +1,352 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
+
+if HAS_SQLITE3
+  describe DataMapper::Adapters::Sqlite3Adapter do
+    before :all do
+      @adapter = repository(:sqlite3).adapter
+    end
+
+    describe "auto migrating" do
+      before :all do
+        class Sputnik
+          include DataMapper::Resource
+
+          property :id, Serial
+          property :name, DM::Text
+        end
+      end
+
+      it "#upgrade_model should work" do
+        @adapter.destroy_model_storage(repository(:sqlite3), Sputnik)
+        @adapter.storage_exists?("sputniks").should == false
+        Sputnik.auto_migrate!(:sqlite3)
+        @adapter.storage_exists?("sputniks").should == true
+        @adapter.field_exists?("sputniks", "new_prop").should == false
+        Sputnik.property :new_prop, Integer
+        Sputnik.auto_upgrade!(:sqlite3)
+        @adapter.field_exists?("sputniks", "new_prop").should == true
+      end
+    end
+
+    describe "querying metadata" do
+      before :all do
+        class Sputnik
+          include DataMapper::Resource
+
+          property :id, Serial
+          property :name, DM::Text
+        end
+      end
+
+      before do
+        Sputnik.auto_migrate!(:sqlite3)
+      end
+
+      it "#storage_exists? should return true for tables that exist" do
+        @adapter.storage_exists?("sputniks").should == true
+      end
+
+      it "#storage_exists? should return false for tables that don't exist" do
+        @adapter.storage_exists?("space turds").should == false
+      end
+
+      it "#field_exists? should return true for columns that exist" do
+        @adapter.field_exists?("sputniks", "name").should == true
+      end
+
+      it "#storage_exists? should return false for tables that don't exist" do
+        @adapter.field_exists?("sputniks", "plur").should == false
+      end
+    end
+
+    describe "database file handling" do
+      it "should preserve the file path for file-based databases" do
+        file = 'newfile.db'
+        DataMapper.setup(:sqlite3file, "sqlite3:#{file}")
+        adapter = repository(:sqlite3file).adapter
+        adapter.uri.path.should == file
+      end
+
+      it "should have a path of just :memory: when using memory databases" do
+        DataMapper.setup(:sqlite3memory, "sqlite3::memory:")
+        adapter = repository(:sqlite3memory).adapter
+        adapter.uri.path.should == ':memory:'
+      end
+    end
+
+    describe "handling transactions" do
+      before :all do
+        class Sputnik
+          include DataMapper::Resource
+
+          property :id, Serial
+          property :name, DM::Text
+        end
+      end
+
+      before do
+        Sputnik.auto_migrate!(:sqlite3)
+
+        @transaction = DataMapper::Transaction.new(@adapter)
+      end
+
+      it "should rollback changes when #rollback_transaction is called" do
+        @transaction.commit do |transaction|
+          @adapter.execute("INSERT INTO sputniks (name) VALUES ('my pretty sputnik')")
+          transaction.rollback
+        end
+        @adapter.query("SELECT * FROM sputniks WHERE name = 'my pretty sputnik'").empty?.should == true
+      end
+
+      it "should commit changes when #commit_transaction is called" do
+        @transaction.commit do
+          @adapter.execute("INSERT INTO sputniks (name) VALUES ('my pretty sputnik')")
+        end
+        @adapter.query("SELECT * FROM sputniks WHERE name = 'my pretty sputnik'").size.should == 1
+      end
+    end
+
+    describe "reading & writing a database" do
+      before :all do
+        class User
+          include DataMapper::Resource
+
+          property :id, Serial
+          property :name, DM::Text
+        end
+      end
+
+      before do
+        User.auto_migrate!(:sqlite3)
+
+        @adapter.execute("INSERT INTO users (name) VALUES ('Paul')")
+      end
+
+      it 'should be able to #execute an arbitrary query' do
+        result = @adapter.execute("INSERT INTO users (name) VALUES ('Sam')")
+
+        result.affected_rows.should == 1
+      end
+
+      it 'should be able to #query' do
+        result = @adapter.query("SELECT * FROM users")
+
+        result.should be_kind_of(Array)
+        row = result.first
+        row.should be_kind_of(Struct)
+        row.members.should == %w{id name}
+
+        row.id.should == 1
+        row.name.should == 'Paul'
+      end
+
+      it 'should return an empty array if #query found no rows' do
+        @adapter.execute("DELETE FROM users")
+
+        result = nil
+        lambda { result = @adapter.query("SELECT * FROM users") }.should_not raise_error
+
+        result.should be_kind_of(Array)
+        result.size.should == 0
+      end
+    end
+
+    describe "CRUD for serial Key" do
+      before :all do
+        class VideoGame
+          include DataMapper::Resource
+
+          property :id, Serial
+          property :name, String
+          property :object, Object
+          property :notes, Text
+        end
+      end
+
+      before do
+        VideoGame.auto_migrate!(:sqlite3)
+      end
+
+      it 'should be able to create a record' do
+        time = Time.now
+        game = repository(:sqlite3) do
+          game = VideoGame.new(:name => 'System Shock', :object => time, :notes => "Test")
+          game.save
+          game.should_not be_a_new_record
+          game.should_not be_dirty
+          game
+        end
+        repository(:sqlite3) do
+          saved = VideoGame.first(:name => 'System Shock')
+          saved.id.should == game.id
+          saved.notes.should == game.notes
+          saved.object.should == time
+        end
+      end
+
+      it 'should be able to read a record' do
+        name = 'Wing Commander: Privateer'
+        id = @adapter.execute('INSERT INTO "video_games" ("name") VALUES (?)', name).insert_id
+
+        game = repository(:sqlite3) do
+          VideoGame.get(id)
+        end
+
+        game.name.should == name
+        game.should_not be_dirty
+        game.should_not be_a_new_record
+      end
+
+      it 'should be able to update a record' do
+        name = 'Resistance: Fall of Mon'
+        id = @adapter.execute('INSERT INTO "video_games" ("name") VALUES (?)', name).insert_id
+
+        game = repository(:sqlite3) do
+          VideoGame.get(id)
+        end
+
+        game.name = game.name.sub(/Mon/, 'Man')
+
+        game.should_not be_a_new_record
+        game.should be_dirty
+
+        repository(:sqlite3) do
+          game.save
+        end
+
+        game.should_not be_dirty
+
+        clone = repository(:sqlite3) do
+          VideoGame.get(id)
+        end
+
+        clone.name.should == game.name
+      end
+
+      it 'should be able to delete a record' do
+        name = 'Zelda'
+        id = @adapter.execute('INSERT INTO "video_games" ("name") VALUES (?)', name).insert_id
+
+        game = repository(:sqlite3) do
+          VideoGame.get(id)
+        end
+
+        game.name.should == name
+
+        repository(:sqlite3) do
+          game.destroy.should be_true
+        end
+        game.should be_a_new_record
+        game.should be_dirty
+      end
+
+      it 'should respond to Resource#get' do
+        name = 'Contra'
+        id = @adapter.execute('INSERT INTO "video_games" ("name") VALUES (?)', name).insert_id
+
+        contra = repository(:sqlite3) { VideoGame.get(id) }
+
+        contra.should_not be_nil
+        contra.should_not be_dirty
+        contra.should_not be_a_new_record
+        contra.id.should == id
+      end
+    end
+
+    describe "CRUD for Composite Key" do
+      before :all do
+        class BankCustomer
+          include DataMapper::Resource
+
+          property :bank, String, :key => true
+          property :account_number, String, :key => true
+          property :name, String
+        end
+      end
+
+      before do
+        BankCustomer.auto_migrate!(:sqlite3)
+      end
+
+      it 'should be able to create a record' do
+        customer = BankCustomer.new(:bank => 'Community Bank', :account_number => '123456', :name => 'David Hasselhoff')
+        repository(:sqlite3) do
+          customer.save
+        end
+
+        customer.should_not be_a_new_record
+        customer.should_not be_dirty
+
+        row = @adapter.query('SELECT "bank", "account_number" FROM "bank_customers" WHERE "name" = ?', customer.name).first
+        row.bank.should == customer.bank
+        row.account_number.should == customer.account_number
+      end
+
+      it 'should be able to read a record' do
+        bank, account_number, name = 'Chase', '4321', 'Super Wonderful'
+        @adapter.execute('INSERT INTO "bank_customers" ("bank", "account_number", "name") VALUES (?, ?, ?)', bank, account_number, name)
+
+        repository(:sqlite3) do
+          BankCustomer.get(bank, account_number).name.should == name
+        end
+      end
+
+      it 'should be able to update a record' do
+        bank, account_number, name = 'Wells Fargo', '00101001', 'Spider Pig'
+        @adapter.execute('INSERT INTO "bank_customers" ("bank", "account_number", "name") VALUES (?, ?, ?)', bank, account_number, name)
+
+        customer = repository(:sqlite3) do
+          BankCustomer.get(bank, account_number)
+        end
+
+        customer.name = 'Bat-Pig'
+
+        customer.should_not be_a_new_record
+        customer.should be_dirty
+
+        repository(:sqlite3) do
+          customer.save
+        end
+
+        customer.should_not be_dirty
+
+        clone = repository(:sqlite3) do
+          BankCustomer.get(bank, account_number)
+        end
+
+        clone.name.should == customer.name
+      end
+
+      it 'should be able to delete a record' do
+        bank, account_number, name = 'Megacorp', 'ABC', 'Flash Gordon'
+        @adapter.execute('INSERT INTO "bank_customers" ("bank", "account_number", "name") VALUES (?, ?, ?)', bank, account_number, name)
+
+        customer = repository(:sqlite3) do
+          BankCustomer.get(bank, account_number)
+        end
+
+        customer.name.should == name
+
+        repository(:sqlite3) do
+          customer.destroy.should be_true
+        end
+
+        customer.should be_a_new_record
+        customer.should be_dirty
+      end
+
+      it 'should respond to Resource#get' do
+        bank, account_number, name = 'Conchords', '1100101', 'Robo Boogie'
+        @adapter.execute('INSERT INTO "bank_customers" ("bank", "account_number", "name") VALUES (?, ?, ?)', bank, account_number, name)
+
+        robots = repository(:sqlite3) { BankCustomer.get(bank, account_number) }
+
+        robots.should_not be_nil
+        robots.should_not be_dirty
+        robots.should_not be_a_new_record
+        robots.bank.should == bank
+        robots.account_number.should == account_number
+      end
+    end
+  end
+end