mr_darcy 0.1.0

data/spec/acceptance/dci_bank_transfer_spec.rb

@@ -0,0 +1,62 @@
+require 'spec_helper'
+
+class BankTransfer < MrDarcy::Context
+  role :money_source do
+    def has_available_funds? amount
+      available_balance >= amount
+    end
+
+    def subtract_funds amount
+      self.available_balance = available_balance - amount
+    end
+  end
+
+  role :money_destination do
+    def receive_funds amount
+      self.available_balance = available_balance + amount
+    end
+  end
+
+  action :transfer do |amount|
+    if money_source.has_available_funds? amount
+      money_source.subtract_funds amount
+      money_destination.receive_funds amount
+    else
+      raise "insufficient funds"
+    end
+    amount
+  end
+end
+
+Account = Struct.new(:available_balance)
+
+describe 'DCI Bank Transfer' do
+  let(:money_source)      { Account.new source_balance }
+  let(:money_destination) { Account.new destination_balance }
+
+  MrDarcy.all_drivers.each do |driver|
+    if driver == :synchronous
+      describe "Driver #{driver}" do
+        let(:context) { BankTransfer.new money_source: money_source, money_destination: money_destination, driver: driver }
+
+        When 'the source balance is 10' do
+          let(:source_balance) { 10 }
+
+          And 'the destination balance is 5' do
+            let(:destination_balance) { 5 }
+
+            When 'I transfer 8' do
+              subject { context.transfer(8).final }
+
+              its('money_source.available_balance')      { should eq 2 }
+              its('money_destination.available_balance') { should eq 13 }
+              its(:result) { should be_nil }
+            end
+          end
+        end
+      end
+    else
+      pending "not working with driver #{driver} :("
+    end
+  end
+end

data/spec/acceptance/em_http_request_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+require 'eventmachine'
+require 'em-http-request'
+
+describe "Wrapping em-http-request" do
+  let(:promise) do
+    MrDarcy::Promise.new driver: :em do |p|
+      http = EM::HttpRequest.new('http://camp.ruby.org.nz/').get
+      http.errback do
+        p.reject http.error
+      end
+      http.callback do
+        p.resolve http.response
+      end
+    end
+  end
+
+  subject { promise }
+
+  it_should_behave_like 'a resolved promise'
+  its(:result) { should match /Rails Camp NZ/i }
+end

data/spec/acceptance/open-uri_http_request_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+require 'open-uri'
+
+describe "Wrapping OpenURI" do
+  MrDarcy.all_drivers.each do |driver|
+    describe "driver #{driver}" do
+      let(:promise) do
+        MrDarcy::Promise.new driver: driver do |p|
+          open('http://camp.ruby.org.nz') do |f|
+            p.resolve f.read
+          end
+        end
+      end
+
+      subject { promise }
+
+      it_should_behave_like 'a resolved promise'
+      its(:result) { should match /Rails Camp NZ/i }
+    end
+  end
+end

data/spec/acceptance/simple_promise_spec.rb

@@ -0,0 +1,25 @@
+require 'spec_helper'
+
+describe "Simple promise" do
+
+  MrDarcy.all_drivers.each do |driver|
+    describe "with driver #{driver}" do
+      let(:promise) { MrDarcy::Promise.new(driver: driver, &promise_block) }
+      subject { promise }
+
+      When 'the promise resolves' do
+        let(:promise_block) { proc { |p| p.resolve 1 } }
+
+        it_should_behave_like 'a resolved promise'
+        its(:result) { should eq 1 }
+      end
+
+      When 'the promise rejects' do
+        let(:promise_block) { proc { |p| p.reject 1 } }
+
+        it_should_behave_like 'a rejected promise'
+        its(:result) { should eq 1 }
+      end
+    end
+  end
+end

data/spec/acceptance/simple_promise_with_chained_fail.rb

