require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'spec_helper'))

describe DataMapper::Resource::State::Dirty do
  before :all do
    class ::Author
      include DataMapper::Resource

      property :id,     HugeInteger, :key => true, :default => 1
      property :name,   String
      property :active, Boolean,     :default => true
      property :coding, Boolean,     :default => true

      belongs_to :parent, self, :required => false
      has n, :children, self, :inverse => :parent
    end

    @model = Author
  end

  before do
    @resource = @model.create(:name => 'Dan Kubb')
    @resource.attributes = { :name => 'John Doe' }

    @state = @resource.persisted_state
    @state.should be_kind_of(DataMapper::Resource::State::Dirty)
  end

  after do
    @resource.destroy
  end

  after do
    @model.all.destroy!
  end

  describe '#commit' do
    subject { @state.commit }

    supported_by :all do
      before do
        @new_id = @resource.id = @resource.id.succ
      end

      it 'should return a Clean state' do
        should eql(DataMapper::Resource::State::Clean.new(@resource))
      end

      it 'should update the resource' do
        subject
        @model.get!(*@resource.key).should == @resource
      end

      it 'should update the resource to the identity map if the key changed' do
        identity_map = @resource.repository.identity_map(@model)
        identity_map.should == { @resource.key => @resource }
        subject
        identity_map.should == { [ @new_id ] => @resource }
      end
    end
  end

  describe '#delete' do
    subject { @state.delete }

    supported_by :all do
      before do
        @resource.children = [ @resource.parent = @resource ]
      end

      it_should_behave_like 'It resets resource state'

      it 'should return a Deleted state' do
        should eql(DataMapper::Resource::State::Deleted.new(@resource))
      end
    end
  end

  describe '#get' do
    before do
      @loaded_value = 'John Doe'
    end

    it_should_behave_like 'Resource::State::Persisted#get'
  end

  describe '#rollback' do
    subject { @state.rollback }

    supported_by :all do
      before do
        @resource.children = [ @resource.parent = @resource ]
      end

      it_should_behave_like 'It resets resource state'

      it 'should return a Clean state' do
        should eql(DataMapper::Resource::State::Clean.new(@resource))
      end
    end
  end

  describe '#set' do
    subject { @state.set(@key, @value) }

    supported_by :all do
      describe 'with attributes that keep the resource dirty' do
        before do
          @key   = @model.properties[:name]
          @value = @key.get!(@resource)
        end

        it_should_behave_like 'A method that delegates to the superclass #set'

        it 'should return a Dirty state' do
          should equal(@state)
        end
      end

      describe 'with attributes that make the resource clean' do
        before do
          @key   = @model.properties[:name]
          @value = 'Dan Kubb'
        end

        it_should_behave_like 'A method that delegates to the superclass #set'

        it 'should return a Clean state' do
          should eql(DataMapper::Resource::State::Clean.new(@resource))
        end
      end
    end
  end
end