@@ -0,0 +1,25 @@
+require 'spec_helper'
+
+describe "Promise with then and fail" do
+
+  MrDarcy.all_drivers.each do |driver|
+    describe "with driver #{driver}" do
+      let(:promise) { MrDarcy::Promise.new(driver: driver, &promise_block).then {}.fail { |v| v+1 } }
+      subject { promise }
+
+      When 'the promise resolves' do
+        let(:promise_block) { proc { |p| p.resolve 1 } }
+
+        it_should_behave_like 'a resolved promise'
+        its(:result) { should be_nil }
+      end
+
+      When 'the promise rejects' do
+        let(:promise_block) { proc { |p| p.reject 1 } }
+
+        it_should_behave_like 'a rejected promise'
+        its(:result) { should eq 2 }
+      end
+    end
+  end
+end

data/spec/acceptance/simple_promise_with_fail_spec.rb

@@ -0,0 +1,25 @@
+require 'spec_helper'
+
+describe "Promise with fail" do
+
+  MrDarcy.all_drivers.each do |driver|
+    describe "with driver #{driver}" do
+      let(:promise) { MrDarcy::Promise.new(driver: driver, &promise_block).fail { |v| v+1 } }
+      subject { promise }
+
+      When 'the promise resolves' do
+        let(:promise_block) { proc { |p| p.resolve 1 } }
+
+        it_should_behave_like 'a resolved promise'
+        its(:result)  { should eq 1 }
+      end
+
+      When 'the promise rejects' do
+        let(:promise_block) { proc { |p| p.reject 1 } }
+
+        it_should_behave_like 'a resolved promise'
+        its(:result)  { should eq 2 }
+      end
+    end
+  end
+end

data/spec/acceptance/simple_promise_with_then_spec.rb

@@ -0,0 +1,25 @@
+require 'spec_helper'
+
+describe "Promise with then" do
+
+  MrDarcy.all_drivers.each do |driver|
+    describe "with driver #{driver}" do
+      let(:promise) { MrDarcy::Promise.new(driver: driver, &promise_block).then { |v| v+1 } }
+      subject { promise }
+
+      When 'the promise resolves' do
+        let(:promise_block) { proc { |p| p.resolve 1 } }
+
+        it_should_behave_like 'a resolved promise'
+        its(:result)  { should eq 2 }
+      end
+
+      When 'the promise rejects' do
+        let(:promise_block) { proc { |p| p.reject 1 } }
+
+        it_should_behave_like 'a rejected promise'
+        its(:result)  { should eq 1 }
+      end
+    end
+  end
+end

data/spec/lib/mr_darcy/context_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+
+describe MrDarcy::Context do
+  context 'class methods' do
+    subject { described_class }
+    it { should respond_to :role }
+    it { should respond_to :action }
+
+    describe '.role' do
+      subject { described_class.role :test_name }
+
+      it { should be_a MrDarcy::Role }
+      its(:name) { should eq :test_name }
+    end
+
+    describe '.action' do
+      subject { -> { described_class.action :action_name, &->{} } }
+
+      it { should change { described_class.instance_methods.member? :action_name }.from(false).to(true) }
+    end
+  end
+end

data/spec/lib/mr_darcy/promise/base_spec.rb

@@ -0,0 +1,197 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::Base do
+  let(:promise_block) { proc {} }
+  let(:mock_promise) do
+    Class.new(MrDarcy::Promise::Base) do
+      def schedule_promise
+        yield
+      end
+
+      def generate_child_promise
+        MrDarcy::Promise::ChildPromise.new driver: :synchronous
+      end
+    end.new(promise_block)
+  end
+  subject { mock_promise }
+
+  it_behaves_like :thenable
+
+  describe '#then' do
+    let(:then_block) { proc {} }
+    subject { mock_promise.then &then_block }
+
+    it_behaves_like :thenable
+
+    When 'the promise is already resolved' do
+      before { mock_promise.resolve :good }
+      it_behaves_like 'a resolved promise'
+
+      it 'calls the then block with the result' do
+        expect { |b| mock_promise.then(&b) }.to yield_with_args(:good)
+      end
+
+      it 'calls the then block only once' do
+        expect { |b| mock_promise.then(&b) }.to yield_control.once
+      end
+    end
+
+    When 'the promise is already rejected' do
+      before { mock_promise.reject :bad }
+      it_behaves_like 'a rejected promise'
+
+      it 'does not call the then block' do
+        expect { |b| mock_promise.then(&b) }.not_to yield_control
+      end
+    end
+
+    Otherwise do
+      it_behaves_like 'an unresolved promise'
+
+      it 'does not call the then block' do
+        expect { |b| mock_promise.then(&b) }.not_to yield_control
+      end
+    end
+  end
+
+  describe '#fail' do
+    let(:fail_block) { proc {} }
+    subject { mock_promise.fail &fail_block }
+
+    it_behaves_like :thenable
+
+    When 'the promise is already resolved' do
+      before { mock_promise.resolve :good }
+      it_behaves_like 'a resolved promise'
+
+      it 'does not call the fail block' do
+        expect { |b| mock_promise.fail(&b) }.not_to yield_control
+      end
+    end
+
+    When 'the promise is already rejected' do
+      before { mock_promise.reject :bad }
+
+      When 'the fail block re-fails' do
+        let(:fail_block) { proc { raise :bad } }
+
+        it_behaves_like 'a rejected promise'
+      end
+
+      Otherwise do
+        it_behaves_like 'a resolved promise'
+      end
+
+      it 'calls the fail block with the result' do
+        expect { |b| mock_promise.fail(&b) }.to yield_with_args(:bad)
+      end
+
+      it 'calls the fail block only once' do
+        expect { |b| mock_promise.fail(&b) }.to yield_control.once
+      end
+    end
+
+    Otherwise do
+      it_behaves_like 'an unresolved promise'
+
+      it 'does not call the fail block' do
+        expect { |b| mock_promise.fail(&b) }.not_to yield_control
+      end
+    end
+  end
+
+  describe '#result' do
+    subject { -> { mock_promise.result } }
+    it { should raise_error }
+  end
+
+  describe '#final' do
+    subject { -> { mock_promise.final } }
+    it { should raise_error }
+  end
+
+  describe '#raise' do
+    before { mock_promise.stub result: :foo }
+    subject { -> { mock_promise.raise } }
+
+    When 'the promise is resolved' do
+      before { mock_promise.resolve :good }
+
+      it { should_not raise_error }
+    end
+
+    When 'the promise is rejected' do
+      before { mock_promise.reject :bad }
+
+      it { should raise_error }
+    end
+
+    When 'the promise is unresolved' do
+      it { should_not raise_error }
+    end
+  end
+
+  describe '#resolve' do
+    let(:resolve_value) { :good }
+    subject { mock_promise.resolve resolve_value }
+
+    When 'the promise is already resolved' do
+      before { mock_promise.resolve :previous }
+
+      specify { expect { subject }.to raise_error }
+    end
+
+    When 'the promise is already rejected' do
+      before { mock_promise.reject :previous }
+
+      specify { expect { subject }.to raise_error }
+    end
+
+    Otherwise do
+      specify { expect { subject }.to change{ mock_promise.resolved? }.from(false).to(true) }
+      specify { expect { subject }.to change{ mock_promise.unresolved? }.from(true).to(false) }
+
+      When 'there is a child promise' do
+        let(:then_block) { proc {} }
+        before { mock_promise.then(&then_block) }
+
+        it 'calls the then block' do
+          expect(then_block).to receive(:call).with(:good).once
+          subject
+        end
+      end
+    end
+  end
+
+  describe '#reject' do
+    let(:reject_value) { :bad }
+    subject { mock_promise.reject reject_value }
+
+    When 'the promise is already resolved' do
+      before { mock_promise.resolve :previous }
+
+      specify { expect { subject }.to raise_error }
+    end
+
+    When 'the promise is already rejected' do
+      before { mock_promise.reject :previous }
+
+      specify { expect { subject }.to raise_error }
+    end
+
+    Otherwise do
+      specify { expect { subject }.to change{ mock_promise.rejected? }.from(false).to(true) }
+      specify { expect { subject }.to change{ mock_promise.unresolved? }.from(true).to(false) }
+
+      When 'there is a child promise' do
+        let(:fail_block) { proc {} }
+        before { mock_promise.fail(&fail_block) }
+
+        it 'calls the fail block' do
+          expect(fail_block).to receive(:call).with(:bad).once
+          subject
+        end
+      end
+    end
+  end
+end

data/spec/lib/mr_darcy/promise/child_promise_spec.rb

@@ -0,0 +1,169 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::ChildPromise do
+  let(:child_promise) { MrDarcy::Promise::ChildPromise.new driver: :Synchronous }
+  subject { child_promise }
+
+  it { should be_a MrDarcy::Deferred }
+
+  it { should respond_to :resolve_block }
+  it { should respond_to :reject_block }
+
+  describe '#parent_resolved' do
+    let(:resolve_value) { :good }
+    subject { child_promise.parent_resolved resolve_value }
+
+    When 'it handles success' do
+      let(:resolve_block) { proc {} }
+      before { child_promise.resolve_block = resolve_block }
+
+      it 'calls the resolve block' do
+        expect(resolve_block).to receive(:call).with(resolve_value)
+        subject
+      end
+
+      When 'the resolve block returns a value' do
+        let(:resolve_block) { proc { :new_value } }
+
+        it 'resolves' do
+          expect { subject }.to change { child_promise.resolved? }.from(false).to(true)
+        end
+
+        it 'sets the new value' do
+          expect { subject }.to change { child_promise.result }.to(:new_value)
+        end
+      end
+
+      When 'the resolve block returns a new promise' do
+        let(:promise_block) { proc {} }
+        let(:promise) { MrDarcy::Promise::Synchronous.new promise_block }
+        let(:resolve_block) { proc { promise } }
+
+        it 'doesn\'t resolve' do
+          expect { subject }.not_to change { child_promise.resolved? }
+        end
+
+        it 'doesn\'t set the value' do
+          expect { subject }.not_to change { child_promise.result }
+        end
+
+        When 'the promise eventually resolves' do
+          before { child_promise.parent_resolved resolve_value }
+          subject { promise.resolve :mr_good_stuff }
+
+          it 'resolves' do
+            expect { subject }.to change{ child_promise.resolved? }.from(false).to(true)
+          end
+
+          it 'has the new value' do
+            expect { subject }.to change { child_promise.result }.to(:mr_good_stuff)
+          end
+        end
+
+        When 'the promise eventually rejects' do
+          before { child_promise.parent_resolved resolve_value }
+          subject { promise.reject :mr_bad_stuff }
+
+          it 'rejects' do
+            expect { subject }.to change{ child_promise.rejected? }.from(false).to(true)
+          end
+
+          it 'has the new value' do
+            expect { subject }.to change { child_promise.result }.to(:mr_bad_stuff)
+          end
+        end
+      end
+    end
+
+    Otherwise do
+      it 'is resolved' do
+        subject
+        expect(child_promise).to be_resolved
+      end
+
+      it 'is resolved with the supplied value' do
+        subject
+        expect(child_promise.result).to eq(resolve_value)
+      end
+    end
+  end
+
+  describe '#parent_rejected' do
+    let(:reject_value) { :bad }
+    subject { child_promise.parent_rejected reject_value }
+
+    When 'it handles success' do
+      let(:reject_block) { proc {} }
+      before { child_promise.reject_block = reject_block }
+
+      it 'calls the reject block' do
+        expect(reject_block).to receive(:call).with(reject_value)
+        subject
+      end
+
+      When 'the reject block returns a value' do
+        let(:reject_block) { proc { :new_value } }
+
+        it 'resolves' do
+          expect { subject }.to change { child_promise.resolved? }.from(false).to(true)
+        end
+
+        it 'sets the new value' do
+          expect { subject }.to change { child_promise.result }.to(:new_value)
+        end
+      end
+
+      When 'the reject block returns a new promise' do
+        let(:promise_block) { proc {} }
+        let(:promise) { MrDarcy::Promise::Synchronous.new promise_block }
+        let(:reject_block) { proc { promise } }
+
+        it 'doesn\'t reject' do
+          expect { subject }.not_to change { child_promise.rejected? }
+        end
+
+        it 'doesn\'t set the value' do
+          expect { subject }.not_to change { child_promise.result }
+        end
+
+        When 'the promise eventually resolves' do
+          before { child_promise.parent_rejected reject_value }
+          subject { promise.resolve :mr_good_stuff }
+
+          it 'resolves' do
+            expect { subject }.to change{ child_promise.resolved? }.from(false).to(true)
+          end
+
+          it 'has the new value' do
+            expect { subject }.to change { child_promise.result }.to(:mr_good_stuff)
+          end
+        end
+
+        When 'the promise eventually rejects' do
+          before { child_promise.parent_rejected reject_value }
+          subject { promise.reject :mr_bad_stuff }
+
+          it 'rejects' do
+            expect { subject }.to change{ child_promise.rejected? }.from(false).to(true)
+          end
+
+          it 'has the new value' do
+            expect { subject }.to change { child_promise.result }.to(:mr_bad_stuff)
+          end
+        end
+      end
+    end
+
+    Otherwise do
+      it 'is rejected' do
+        subject
+        expect(child_promise).to be_rejected
+      end
+
+      it 'is rejected with the supplied value' do
+        subject
+        expect(child_promise.result).to eq(reject_value)
+      end
+    end
+  end
+end

data/spec/lib/mr_darcy/promise/dsl_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::DSL do
+
+  let(:promise) { double :promise }
+  let(:dsl)     { described_class.new(promise) }
+  subject       { dsl }
+
+  it { should respond_to :resolve }
+  it { should respond_to :reject }
+  it { should respond_to :unresolved? }
+  it { should respond_to :resolved? }
+  it { should respond_to :rejected? }
+  it { should respond_to :then }
+  it { should respond_to :fail }
+  it { should respond_to :result }
+  it { should respond_to :final }
+
+  describe '.new' do
+    its(:promise) { should eq promise }
+  end
+
+  describe '#resolve' do
+    subject { dsl.resolve :resolved_value }
+    before  { promise.stub :value= => nil, resolve: nil }
+
+    it 'resolves the promise' do
+      promise.should_receive(:resolve).with(:resolved_value)
+      subject
+    end
+  end
+
+  describe '#reject' do
+    subject { dsl.reject :exception }
+    before  { promise.stub :value= => nil, reject: nil }
+
+    it 'rejects the promise' do
+      promise.should_receive(:reject).with(:exception)
+      subject
+    end
+  end
+
+end

data/spec/lib/mr_darcy/promise/state/base_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::State::Base do
+  let(:initial_state) { 'unresolved'}
+  let(:stateful)      { Struct.new(:state).new initial_state }
+  let(:state)         { described_class.new stateful }
+  subject { state }
+
+  it { should respond_to :stateful }
+  it { should respond_to :stateful= }
+  it { should respond_to :unresolved? }
+  it { should respond_to :resolved? }
+  it { should respond_to :rejected? }
+
+  describe '#resolve' do
+    subject { -> { state.resolve } }
+    it { should raise_error }
+  end
+
+  describe '#reject' do
+    subject { -> { state.reject } }
+    it { should raise_error }
+  end
+end

data/spec/lib/mr_darcy/promise/state/rejected_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::State::Rejected do
+  let(:initial_state) { :unresolved }
+  let(:stateful)      { Struct.new(:state).new initial_state }
+  let(:state)         { described_class.new stateful }
+
+  subject { state }
+
+  it { should be_a MrDarcy::Promise::State::Base }
+  its(:rejected?) { should be_true }
+end

data/spec/lib/mr_darcy/promise/state/resolved_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe MrDarcy::Promise::State::Resolved do
+  let(:initial_state) { :unresolved }
+  let(:stateful)      { Struct.new(:state).new initial_state }
+  let(:state)         { described_class.new stateful }
+
+  subject { state }
+
+  it { should be_a MrDarcy::Promise::State::Base }
+  its(:resolved?) { should be_true }
+end